通达信抓强势股选股指标公式源码

通达信抓强势股选股指标公式源码

源码正文：

A:=(3*C+L+O+H)/6{XG51};
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210{XG51};
S2:=SMA(C,3,1){XG51};
S6:=Sma(C,5,1){XG51};
DK:=2*(S2-S6){XG51};
主力成本:ema(X,13),COLORFF00FF,LINETHICK0{XG51};
短期底部:LLV(HIGH,30),LINETHICK2,COLORFFCC00{XG51};
IF(MA(C,3),MA(C,3),DRAWNULL),COLORBLUE,LINETHICK2{XG51};
IF(MA(C,9),MA(C,9),DRAWNULL),COLORLIMAGENTA,LINETHICK2{XG51};
IF(MA(C,23.5),MA(C,23.5),DRAWNULL),COLORRED{XG51};
DRAWKLINE(HIGH,OPEN,LOW,CLOSE){XG51};
MA5:=MA(C,5){XG51};
MA10:=MA(C,10){XG51};
MA30:=MA(C,30){XG51};
FA:=BArslAst(crOSS(MA10,MA5)) AND CROSS(MA5,MA10){XG51};
FB:=FA AND MA5>MA30 AND MA10>MA30  AND MA10>REF(MA10,1){XG51};
DRAWTEXT(FB,L-0.58,'★追涨'),COLORWHITE{XG51};
V1:=EMA(CLOSE,5){XG51};
V2:=EMA(EMA(CLOSE,90)*1.01,10){XG51};
DRAWTEXT(CROSS(V1,V2),V1+0.05,'牛起步'),COLOR00FF00{XG51};
VAR1:=LLV(LOW,21){XG51};
VAR2:=HHV(HIGH,21){XG51};
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5){XG51};
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13){XG51};
AB:=CROSS(AK1,AK){XG51};
DRAWTEXT((AB = 1),(LOW * 0.99),'○关注'),COLORBLUE{XG51};
AA1:=AMOUNT/V{XG51};
BB1:=L<AA1*0.9{XG51};
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2{XG51};
DD1:=L<MA(C,5)*0.921{XG51};
EE1:=V<MA(V,5)*1.5{XG51};
介入:=BB1 AND CC1 AND DD1 AND EE1,LINETHICK0,COLOR0099FF{XG51};
DRAWTEXT(介入,L*0.99,'介入'),COLOR0099FF{XG51};
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0){XG51};
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0){XG51};
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'★买入 '),COLOR00FFFF{XG51};
DRAWTEXT(FILTER((VAR4AA>90),35),(LOW)*(0.99000001),'★加仓'),COLOR00FFFF{XG51};
A1AA:=9{XG51};
A2AA:=(REF(CLOSE,A1AA+1)<CLOSE){XG51};
DRAWTEXT(FILTER((A2AA>-0.5),84),(HIGH)*(1.05),'小心变盘'),COLORFFFFFF{XG51};
VAR6:=REF(C,1){XG51};
VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(Abs(C-VAR6),6,1)*100{XG51};
DRAWTEXT(CROSS(82,VAR7),H*1.01,'▼逃顶'),COLORBLUE;VAR1:=EMA(EMA(CLOSE,13),13){XG51};
控盘:= (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,COLORFFCCCC,POINTDOT{XG51};
STICKLINE(控盘<0,控盘,0,2,0),COLORRED{XG51};
无庄控盘:控盘<0,COLORRED{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,2,1),COLORWHITE{XG51};
有庄控盘: 控盘>REF(控盘,1) AND 控盘>0,COLORWHITE{XG51};
VAR2:=100*WINNER(CLOSE*0.95){XG51};
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,2,0),COLOR00FF00{XG51};
主力出货: 控盘<REF(控盘,1) AND 控盘>0,COLOR00FF00{XG51};
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,2,0),COLORFF00FF{XG51};
高度控盘: VAR2>50 AND COST(85)<CLOSE AND 控盘>0,COLORFF00FF{XG51};
A10:=CROSS(控盘,0){XG51};
开始控盘:IF(A10,6,0),COLORBLUE{XG51};
控盘天数:BARSLASTCOUNT(有庄控盘 OR 高度控盘 ),LINETHICK0,COLORRED{XG51};
出货天数:BARSLASTCOUNT(主力出货),LINETHICK0,COLORRED{XG51};
WY1001:=(2*CLOSE+HIGH+LOW)/4{XG51};
WY1002:=EMA(WY1001,4){XG51};
WY1003:=EMA(WY1002,4){XG51};
WY1004:=EMA(WY1003,4){XG51};
X:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*2000{XG51};
X1:=IF(X<REF(X,1),X,DRAWNULL),COLORRED,LINETHICK2{XG51};
XO:=MA(X,2),COLOR9932CD{XG51};
SI:=REF(X,1){XG51};
dif1:=EMA(DCLOSE,12)-EMA(DCLOSE,26){XG51};
DEA1:=EMA(DIF1,9){XG51};
macd1:=(DIF1-DEA1)*2*60{XG51};
MacD上:IF(MACD1>REF(MACD1,1),MACD1,DRAWNULL),
STICK,COLORWHITE,LINETHICK1{XG51};
MACD下:IF(MACD1<REF(MACD1,1),MACD1,DRAWNULL),
STICK,COLORFF9900,LINETHICK1{XG51};
低位金叉:=CROSS(DIF1,DEA1) AND DIF1<-0.1{XG51};
DRAWTEXT(低位金叉,-8,' 低位金叉'),COLORWHITE{XG51};
JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0)){XG51};
二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
DRAWICON(二次金叉,DEA1*1.04,13) {XG51};
DRAWTEXT(二次金叉,-3,' 二次金叉'),COLORFF00FF{XG51};
A101:=BARSLAST(REF(CROSS(DIF1,DEA1),1)){XG51};
底背离:=REF(CLOSE,A101+1)>CLOSE AND DIF1>REF(DIF1,A101+1) AND CROSS(DIF1,DEA1){XG51};
DRAWICON(底背离,-5,1){XG51};
DRAWTEXT(底背离,-0.50,' 底背离'),COLORBLUE{XG51};
A20:=BARSLAST(REF(CROSS(DEA1,DIF1),1)){XG51};
顶背离:=REF(CLOSE,A20+1)<CLOSE AND REF(DIF1,A20+1)>DIF1 AND CROSS(DEA1,DIF1){XG51};
DRAWTEXT(顶背离,30,' 顶背离'),COLORCYAN{XG51};
DRAWICON(顶背离,30,2){XG51};
SG:=EMA(HHV(HIGH,1),8){XG51};
XA1:=EMA(CLOSE,8){XG51};
X30:=((XA1 < REF(XA1,1)) AND (CLOSE < XA1)){XG51};
X31:=IF(((SG < REF(SG,1)) OR X30),1,0){XG51};
全仓出击:=((((COUNT((X31 = 1),4) = 3) AND (X31 = 0)) AND (((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) > 0.085)) * 89){XG51};
STICKLINE(全仓出击,66,0,3,0),COLORFF00FF{XG51};
DRAWICON((全仓出击 >= 89),67,1){XG51};
DRAWTEXT((全仓出击 >= 89),69,'*大胆杀入'){X!G*5?1!C!N!{};