通达信新KDJ选股指标公式源码

通达信新KDJ选股指标公式源码

源码正文：

A0:=(2*C+H+L)/4{XG51};
均线:=ma(A0,3)>REF(MA(A0,3),1){XG51};
A1:=(CLOSE-LLV(LOW,7))/(HHV(HIGH,7)-LLV(LOW,7))*100{XG51};
A2:=ema(WINNER(C)*100,5){XG51};
A3:=MA(SMA(C-REF(C,1),3,1)/SMA(H-REF(C,1),3,1),3)*100;
K:MA(3*SMA(A1,6,1)-2*SMA(SMA(A1,5,1),5,1),3),LINETHICK1,COLORBLUE{XG51};
D:MA(K,3),COLORFF0000,LINETHICK1{XG51};
J:3*K-2*D,LINETHICK1{XG51};
A4:=SMA(MAX(C-REF(C,2),0),6,1)/SMA(Abs(C-REF(C,2)),6,1)*100{XG51};
A5:=MA(3*SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1)-2*SMA(SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1),3,1),3){XG51};
低吸:IF(crOSS(A4,14) OR A5>REF(A5,1) AND CROSS(K,A2)AND K<40,10,0){XG51};
IF(A2>80 AND CROSS(95,K),85,100){XG51};
跌幅较大:K<5 AND LLV(C,3)/HHV(C,20)<0.8,COLOR00FF00{XG51};
stICKLINE(跌幅较大,0,30,3,0),COLOR00FF00{XG51};
A6:=COUNT(CROSS(K,A2),2)=1 AND CROSS(K,A5)AND A5/REF(A5,1)>0.9 AND K<50{XG51};
A7:=CROSS(K,D)AND D<10 OR CROSS(K,D)AND CROSS(K,A5)AND D<18{XG51};
无限风光:A2>85 AND K>85 OR A2>90 OR K>90,LINETHICK0,COLORFFFF00{XG51};
STICKLINE(无限风光,MAX(A2,K),100,6,1),COLORFFFF00{XG51};
DRAWICON(CROSS(A3,-300)AND K<10,5,1){XG51};
A8:=BArslAST(REF(CROSS(K,D),1)){XG51};
二次金叉:=(A8<15 AND D<50 AND K>REF(K,A8+1) AND CROSS(K,D)AND A5<60){XG51};
A9:=LLV(C,2)<REF(LLV(C,15),2){XG51};
DRAWTEXT(二次金叉 AND A9,K,'底背离'),COLORLIMAGENTA{XG51};

A10:=MA((A0-MA(A0,13))/(0.15*AVEDEV(A0,13)),3){XG51};
DRAWICON(CROSS(A10,-15)AND J>REF(J,1),5,1){XG51};
DRAWICON(CROSS(20,A10),100,2){XG51};
卖点准备: IF(CROSS(D,K) AND K>85,70,100),LINETHICK1,COLORLIRED{XG51};
买点准备: IF(CROSS(K,D) AND K<10,35,-0.6),LINETHICK1,COLOR00FF00{XG51};
买入持股:IF(K<=9,K,DRAWNULL)COLORRED,LINETHICK2{XG51};
买入持股1:IF(K<=2,K,DRAWNULL)COLORWHITE,LINETHICK2{XG51};
卖出空仓:IF(K>=85 AND D>85,K,DRAWNULL)COLORRED,LINETHICK3{XG51};
卖出空仓1:IF(K>=85 AND D>90,K,DRAWNULL)COLORWHITE,LINETHICK2{XG51};
VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1);
VAR3:=EMA(VAR2,10){XG51};
VAR4:=LLV(LOW,33){XG51};
VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3){XG51};
主力进场:IF(VAR5>REF(VAR5,1),VAR5,0),COLORWHITE,NODRAW{XG51};
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,3,0 ),COLORWHITE{XG51};
洗盘:IF(VAR5<REF(VAR5,1),VAR5,0),COLORCYAN,NODRAW{XG51};
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLORCYAN{X.G!5-1.C.N.{};