通达信章鱼哥KDJ副图指标

 指    标    源    码 

通达信章鱼哥KDJ副图指标

Q:=CROSS(SMA(CLOSE,2,1),SMA(LOW,5,1));

Q1:=(SMA(HIGH,21,2)*1.05)*1.05;

Q2:=IF(Q,Q1,SMA(LOW,5,1));

Q3:=CROSS(SMA(CLOSE,2,1),(SMA(HIGH,21,2)*1.05));

Q4:=IF(Q3,(SMA(HIGH,21,2)*1.05)*1.10,(SMA(LOW,21,2)*0.95));

Q5:=Q2>SMA(LOW,5,1) AND CROSS(C,REF(MA(C,13),13/2+1)) AND VOL>0;

Q6:=REF(H/O<1.02,1) AND REF(C<O,1);

找牛:=Q4>(SMA(LOW,21,2)*0.95) OR Q5 AND Q6;

{DRAWTEXT(找牛,80,'←-找主升抓牛'),COLORRED;}

STICKLINE(找牛,100,25,1,0),COLORYELLOW;

STICKLINE(找牛,75,10,2,0),COLOR00FF00;

STICKLINE(找牛,40,0,2,0),COLORBLUE;

STICKLINE(找牛,75,15,0.5,0),COLORRED;

STICKLINE(找牛,45,6,1,0),COLOR00FF00;

STICKLINE(找牛,32,0,2,0),COLORBLUE;

{动能无未来}

A:=V*100/CAPITAL;

DIFF0:=(EMA(CLOSE,12)-EMA(CLOSE,26))*100;

DEA0:=EMA(DIFF0,9);

MACD0:=2*(DIFF0-DEA0);

动能:(MACD0>REF(MACD0,1)*2.5 AND MACD0>15),COLORFF00FF;

STICKLINE(动能,00,50,1.0,0),COLORMAGENTA;

DRAWTEXT(动能,动能*25,'↖动能'),COLORMAGENTA;

{日周月金叉：J线趟底三天左右，当J线上穿零，就是买入时机}

{N:=18; P1:=3; P2:=3;}

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

K:SMA(RSV,P1,1),COLORFFFFFF;

D:SMA(K,P2,1),COLORYELLOW;

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

{KDJ日周月金叉死叉}

周K:="KDJ.K#WEEK"(18,3,3);

周D:="KDJ.D#WEEK"(18,3,3);

周J:="KDJ.J#WEEK"(18,3,3);

月K:="KDJ.K#MONTH"(18,3,3);

月D:="KDJ.D#MONTH"(18,3,3);

月J:="KDJ.J#MONTH"(18,3,3);

月金叉:=CROSS(月K,月D);

周金叉:=CROSS(周K,周D);

日金叉:=FILTER(CROSS(K,D) AND K<20,4);

DRAWTEXT_FIX(C>O,0.01,0.01,0,'更多精彩指标公式，请关注微信公众号：通达信指标公式'),COLORYELLOW;

DRAWTEXT(月金叉,月D-2,'★'),COLOR0022EE;

DRAWTEXT(月金叉,月D-2,'KD月金叉'),COLORYELLOW;

DRAWTEXT(周金叉,周D,'★'),COLOR0022EE;

DRAWTEXT(周金叉,周D,' KD周金叉'),COLORGREEN;

DRAWICON(日金叉,K,1);

DRAWTEXT(日金叉,D-6,'低位金叉'),COLOR00CCCC;

DRAWTEXT(CROSS(周D,周K),周D*1.2,'KD周死叉'),COLOR00DDBB;

DRAWTEXT(CROSS(月D,月K),月D,'KD月死叉'),COLORFFFFFF;

KDB:=BARSLAST(REF(CROSS(K,D),1));

KDDB:=REF(CLOSE,KDB+1)>CLOSE AND REF(K,KDB+1)<K AND CROSS(K,D);

K底背:=IF(FILTER(KDDB>0,5),1,0);

DRAWTEXT(K底背=1,D*0.98,'底背'),COLORDDDDDD;

KDD:=BARSLAST(REF(CROSS(D,K),1));

K顶背:=REF(CLOSE,KDD+1)<CLOSE AND REF(K,KDD+1)>K AND CROSS(D,K);

DRAWTEXT(FILTER(K顶背>0,5),D+8,'顶背'),COLORFFAA22;

IF(J<0,J,DRAWNULL),COLORGREEN,LINETHICK2;

IF(K>90,K,DRAWNULL),COLOR0000FF,LINETHICK2;

IF(D>85,D,DRAWNULL),COLORFFFF11,LINETHICK2;

DRAWICON(CROSS(J,1),J,1);

DRAWICON(K>80 AND D>80 AND CROSS(D,K),D,2);

DRAWTEXT(ISLASTBAR,K,'  ←K'),COLORWHITE;

DRAWTEXT(ISLASTBAR,D,'  ←D'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,J,'  ←J'),COLORMAGENTA;

使用说明：

KDJ周金叉强势组合低位金叉，顶背与KDJ周死叉要逃离