通达信红入绿出主图未加密选股指标公式源码

源码正文：

ma5:MA(C,5),COLORBLUE{XG51};
MA10:MA(C,10),COLORFF00FF{XG51};
MA15:MA(C,15),COLOR00FF00{XG51};
MA30:MA(C,30),COLORFFCCCC{XG51};
B1:=REF(C,1);B2:=REF(C,2){XG51};
SS:=IF(C>REF(C,1) AND REF(C,1)>=REF(C,2),1,IF(C<REF(C,1) AND REF(C,1)<=REF(C,2),-1,IF(C>REF(C,2) AND REF(C,2)>REF(C,1),2,IF(C<REF(C,2) AND REF(C,2)<REF(C,1),-2,0))));
SM:=IF(REF(SS,1)!=0,REF(SS,1),IF(REF(SS,2)!=0,REF(SS,2),IF(REF(SS,3)!=0,REF(SS,3),IF(REF(SS,5)!=0,REF(SS,5),IF(REF(SS,6)!=0,REF(SS,6),IF(REF(SS,7)!=0,REF(SS,7),0)))))){XG51};
stICKLINE(SS=1 OR SM>=1 AND SS=0,B1,C,3,0),COLORWHITE;
STICKLINE(SS=-1 OR SM<=-1 AND SS=0,B1,C,3,0),COLORFFCC66{XG51};
STICKLINE(SS=2,B2,C,3,0),COLORWHITE;
STICKLINE(SS=-2,B2,C,3,0),COLORFFCC66{XG51};
STICKLINE((SS=-1 OR SS=-2) AND SM>0,B2,B1,3,0),COLORWHITE;
STICKLINE((SS=1 OR SS=2) AND SM<0,B2,B1,3,0),COLORFFCC66{XG51};
AA:=CLOSE>REF(CLOSE,1) AND REF(CLOSE,1)>REF(CLOSE,2) AND REF(CLOSE,1)<REF(CLOSE,3) AND IF(REF(CLOSE,3)<REF(CLOSE,4),1,IF(REF(CLOSE,4)<REF(CLOSE,5),REF(CLOSE,1)<REF(CLOSE,4) OR (REF(CLOSE,2)<REF(CLOSE,4) AND REF(CLOSE,3)>=REF(CLOSE,5)),IF(REF(CLOSE,5)<REF(CLOSE,6),1,REF(CLOSE,6)<REF(CLOSE,7)))){XG51};
BB:=CLOSE<REF(CLOSE,1) AND REF(CLOSE,1)<REF(CLOSE,2) AND REF(CLOSE,1)>REF(CLOSE,3) AND IF(REF(CLOSE,3)>REF(CLOSE,4),1,IF(REF(CLOSE,4)>REF(CLOSE,5),REF(CLOSE,1)>REF(CLOSE,4) OR (REF(CLOSE,2)>REF(CLOSE,4) AND REF(CLOSE,3)<=REF(CLOSE,5)),IF(REF(CLOSE,5)>REF(CLOSE,6),1,REF(CLOSE,6)>REF(CLOSE,7)))){XG51};
DRAWICON(AA AND CLOSE>REF(OPEN,2),0.99*LOW,1){XG51};
DRAWICON(BB AND CLOSE<REF(CLOSE,2),HIGH*1.01,2){XG51};
DRAWTEXT(AA AND CLOSE>REF(OPEN,2),LOW*0.98,'红入'),COLORBLUE{XG51};
DRAWTEXT(BB AND CLOSE<REF(CLOSE,2),HIGH*1.02,'绿出'),COLOR00FF00{X.G_5_1.C.N.{};

源码正文：

N:=21;M:=6;M1:=20{XG51};
TR1:=ema(maX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1)))
,ABS(REF(CLOSE,1)-LOW)),N){XG51};
HD:=HIGH-REF(HIGH,1){XG51};
LD:=REF(LOW,1)-LOW{XG51};
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N){XG51};
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N){XG51};
pdi:= DMP*100/TR1{XG51};
mdi:= DMM*100/TR1{XG51};
ADX:= EMA((PDI-MDI)/(MDI+PDI)*100,M)*2{XG51};
ADXR:=EMA(ADX,M){XG51};
XG:crOSS(ADX,ADXR),COLORWHITE{X+G.5_1+C+N+{};