通达信KD异动未加密选股指标公式源码

源码正文：

10,COLORWHITE{XG51};
20,COLOR00FF00,LINETHICK3,POINTDOT{XG51};
40,COLOR00FFFF,LINETHICK3,POINTDOT{XG51};
50,COLORWHITE,LINETHICK2{XG51};
60,COLORWHITE,LINETHICK3,POINTDOT{XG51};
80,COLOR00FFFF,LINETHICK3,POINTDOT{XG51};
90,COLOR00FF00{XG51};
100,COLORRED,LINETHICK2{XG51};
VAR7:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
VAR8:=ema(VAR7,30){XG51};
VAR9:=Ema(VAR8,30){XG51};
VAR10:=3*VAR8-2*VAR9{XG51};
势:=EMA(VAR10,5){XG51};
DRAWTEXT(crOSS(10,势),69,'进'),COLORBLUE{XG51};
DRAWTEXT(CROSS(10,势),58,'入'),COLORFF00FF{XG51};
DRAWTEXT(CROSS(10,势),43,'异'),COLOR00C0FF{XG51};
DRAWTEXT(CROSS(10,势),31,'动[↓]'),COLORFFFF6F{XG51};
DRAWTEXT(CROSS(10,势),19,'区'), COLORB47DFF{XG51};
A7:=C-REF(C,1){XG51};
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(Abs(A7),6),6){XG51};
SHORT:=7; LONG:=19{XG51};
RMA:=EMA(CLOSE,SHORT){XG51};
NMA:=EMA(CLOSE,LONG){XG51};
UP:=DRAWLINE(L=LLV(L,BArslAst(CROSS(NMA,RMA))+1),LLV
(L,BARSLAST(CROSS(NMA,RMA))+1),H=HHV
(H,BARSLAST(CROSS(RMA,NMA))+1),HHV
(H,BARSLAST(CROSS(RMA,NMA))+1),0){XG51};
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV
(H,BARSLAST(CROSS(RMA,NMA))+1),L=LLV
(L,BARSLAST(CROSS(NMA,RMA))+1),LLV
(L,BARSLAST(CROSS(NMA,RMA))+1),0){XG51};
买进:=(LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND
CROSS(A8,MA(A8,2))) AND REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1){XG51};
STICKLINE(买进,0,70,2,0),COLOR008888;
STICKLINE(买进,0,70,1.5,0),COLOR00AAAA;
STICKLINE(买进,0,70,0.8,0),COLOR00DDDD;
STICKLINE(买进,0,70,0.3,0),COLOR00FFFF{XG51};
DRAWTEXT(买进,70,'★长线持股'),COLORWHITE,LINETHICK1{XG51};
VAR1:=EMA(CLOSE,3){XG51};
VAR2:=EMA(CLOSE,21){XG51};
VAR3:=BARSLAST(CROSS(VAR2,VAR1))>15{XG51};
VAR4:=vol>MA(VOL,5)*2 AND VOL<MA(VOL,5)*5{XG51};
VAR5:=CROSS(VAR1,VAR2) AND VAR4 AND VAR3{XG51};
DRAWTEXT(VAR5,80,'★涨'),COLORCYAN LINETHICK1;
涨:IF(VAR5,80,0),STICK,LINETHICK3,COLORCYAN{XG51};
ZT:=C/REF(C,1)>1.097{XG51};
STICKLINE(ZT,0,50,2,0),COLOR880088{XG51};
STICKLINE(ZT,0,50,1.5,0),COLORAA00AA{XG51};
STICKLINE(ZT,0,50,0.8,0),COLORCC00CC{XG51};
STICKLINE(ZT,0,50,0.3,0),COLORFF00FF{XG51};
K33:="kdj.K"(33,3,3){XG51};
D33:="kdJ.D"(33,3,3){XG51};
STICKLINE((K33-D33>=0),K33,D33,10,0),COLORWHITE{XG51};
STICKLINE((K33-D33<0),K33,D33,10,0),COLORYELLOW{XG51};
DRAWTEXT(ZT,45,'★涨停'),COLORF00FF0,LINETHICK1{XG51};
RSV:=(CLOSE-LLV(LOW,33))/(HHV(HIGH,33)-LLV(LOW,33))*100{XG51};
K:SMA(RSV,3,1),COLOR5599FF,LINETHICK2;
D:SMA(K,3,1),COLORRED LINETHICK2{XG51};
IF(K<REF(K,1),K,DRAWNULL),COLORCYAN,LINETHICK2{XG51};
IF(K>REF(K,1),K,DRAWNULL),COLOR00FFFF,LINETHICK2{XG51};
DRAWICON(CROSS(K,D),5,13){XG51};
DRAWICON(CROSS(D,K),95,14){XG51};
DRAWTEXT(CROSS(80,rsi),95,'<--逃'),COLORRED LINETHICK1{XG51};
VAR22:=1{XG51};
VAR23:=((((2*CLOSE)+HIGH)+LOW) / 4){XG51};
VAR24:=LLV(LOW,5){XG51};
VAR25:=HHV(HIGH,4){XG51};
B1:=(EMA((((VAR23-VAR24)/(VAR25-VAR24))*100),4)*VAR22){XG51};
B2:=(EMA(((0.667*REF(B1,1))+(0.333*B1)),2)*VAR22){XG51};
TJ4:=CROSS(B2,B1) AND REF(B1,1)>80{XG51};
DRAWTEXT(TJ4,93,'<--顶'),COLOR00FFFF LINETHICK1{XG51};
XX1:=CROSS(((-((100)*(HHV(HIGH,IF((IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1) > 0.35),6,65)) - CLOSE))/(HHV(HIGH,IF((IF((BARSCOUNT(CLOSE) > 7),
(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1) > 0.35),6,65)) - LLV(LOW,IF((IF((BARSCOUNT(CLOSE) > 7),
(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1) > 0.35),6,65)))))*((DATE < 20070110)),(-2));
W1:=C=HHV(C,20);
W2:=BARSLAST(W1);
W3:=IF(W2>0,REF(C,W2),REF(C,W2));
W4:=CROSS(C,REF(W3,1));
XX2:=IF(W4 AND COUNT(W4,5)=1,20,0){XG51};
涨停:IF(XX1 AND XX2,65,0),COLORWHITE LINETHICK2{XG51};
DRAWTEXT(涨停>0.9,55,'狙击涨停'),COLORWHITE LINETHICK1{XG51};
MA111:=MA(CLOSE,20){XG51};
MA112:=MA(CLOSE,40){XG51};
MA113:=MA(CLOSE,60){XG51};
A11:=OPEN<MA111 OR OPEN<MA112 OR OPEN<MA113,COLORWHITE{XG51};
A12:=C>MAX(MA111,MAX(MA112,MA113)),COLORWHITE{XG51};
A13:=V/MA(V,30)>1.2,COLORWHITE{XG51};
A14:=C/REF(C,1)>1.049,COLORWHITE{XG51};
芙蓉:IF(A11 AND A12 AND A13 AND A14,50,0),COLORRED LINETHICK2{XG51};
DRAWTEXT(芙蓉>0.9,40,'今明买卖'),COLORRED LINETHICK1{X*G_5~1*C*N*{};

源码正文：

DRAwrECTREL(220,0,999,500,RGB(90,0,0)){XG51};
DRAWRECTREL(220,500,999,990,RGB(39,60,90)){XG51};
DRAWRECTREL(0,0,220,990,RGB(180,180,0)){XG51};
DRAWTEXT_FIX(1,0.12,0.12,1,'分析内容'),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.22,0.22,1,'主要从价、量、线、形四个方面分析'),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.21,0.32,1,'同时分析当日有利因素和不利因素'),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.21,0.42,1,'有利因素多持股或低买，否则减仓'),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.33,0.11,1,'【当日有利因素】'),COLORmaGENTA{XG51};
DRAWTEXT_FIX(1,0.33,0.61,1,'【当日不利因素】'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND crOSS(C,MA(C,5)),0.4,0.05,1,'C上穿5日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(C,MA(C,10)),0.5,0.05,1,'C上穿10日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(C,MA(C,20)),0.6,0.05,1,'C上穿20日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(C,MA(C,60)),0.7,0.05,1,'C上穿60日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(C,MA(C,60)),0.8,0.15,1,'芙蓉出水'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(C,MA(C,120)),0.9,0.05,1,'C上穿120日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(C,MA(C,240)),0.99,0.05,1,'C上穿240日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,5),MA(C,10)),0.6,0.11,1,'5上穿10日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND V*180/FROMOPEN/REF(MA(V,5),1)>4,0.6,0.21,1,'虚拟量大4倍'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(V,5),MA(V,10)),0.7,0.21,1,'量5上量10'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND C>REF(C,1) AND V/REF(MA(V,5),1)>2,0.8,0.21,1,'上涨放量'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND REF(C,2)>MA(C,10) AND L<=MA(C,10) AND C>MA(C,10),0.6,0.31,1,'回踩10日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND REF(C,2)>MA(C,20) AND L<=MA(C,20) AND C>MA(C,20),0.7,0.31,1,'回踩20日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND REF(C,2)>MA(C,60) AND L<=MA(C,60) AND C>MA(C,60),0.8,0.31,1,'回踩60日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND REF(C,2)>MA(C,120) AND L<=MA(C,120) AND C>MA(C,120),0.9,0.31,1,'回踩120日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND REF(C,2)>MA(C,240) AND L<=MA(C,240) AND C>MA(C,240),0.99,0.31,1,'回踩240日线'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,5),C),0.5,0.55,1,'C下穿5日线'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,10),C),0.6,0.55,1,'C下穿10日线'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,20),C),0.7,0.55,1,'C下穿20日线'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,60),C),0.8,0.55,1,'C下穿60日线'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,120),C),0.9,0.55,1,'C下穿120日线'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,120),C),0.99,0.55,1,'C下穿240日线'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,10),MA(C,5)),0.8,0.55,1,'5下穿10日线'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(C,60),MA(C,20)),0.99,0.55,1,'20下穿60日线'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND C<REF(C,1) AND V/REF(MA(V,5),1)>1.5,0.6,0.65,1,'下跌放量'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND C<REF(C,1) AND V/REF(MA(V,5),1)<1,0.7,0.65,1,'下跌缩量'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(MA(V,10),MA(V,5)),0.8,0.65,1,'量5下量10'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND (H/REF(C,1))-(C/REF(C,1))>0.04,0.9,0.65,1,'小心避雷针'),COLORCYAN{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND CROSS(C,MA(C,5)) AND CROSS(C,MA(C,10)) AND CROSS(C,MA(C,20)),0.6,0.15,1,'一阳穿三线'),COLORWHITE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND LAst(C<MA(C,5),2,1) AND C>REF(C,1)*1.02,0.99,0.4,1,'止跌反转'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND DOWNNDAY(C,3) AND C>REF(C,1)*1.02,0.99,0.5,1,'三阴后第一阳'),COLORBLUE{XG51};
五日线角:=ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*57.03{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 五日线角>30 AND 五日线角<44 AND 五日线角>REF(五日线角,1),0.7,0.4,1,'五日线角大于30'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 五日线角>45 AND 五日线角<60 AND 五日线角>REF(五日线角,1),0.8,0.4,1,'五日线角大于45'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND 五日线角>60 AND 五日线角>REF(五日线角,1),0.85,0.4,1,'五日线角大于60'),COLORBLUE{XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND V*180/FROMOPEN/REF(MA(V,5),1)>4,0.5,0.4,1,'有可能涨停'),COLORBLUE{XG51};
FV:=IF(BARSCOUNT(C)=0,9999999999,V*200/FROMOPEN){XG51};
创新高天数:=SUMBARS(REF(FV,1)-FV,0){XG51};
XG:=LONGCROSS(创新高天数,40,30) AND C>REF(C,1){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND XG,0.6,0.4,1,'量创40新高'),COLORBLUE{X_G*5~1_C_N_{};