大智慧KDJ日周月副图源码

{KDJ同时金叉}
月K:"KDJ.K"(89,3,3),Color00ff00;
月D:"KDJ.D"(89,3,3),Color00ff00,linethick2;
周K:"KDJ.K"(27,3,3),colorred;
周D:"KDJ.D"(27,3,3),colorred,linethick2;
日K:"kd.k"(5,3,3),COLORWHITE;
日D:"kd.d"(5,3,3),COLORWHITE,linethick2;
日金叉:IF(CROSS(日K,日D),50,0),colorffffff;
DRAWTEXT(日金叉,50,'日叉'),colorffffff;
周金叉:IF(CROSS(周K,周D),30,0),colorred;
DRAWTEXT(周金叉,30,'周叉'),colorred;
月金叉:IF(CROSS(月K,月D),20,0),Color0080FF;
DRAWTEXT(月金叉,20,'月叉'),coloryellow;
{KD在30以下多次金叉}
Jm:=CROSS("kdj.k"(5,3,3),"kdj.d"(5,3,3));
JmCOUNT:=COUNT(Jm,BARSLAST("kdj.d"(5,3,3)>=30));
Jmtj:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=1,21)=1);
DRAWTEXT (Jmtj,70,'①'),COLORWHITE;
Jmtj2:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=2,21)=1);
DRAWTEXT (Jmtj2,70,'②'),COLORYELLOW;
Jmtj3:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=3,21)=1);
DRAWTEXT (Jmtj3,70,'③'),COLORYELLOW;
Jmtj4:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=4,21)=1);
DRAWTEXT (Jmtj4,70,'④'),COLORYELLOW;
Jmtj5:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=5,21)=1);
DRAWTEXT (Jmtj5,70,'⑤'),COLORYELLOW;

0,COLORYELLOW;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
A1:=BARSLAST(ref(cross(diff,dea),1));
B1:=ref(c,A1+1)>c and ref(diff,A1+1)<diff and cross(diff,dea);
MACD底背离:STICKLINE(FILTER(B1>0,5),0,0.75,3,0),COLORGREEN;
DRAWTEXT(FILTER(B1>0,5),0.57,'MACD底背离'),COLORGREEN;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(ref(cross(k,d),1));
B2:=ref(c,A2+1)>c and ref(k,A2+1)<k and cross(k,d);
KDJ底背离:STICKLINE(FILTER(B2>0,5),0,1,3,0),COLORYELLOW;
DRAWTEXT(FILTER(B2>0,5),0.80,'KDJ底背离'),COLORYELLOW;
LC :=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(ref(cross(RSI1,RSI2),1));
B3:=ref(c,A3+1)>c and ref(RSI1,A3+1)<RSI1 and cross(RSI1,RSI2);
RSI底背离:STICKLINE(FILTER(B3>0,5),0,0.5,3,0),COLORwhite;
DRAWTEXT(FILTER(B3>0,5),0.25,'RSI底背离'),COLORwhite;
2,COLORRED;
C1:=BARSLAST(ref(cross(dea,diff),1));
D1:=ref(c,C1+1)<c and ref(diff,C1+1)>diff and cross(dea,diff);
MACD顶背离:STICKLINE(FILTER(D1>0,5),2,1.25,3,0),COLOR0066FF;
DRAWTEXT(FILTER(D1>0,5),1.47,'MACD顶背离'),COLOR0066FF;
C2:=BARSLAST(ref(cross(d,k),1));
D2:=ref(c,C2+1)<c and ref(k,C2+1)>k and cross(d,k);
KDJ顶背离:STICKLINE(FILTER(D2>0,5),2,1,3,0),COLORRED;
DRAWTEXT(FILTER(D2>0,5),1.2,'KDJ顶背离'),COLORRED;
C3:=BARSLAST(ref(cross(RSI2,RSI1),1));
D3:=ref(c,C3+1)<c and ref(RSI1,C3+1)>RSI1 and cross(RSI2,RSI1);
RSI顶背离:STICKLINE(FILTER(D3>0,5),2,1.5,3,0),COLORff00ff;
DRAWTEXT(FILTER(D3>0,5),1.75,'RSI顶背离'),COLORff00ff;
0,colorffa2af;
20,colorffa2af,pointdot;
50,colorffa2af;
80,colorffa2af,pointdot;
100,colorffa2af;