月K: KDJ.K (89,3,3),NODRAW,COLORCYAN;
月D: KDJ.D (89,3,3),COLORCYAN,LINETHICK1;
周K: KDJ.K (27,3,3),NODRAW,COLORRED;
周D: KDJ.D (27,3,3),COLORRED,LINETHICK1;
日K: KD.K (5,3,3),NODRAW,COLORYELLOW;
日D: KD.D (5,3,3),COLORYELLOW,LINETHICK1;
日金叉:=CROSS(日K,日D);
周金叉:=CROSS(周K,周D);
月金叉:=CROSS(月K,月D);
X1:=日D REF(日D,1);
DRAWICON(X1,日D*0.98,36);
X2:=日D REF(日D,2);
DRAWICON(X2,日D*0.98,37);
X3:=周D REF(周D,1);
DRAWICON(X3,周D*0.98,36);
X4:=周D REF(周D,2);
DRAWICON(X4,周D*0.98,37);
X5:=月D REF(月D,1);
DRAWICON(X5,月D*0.98,36);
X6:=月D REF(月D,2);
DRAWICON(X6,月D*0.98,37);
DRAWICON(日金叉,日D*0.98,25);
DRAWICON(CROSS(周D,日D),周D*0.98,27);
DRAWICON(周金叉,周D*0.98,34);
DRAWICON(CROSS(月D,周D),月D*0.98,35);
DRAWICON(月金叉,月D*0.98,13);
DRAWICON(CROSS(月D,日D),月D*0.98,14);
二叉共振:=日金叉+周金叉+月金叉=2;
三叉共振:=日金叉+周金叉+月金叉=3;
STICKLINE(二叉共振,35,65,1,0),COLORRED;
STICKLINE(二叉共振,40,60,1,-1),COLORCYAN;
STICKLINE(三叉共振,30,70,1,0),COLORRED;
STICKLINE(三叉共振,36,64,1,-1),COLORYELLOW;
DRAWTEXT(二叉共振,55, 二金叉共振
DRAWTEXT(三叉共振,55, 三金叉共振
DRAWTEXT(CURRBARSCOUNT=25,70, 编辑优化 ),COLOR555555;
{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;
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),-20,-10,3,0),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),-20,-10,3,0),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),-20,-10,3,0),COLORWHITE;
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),-10,0,3,1),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),-10,0,3,1),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),-10,0,3,1),COLORFF00FF;
DRAWTEXT(FILTER(D3 0,5),0, --R顶背离 ),COLORFF00FF;
DRAWTEXT(FILTER(D2 0,5),-10, --K顶背离 ),COLORRED;
DRAWTEXT(FILTER(D1 0,5),-5, --M顶背离 ),COLOR0066FF;
DRAWTEXT(FILTER(B3 0,5),-10, --R底背离 ),COLORWHITE;
DRAWTEXT(FILTER(B2 0,5),-20, --K底背离 ),COLORYELLOW;
DRAWTEXT(FILTER(B1 0,5),-15, --M底背离 ),COLORGREEN;
