把这个同图显示的日月周KDJ金叉改成通达信的

编写条件：

DRAWGBK(1,colorrgb(0,0,200),colorrgb(50,50,0),1); RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; 月K:= MA("kdj.K#MONTH"(9,3,3),20),COLORFF00FF; 月D:= MA("KDJ.D#MONTH"(9,3,3),20),COLOR00FFFF; 月J:=MA("KDJ.J#MONTH"(9,3,3),20); FILLRGN(月K>=月D,月K,月D),COLORFF00FF; FILLRGN(月K<月D,月K,月D),COLOR888888; DRAWICON(月K>=月D,4,10); DRAWICON(月K>=月D,0,10); DRAWICON(月K<月D,0,12); 周K:=MA("KDJ.K#WEEK"(9,3,3) ,5); 周D:=MA("KDJ.D#WEEK"(9,3,3) ,5); 周J: MA("KDJ.J#WEEK"(9,3,3) ,5),COLORFF00FF,LINETHICK3,POINTDOT; PARTLINE(周J=周D,周K,周D,6,0),COLOR0000FF; STICKLINE(周K<周D,周K,周D,6,1),COLOR00FFFF; DRAWICON(周K>=周D,96,10); DRAWICON(周K>=周D,100,10); DRAWICON(周K<周D,100,12); DRAWICON(K>=D,46,13); DRAWICON(K>=D,50,13); DRAWICON(K>=D,54,13); DRAWICON(K金叉="" drawtextex(c,1,2,880,'月kdj金叉="" drawtextex(c,1,2,90,'周kdj金叉="" style="color:red">编写方法：

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

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1);

D:=Sma(K,3,1);

日J:3*K-2*D,COLORMAGENTA;

日金叉: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;