以下是通达信KDJ金死叉副图源码
DIFF:=(EMA(CLOSE,12) – EMA(CLOSE,26));
DEA:=EMA(DIFF,9),COLORFF00FF,LINETHICK2;
CD:=2*(DIFF-DEA),COLORSTICK,LINETHICK2;
STICKLINE(((CD 0)),0,20,2,0),LINETHICK2,COLOR00FF66;
STICKLINE(((CD>REF(CD,1)) AND (CD < 0)),0,20,2,0),LINETHICK2,COLORFF00FF;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),COLORWHITE;
D:SMA(K,3,1),COLORYELLOW;
J:3*K-2*D,COLORRED;
周Ｋ:=\”KDJ.K#WEEK\”(9,3,3);
周Ｄ:=\”KDJ.D#WEEK\”(9,3,3);
月K:=\”KDJ.K#MONTH\”(9,3,3);
月D:=\”KDJ.D#MONTH\”(9,3,3);
DRAWICON(K<20 AND CROSS(K,D),D,1);
周金:DRAWTEXT(CROSS(REF(周Ｋ,1),REF(周Ｄ,1)) ,D,\’▲\’),COLORRED;
周叉:DRAWTEXT(CROSS(REF(周Ｄ,1),REF(周Ｋ,1)) ,D*1.5,\’▼\’),COLORGREEN;
月金:DRAWTEXT(CROSS(REF(月K,1),REF(月D,1)) ,D,\’▲\’),COLORWHITE;
月叉:DRAWTEXT(CROSS(REF(月D,1),REF(月K,1)) ,D*1.5,\’▼\’),COLORYELLOW;
起涨:IF(DIFF<0,30,0),COLORYELLOW,LINETHICK2;
大涨:IF(DIFF<0,0,DIFF),COLORWHITE,LINETHICK2;
下跌:IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK2;
总趋:IF(DIFF>DEA,DEA,DEA)*60,COLORFF00FF,LINETHICK2;
AA:=CROSS(DIFF,DEA);
DRAWICON(AA,-0.02,5);
