通达信整合KDJ源码

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),POINTDOT,COLORWHITE,LINETHICK1;
D:SMA(K,3,1),POINTDOT,COLORGREEN,LINETHICK1;
J:3*K-2*D,COLORFF00FF,LINETHICK1;
IF(J<0,J,DRAWNULL),COLORGREEN,LINETHICK2;
IF(K>90,K,DRAWNULL),COLOR0000FF,LINETHICK2;
IF(D>85,D,DRAWNULL),COLORFFFF11,LINETHICK2;
LST1:=(H+L+O+C*2)/5;
LST2:=EMA(LST1,21);
LST3:=STD(LST1,23);
LST4:=EMA(LST1,2);
LSTA:=(LST1-LST2)*100/LST3;
KG:=(EMA(LSTA,23)+100)/2-3,COLOR00FFFF,LINETHICK1;
DG:=SMA(KG,5,1),COLORFFFF00,LINETHICK1;
JG:4*KG-3*DG,COLORFF00FF,LINETHICK2;
IF(JG>REF(JG,1),JG,DRAWNULL),COLORRED,LINETHICK2;
IF(JG<REF(JG,1),JG,DRAWNULL)COLOR00BB00,LINETHICK2;
DRAWICON(FILTER(JG>REF(JG,1)AND JG<REF(JG,3) AND JG<KG AND LST4>REF(LST4,1) AND
KG>=REF(KG,1)AND JG<40 OR CROSS(JG,KG)AND CROSS(JG,DG) AND JG<40 OR JG>REF(JG,1)AND
JG<-20,7),-30,1);
DRAWICON(FILTER(JG<=REF(JG,1) AND JG>80,8),140,15);
VARA:=(2*CLOSE+HIGH+LOW)/4;
VARB:=EXPMA(EXPMA(EXPMA(VARA,4),4),4);
JY:=(VARB-REF(VARB,1))/REF(VARB,1)*120;
KY:=MA(JY,1),COLORCYAN,LINETHICK1;
DY:=MA(JY,3),COLORGREEN,LINETHICK1;
VARYGB:=EMA(EMA(CLOSE,9),9);
控盘:=(VARYGB-REF(VARYGB,1))/REF(VARYGB,1)*100;
A10:=CROSS(控盘,0);
开始控盘:IF(A10,20,0),LINETHICK1,COLORCYAN;
VAR200:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR300:=SMA(SMA(VAR200,3,1),3,1)/28.57;
VAR400:=EMA(VAR300,5);
操盘:=3*VAR300-2*VAR400;
A1:=CROSS(操盘,VAR300) AND VAR300<2.1 AND C>O;
STICKLINE(A1,90,0,0.3,0),COLORWHITE;
DRAWTEXT(A1,100,'全仓'),COLORWHITE;
KK:=SMA(RSV,3,1);
DDD:=SMA(K,3,1);
N:=KK+DDD,COLORMAGENTA;
准备:IF(CROSS(N,50),40,-20),COLORLIRED;
发射:IF(CROSS(N,100),50,-10),COLORYELLOW;
ZTSJ:=BARSLAST(发射=100);
价:REF(C,ZTSJ)*1.1,COLORBLUE;
涨:=(C/REF(C,ZTSJ)-1)*100,RGB(255,255,0);
低:=IF(ZTSJ>0 AND ZTSJ<10 AND (L/REF(C,ZTSJ)-1)*100<=-5,5,50),RGB(255,255,255);
达标:=ZTSJ<20 AND CROSS(H,REF(C,ZTSJ)*1.1);
GWGD:=N<REF(N,1) AND REF(N,1)>=160 AND REF(N,1)>=REF(N,2);
卖:IF(GWGD,130,160),COLORGREEN;