|
以下是通达信KDJ金死叉副图源码（无源码的请下载附件导入）
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26));
DEA:=EMA(DIFF,9),COLORFF00FF,LINETHICK2;
CD:=2*(DIFF-DEA),COLORSTICK,LINETHICK2;
STICKLINE(((CD<REF(CD,1)) AND (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);
753500555.png
|
