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

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

源码正文：

N:=9{XG51};
P1:=3{XG51};
P2:=3{XG51};
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100{XG51};
K:SMA(RSV,P1,1),COLORBLUE{XG51};
D:Sma(K,P2,1),COLOR00DD00{XG51};
J:3*K-2*D,COLORWHITE{XG51};
周K:="kdJ.K#WEEK"(9,3,3){XG51};
周D:="KDJ.D#WEEK"(9,3,3){XG51};
周J:="KDJ.J#WEEK"(9,3,3){XG51};
周金叉:=crOSS(周K,周D){XG51};
日金叉:=FILTER(CROSS(K,D) AND K<20,4){XG51};
DRAWTEXT(周金叉,D,'★'),COLORBLUE{XG51};
DRAWTEXT(周金叉,D*0.93,' KD周金叉'),COLORBLUE{XG51};
DRAWTEXT(CROSS(周D,周K),D*0.95,'KD周死叉'),COLOR00DDBB{XG51};
DRAWICON(日金叉,K,1){XG51};
DRAWTEXT(日金叉,D,'低位金叉'),COLOR00CCCC{XG51};
KDB:=BArslAst(REF(CROSS(K,D),1)){XG51};
KDDB:=REF(CLOSE,KDB+1)>CLOSE AND REF(K,KDB+1){XG51};
K底背:=IF(FILTER(KDDB>0,5),1,0){XG51};
DRAWTEXT(K底背=1,D*0.98,'底背离'),COLORWHITE{XG51};
KDD:=BARSLAST(REF(CROSS(D,K),1)){XG51};
K顶背:=REF(CLOSE,KDD+1) AND CROSS(D,K){XG51};
DRAWTEXT(FILTER(K顶背>0,5),D+8,'顶背离'),COLORFFAA22{X!G_5_1!C!N!{};