周月日MACD KD金叉

月K:"KDJ.K#MONTH",COLOR0080FF;
月D:"KDJ.D#MONTH",COLOR0080FF,LINETHICK2;
周K:"KDJ.K#WEEK",COLORRED;
周D:"KDJ.D#WEEK",COLORRED,LINETHICK2;
日K:"KD.K",COLORWHITE;
日D:"KD.D",COLORWHITE,LINETHICK2;
周金叉:IF(CROSS(周K,周D),50,0),COLORRED;
DRAWTEXT(周金叉,50,'周金叉'),COLORRED;
月金叉:IF(CROSS(月K,月D),60,0),COLOR0080FF;
DRAWTEXT(月金叉,60,'月金叉'),COLORYELLOW;
{KD在30以下多次金叉}
JM:=CROSS("KD.K","KD.D");
JMCOUNT:=COUNT(JM,BARSLAST("KD.D">=30));
JMTJ:=28*("KD.D"<30 AND COUNT(JMCOUNT=1,21)=1);
DRAWTEXT(JMTJ,70,'①'),COLORWHITE;
JMTJ1:=28*("KD.D"<30 AND COUNT(JMCOUNT=2,21)=1);
DRAWTEXT (JMTJ,70,'②'),COLORYELLOW;
JMTJ2:=28*("KD.D"<30 AND COUNT(JMCOUNT=3,21)=1);
DRAWTEXT (JMTJ,70,'③'),COLORYELLOW;
JMTJ3:=28*("KD.D"<30 AND COUNT(JMCOUNT=4,21)=1);
DRAWTEXT (JMTJ,70,'④'),COLORYELLOW;
JMTJ4:=28*("KD.D"<30 AND COUNT(JMCOUNT=5,21)=1);
DRAWTEXT (JMTJ,70,'⑤'),COLORYELLOW;