通达信DMI,MACD.RSI背离选股指标公式源码

通达信DMI,MACD.RSI背离选股指标公式源码

源码正文：

N:=14{XG51};
MM:=6{XG51};
RSV:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=Sma(K,3,1){XG51};
J:=3*K-2*D{XG51};
difF:=ema(CLOSE,12) - EMA(CLOSE,26){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA), COLORstICK{XG51};
LC:=REF(CLOSE,1){XG51};
rsi1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100{XG51};
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100{XG51};
RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100{XG51};
A1:=BArslAST(REF(crOSS(DIFF,DEA),1)){XG51};
B1:=REF(CLOSE,A1+1)>CLOSE AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA){XG51};
MacD底背离:FILTER(B1>0,5){XG51};
STICKLINE(FILTER(B1>0,5),0,10,1,0),COLOR00FF00{XG51};
DRAWTEXT(FILTER(B1>0,5),10,'MACD底背'),COLOR00FF00{XG51};
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1)){XG51};
B3:=REF(CLOSE,A3+1)>CLOSE AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2){XG51};
RSI底背离:FILTER(B3>0,5),LINETHICK0{XG51};
STICKLINE(FILTER(B3>0,5),0,30,1,0),COLORFFFF00{XG51};
DRAWTEXT(FILTER(B3>0,5),30,'RSI底背'),COLORFFFF00{XG51};
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
D1:=REF(CLOSE,C1+1)<CLOSE AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF){XG51};
MACD顶背离:FILTER(D1>0,5),LINETHICK0{XG51};
STICKLINE(FILTER(D1>0,5),100,80,1,0),COLOR0066FF{XG51};
DRAWTEXT(FILTER(D1>0,5),80,'MACD顶背'),COLOR0066FF{XG51};
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1)){XG51};
D3:=REF(CLOSE,C3+1)<CLOSE AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1){XG51};
RSI顶背离:FILTER(D3>0,5),LINETHICK0{XG51};
STICKLINE(FILTER(D3>0,5),100,80,1,0),COLOR15F70A{XG51};
DRAWTEXT(FILTER(D3>0,5),80,'RSI顶背'),COLOR15F70A{XG51};
TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),21){XG51};
HD :=HIGH-REF(HIGH,1){XG51};
LD :=REF(LOW,1)-LOW{XG51};
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),21){XG51};
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),21){XG51};
pdi:= DMP*100/TR1{XG51};
mdi:= DMM*100/TR1{XG51};
ADX: EMA((PDI-MDI)/(MDI+PDI)*100,6)*2{XG51};
ADXR:EMA(ADX,6){XG51};
Adma:=EMA(ADX,20){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,COLORBLUE{XG51};
DM1:=BARSLAST(REF(CROSS(ADX1,ADXR1),1)){XG51};
DM2:=REF(CLOSE,DM1+1)>CLOSE AND REF(ADX1,DM1+1)<ADX1 AND CROSS(ADX1,ADXR1){XG51};
DMI底背离:FILTER(DM2>0,5),LINETHICK0{XG51};
DRAWTEXT(FILTER(DM2>0,5),ADX1,'DMI底背'),COLORFFFF00{XG51};
DM3:=BARSLAST(REF(CROSS(ADXR1,ADX1),1)){XG51};
DM4:=REF(CLOSE,DM3+1)<CLOSE AND REF(ADX1,DM3+1)>ADX1 AND CROSS(ADXR1,ADX1){XG51};
DMI顶背离:FILTER(DM4>0,5),LINETHICK0{XG51};
DRAWTEXT(FILTER(DM4>0,5),ADX1,'DMI顶背'),COLORCYAN{X~G-5^1~C~N~{};