通达信DMI背离未加密选股指标公式源码

源码正文：

N:=21{XG51};
M:=6{XG51};
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};
Adma:EMA(ADX,M1){XG51};
OMD:(ADX-2*ADMA+ADXR)/2, COLORstICK{XG51};
DRAWBAND(ADX,RGB(155,50,50),ADXR,RGB(0,100,50)){XG51};
STICKLINE(OMD>REF(OMD,1) AND OMD>0,0,OMD,1,0),COLORWHITE{XG51};
STICKLINE(OMD>REF(OMD,1) AND OMD<0,0,OMD,1,0),COLORCYAN{XG51};
STICKLINE(OMD<REF(OMD,1),0,OMD,1,0),COLORCBCBC0{XG51};
STICKLINE(OMD>=0 OR OMD<=0,0,0,50,1),COLORRED{XG51};
ADX1:ADX,COLORWHITE{XG51};
ADXR1:ADXR,COLORCYAN{XG51};
ADMA1:ADMA{XG51};
强:IF(ADX1>=ADXR1,ADX1,DRAWNULL),COLORWHITE,LINETHICK3{XG51};
买入:IF(OMD>0 AND OMD-REF(OMD,1)>0,30,0){XG51};
A1:=BArslAST(REF(crOSS(ADX,ADXR),1)){XG51};
B1:=REF(C,A1+1)>C AND REF(ADXR,A1+1)<ADXR AND CROSS(ADX,ADXR){XG51};
DRAWTEXT(B1>0,ADX-0.1,'底背离'),COLORFF00FF{XG51};
STICKLINE(B1,0,ADX,0.5,0),COLOR0000FF{XG51};
C1:=BARSLAST(REF(CROSS(ADXR,ADX),1)){XG51};
D1:=REF(C,C1+1)<C AND REF(ADX,C1+1)>ADX AND CROSS(ADXR,ADX){XG51};
DRAWTEXT(D1> 0,ADX+0.1,'顶背离'),COLOR00FF00{XG51};
STICKLINE(D1,0,ADX,0.5,0),COLOR00FFFF{XG51};
110{XG51};
0{XG51};
-110{X~G~5?1~C~N~{};

源码正文：

stICKLINE(18,100,0,5,0),COLORYELLOW{XG51};
VAR01:=ema((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5){XG51};
VAR02:=(HHV(HIGH,25)-LLV(LOW,25))/Ema((CLOSE-LLV(LOW,25)),5){XG51};
VAR03:=crOSS(VAR02,VAR01){XG51};
VAR04:=REF(VAR02,2)<REF(VAR02,1) AND VAR02<REF(VAR02,1){XG51};
VAR05:=COUNT(VAR03,7)>0 AND VAR04{XG51};
VAR06:=REF((LOW+OPEN+CLOSE+HIGH)/4,1){XG51};
VAR07:=SMA(Abs(LOW-VAR06),13,1)/SMA(MAX(LOW-VAR06,0),10,1){XG51};
VAR08:=EMA(VAR07,10){XG51};
VAR09:=EMA(C,5){XG51};
VAR10:=LLV(LOW,33){XG51};
VAR11:=EMA(IF(LOW<=VAR10,VAR09,0),3)*40{XG51};
VAR12:=IF(VAR11>100,VAR11*0.312,VAR11){XG51};
底部爆发:VAR12,COLORRED{XG51};
STICKLINE(VAR12>0,0,VAR12,3,0),COLORRED{XG51};
STICKLINE(VAR12>0,0,VAR12,2,0),COLOR555555{XG51};
STICKLINE(VAR12>0,0,VAR12,1,0),COLORRED{XG51};
STICKLINE(VAR02>0,0,VAR02,5,0),COLOR3A7841{XG51};
海岸:VAR02,COLORCYAN{XG51};
浪花:VAR01,COLORGREEN{XG51};
STICKLINE(VAR05 AND COUNT(VAR05,5)=1,0,VAR12,4,0),COLORWHITE{XG51};
XG:IF(VAR05 AND COUNT(VAR05,5)=1,1,0),COLORWHITE{X.G.5+1.C.N.{};