月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;