通达信KDJ+RSI+MACD顶底背离选股指标公式源码

通达信KDJ+RSI+MACD顶底背离选股指标公式源码

源码正文：

WL:(CLOSE-ma(CLOSE,6))/MA(CLOSE,6)*100,LINETHICK1,COLOR0000FF{XG51};
WL3:=MA(WL,3),COLOR00FFFF{XG51};
WLT:MA(WL,89),COLOR00FFFF,LINETHICK1{XG51};
DRAWBAND(WL,RGB(200,60,200),WLT,RGB(0,100,50)){XG51};
遵涨:IF(WL>=WLT,WL,DRAWNULL),COLOR3300FF;  
守望:IF(WLT>=WL,WLT,DRAWNULL),COLORFF6000{XG51};
纪买:IF(WL>=WLT,WLT,DRAWNULL),COLOR00FFFF{XG51};
律跌:IF(WLT>=WL,WL,DRAWNULL),COLOR00FF00{XG51};
WLT1:=crOSS(WL,WLT){XG51};
WLT11:=CROSS(WL,-10){XG51};
WLT2:=FILTER(WLT1,8){XG51};
SKY:=10,POINTDOT,COLORFF0000,LINETHICK1{XG51};
SEA:=-10,POINTDOT,COLORFF00FF,LINETHICK1{XG51};
DRAWICON(WLT2,WLT,23){XG51};
DRAWICON(WLT11,SEA,15){XG51};
T8:=FILTER(CROSS(WL,WL3) AND WL3<WLT,5){XG51};
DRAWICON(T8,WL,25){XG51};
WLT3:=COUNT(WL>10,5)>=3{XG51};
WLT33:=CROSS(10,WL){XG51};
SEL:=WLT3 AND WLT33{XG51};
DRAWICON(SEL,10,19){XG51};
stICKLINE(WL>10,WL,10,0.001,0),COLOR00FF00{XG51};
STICKLINE(WL<-10,WL,-10,0.001,0),COLORFF00FF{XG51};
dif:=ema(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2,COLORSTICK{XG51};
DIF底:=LLV(DIF,120){XG51};
最底价:=L=LLV(L,120){XG51};
距今:=BArslAST(最底价){XG51};
偏离:=IF((距今=0 AND DIF>DIF底),1,0){XG51};
DDD:=EXIST(偏离,20) AND SLOPE(DEA,2)>=0{XG51};
HRY:=FILTER(DDD,10){XG51};
STICKLINE(HRY,-5,-10,3,0),COLOR00FFFF{XG51};
DRAWTEXT(HRY,-5,'M背'),COLOR88FFFF{XG51};
DIF顶:=HHV(DIF,120){XG51};
最高价:=H=HHV(H,120){XG51};
距今高:=BARSLAST(最高价){XG51};
偏离高:=IF((距今高=0 AND DIF<DIF顶),1,0){XG51};
GGG:=EXIST(偏离高,20) AND SLOPE(DEA,2)<0{XG51};
HRY1:=FILTER(GGG,10){XG51};
STICKLINE(HRY1,10,6.5,7,1),COLORFF8000{XG51};
DRAWTEXT(HRY1,6,' M背'),COLORFF8000{XG51};
A2:=BARSLAST(REF(CROSS("kdj.K"(9,3,3),"kdJ.D"(9,3,3)),1)){XG51};
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)){XG51};
A3:=BARSLAST(REF(CROSS("rsi.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1)){XG51};
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)){XG51};
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1)){XG51};
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)){XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1)){XG51};
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)){XG51};
KDJ底背:FILTER(IF(B2>0,-1,0),13),COLORFF00FF,NODRAW{XG51};
STICKLINE(KDJ底背,-10,-8,3,0),COLORFF00FF{XG51};
DRAWTEXT(KDJ底背,-7.5,'K背'),COLORFF00FF{XG51};
RSI底背:FILTER(IF(B3>0,-1,0),13),COLORFF8000,NODRAW{XG51};
STICKLINE(RSI底背,-10,-7,3,0),COLORFFFFFF{XG51};
DRAWTEXT(RSI底背,-6.5,'R背'),COLORFFFFFF{XG51};
KDJ顶背:FILTER(IF(D2>0,1,0),13),COLORFFF000,NODRAW{XG51};
STICKLINE(KDJ顶背,10,5,2,0),COLORFFFF00{XG51};
DRAWTEXT(KDJ顶背,4.5,'K背'),COLORFFFF00{XG51};
RSI顶背:FILTER(IF(D3>0,1,0),13),NODRAW{XG51};
STICKLINE(RSI顶背,10,8,5,0),COLOR00FF00{XG51};
DRAWTEXT(RSI顶背,7.5,'R背'),COLOR00FF80{XG51};
T:=IF((BARSCOUNT(C) > 7),(100)*((MA(C,7))/(LLV(MA(C,7),7)) - 1),1){XG51};
N:=IF((T > 0.35),6,65){XG51};
W:=((-((100)*(HHV(H,N) - C))/(HHV(HIGH,N) - LLV(L,N)))){XG51};
RV:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100{XG51};
RG:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100{XG51};
J0:=(HIGH+LOW)/2{XG51};
QJ:=EMA(J0,3){XG51};
J1:=IF(CLOSE>QJ,vol,0){XG51};
J2:=IF(CLOSE<QJ,VOL,0){XG51};
BB:=MA(SUM(J1-J2,22),3){XG51};
修改1:=DYNAINFO(8)*240/FROMOPEN{XG51};
修改2:=IF(CLOSE>QJ,修改1,0){XG51};
修改3:=IF(CLOSE<QJ,修改1,0){XG51};
修改4:=MA(SUM(修改2-修改3,22),3){XG51};
累加:=21*修改4+20*REF(BB,1)+19*REF(BB,2)+18*REF(BB,3)+17*REF(BB,4)
+16*REF(BB,5)+15*REF(BB,6)+14*REF(BB,7)+13*REF(BB,8)+12*REF
(BB,9)+11*REF(BB,10)+10*REF(BB,11)+9*REF(BB,12)+8*REF(BB,13)
+7*REF(BB,14)+6*REF(BB,15)+5*REF(BB,16)+4*REF(BB,17)+3*REF
(BB,18)+2*REF(BB,19)+REF(BB,20){XG51};
WMA3:=累加/(21+1)/21*2{XG51};
CC:=WMA3;VAR3:=(BB-CC);VAR4:=SMA(RV,3,1){XG51};
VAR5:=SMA(VAR4,3,1){XG51};
KK:=EMA(SMA(RG,3,1),2),COLORFFFFFF{XG51};
DD:=SMA(KK,3,1),COLOR00FFFF{XG51};
涨停:=CROSS(W,-2) AND CROSS(VAR4,VAR5) AND CROSS(KK,DD){XG51};
STICKLINE(涨停,-10,-5,4,0)COLORWHITE{XG51};
DRAWTEXT(REF("KDJ.J",1)<0 AND "KDJ.J">0,-4,'短'),COLORFF88FF{XG51};
STICKLINE(REF("KDJ.J",1)<0 AND "KDJ.J">0,-10,-4.5,3,0),COLORFF88FF{XG51};
AA1:=HHV(H,55){XG51};
BB1:=REF(H,13){XG51};
TJ1:=AA1=BB1{XG51};
XX:=LLV(L,55){XG51};
YY:=REF(L,13){XG51};
YY1:=REF(L,21){XG51};
TJ2:=XX=YY{XG51};
TJ3:=XX=YY1{XG51};
选股:TJ1 OR TJ2{XG51};
DRAWTEXT(TJ2,-6,'离底13'),COLOR00FF00{XG51};
STICKLINE(TJ2 ,-10,-6.5,2,1),COLOR00FF00{XG51};
DRAWTEXT(TJ3,-7.5,'离底21'),COLOR00FFFF{XG51};
STICKLINE(TJ3 ,-10,-8,4,1),COLOR00FFFF{XG51};
DRAWTEXT(TJ1,-5.5,'离高13'),COLOR0000FF{XG51};
STICKLINE(TJ1 ,-10,-6,2,0),COLOR0000FF{XG51};
LV:=MA(C,24){XG51};
HR0:=HHV(HIGH,N){XG51};
HRY0:=LLV(LOW,N){XG51};
HRY110:=HR0*HRY0{XG51};
HRY330:=SQRT(HRY110){XG51};
NS1:=C>HRY330 AND HRY330 >=REF(HRY330,1) AND C>LV{XG51};
STICKLINE(C>0,-10,-11.5,3,0),COLORFF6000{XG51};
STICKLINE(WLT2 OR WL>WLT,-10,-11.5,3,0),COLOR00FFFF{XG51};
STICKLINE(NS1,-10,-11.5,3,0),COLOR0000FF{XG51};
DRAWTEXT(FILTER(NS1,21),-11,'持股'),COLORFFFFFF{XG51};
DRAWTEXT(FILTER(WLT2 OR WL>WLT,13),-11,'买入'),COLOR0000FF{X-G_5~1-C-N-{};