以下是通达信KDJ双金叉副图指标源码(无源码的请下载附件导入)
VAR1:=(2*CLOSE+HIGH+LOW)/3;
VAR2:=EXPMA(EXPMA(EXPMA(VAR1,3),3),3);
J1:(VAR2-REF(VAR2,1))/REF(VAR2,1)*100,COLORSTICK;
D1:MA(J1,3);
K1:MA(J1,1),COLORYELLOW;
LOWV:=EMA(LLV(LOW,12),3);
HIGHV:=EMA(HHV(HIGH,12),3);
{RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*10,3);}
RSV:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*10;
K:SMA(RSV,5,1);
D:SMA(K,3,1);
J:3*K-2*D,COLORFFFFFF;
0,COLORRED,LINETHICK1;
DRAWICON(FILTER(J<=REF(J,1) AND J>80,8), J*1.2,2);
DRAWICON(CROSS(J,0),1,1);
{DRAWICON(CROSS(J , D ),D,1);
DRAWICON(CROSS(K1 , D1 ),J,7);}
J金叉:IF(CROSS(J,D),5,0),COLORRED;
K1金叉:IF(CROSS(K1,D1),3,0),,COLOR0080FF;
195800921.jpg
|