通达信主力进场捉妖副图指标公式源码

以下是通达信主力进场捉妖副图指标公式源码

{龙头战法}

龙头战法+游资秘技+抄底-追涨-佛系-逃顶一体化选股

通达信指标公式源码概况：

指标类别： 通达信指标公式

授权方式： 免费版

指标评级： ★★★★★

指标分类： 策略

画线方法： 副图

VAB0:=13;
VAB1:=1500000;
VAB2:=VAB0 + VAB1;
VAB3:=1;
LC1:=REF(CLOSE,1);
SG:=EMA(HHV(HIGH,1),8);
X1:=EMA(CLOSE,8);
X30:=((X1 < REF(X1,1)) AND (CLOSE < X1));
X31:=IF(((SG < REF(SG,1)) OR X30),1,0);
操作线:=SMA(MAX(CLOSE-LC1,0),2,1)/SMA(ABS(CLOSE-LC1),2,1)*100,COLORRED,LINETHICK2;
震仓:=45,COLORMAGENTA;
底线:=20,COLORGREEN;
PP:=操作线<震仓 and="">震仓 ;
PP3:=操作线<底线 and="">底线*VAB3;
龙头:(((((COUNT((X31 = 1),4) = 3)    AND (X31 = 0))AND O0.089))*10) >=10)OR((C-REF(C,1))/REF(C,1)>0.089 AND (REF(PP3,1) OR REF(PP,1))) AND VAB3=1,STICK, COLORFFFFFF,LINETHICK9,NODRAW;
STICKLINE(IF(龙头,120,0),0.5,0,7,0),COLORFFFFFF;
DRAWTEXT(龙头,0.55,'龙头'),COLORFFFFFF;

{游资秘技}
VARR1:=V;
VARR2:=VARR1>MA(V,89);
VARR3:=EXPMA(C,5);
VARR4:=EXPMA(C,29);
VARR5:=VARR3>VARR4;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),56,1)/SMA(ABS(CLOSE-LC),56,1)*100;
VARR6:=RSI1>RSI2 AND VARR5 AND VARR2;
VASS1:=HHV(H,30);
VASS2:=LLV(L,30);
VASS3:=REF((VASS1/VASS2-1)*100<=30,1);

A1:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,23))/EMA(CLOSE,23));
A2:=DMA(((2.15*CLOSE+LOW+HIGH)/4),A1);
游资:=EMA(A2,200)*1.1;
条件:=(C-REF(C,1))/REF(C,1)*100>5;
妖股:CROSS(C,游资) AND REF(C*1.097,1)<C AND VARR6 AND VASS3,COLOR00FFFF,NODRAW;
STICKLINE(IF(妖股,120,0),0.8,0,2,0),COLOR00FFFF;
DRAWTEXT(妖股,0.85,'妖股'),COLOR00FFFF;

{简化版-抄底-追涨-佛系-逃顶一体化选股,兄弟，代码看得眼花不，简化版没有整理代码，后面版本再整理，先凑合着看吧，我也眼花}
ABC001:=(HHV(H,55)-LLV(L,55));
ABC002:=SMA((C-LLV(L,55))/ABC001*100,5,1);
ABC0002:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))>0 ;
ABC0003:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))<0;
ABC0004:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))/REF(((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1)),1)>1 ;
ABC0005:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))/REF(((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1)),1)<1 and="">0;
ABC0006:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))/REF(((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1)),1)<0 AND ABC0002 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))<97 and="">0 ;
ABC0007:=(ABC0006 AND REF(ABC0003,2)) OR (REF(ABC0006,1) AND ABC0002) ;
ABC0008:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))/REF(((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1)),1)<0 AND ABC0002 AND REF(ABC0003,2) AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))<99 and="">0;
ABC0009:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))/REF(((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1)),1)<0 and="" abc0003="">50;
ABD0001:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))-REF(((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1)),1)>0;
ABD0003:=ABC0002 AND ABC0005 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>60;
ABD0004:=ABC0003 AND ABC0004 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>40;
ABD0005:=ABC0003 AND ABC0005 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))<30 ;
BBC01:=CLOSE=REF(CLOSE,1);
BBC02:=CLOSE>REF(CLOSE,1);
ABD0007:=IF(EMA(IF((EMA((SUM(IF(BBC01,0,(IF(BBC02,vol,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9))>0,(EMA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9)),0),3)>=VOL,VOL,IF(EMA(IF((EMA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9))>0,(EMA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9)),0),3)0,(EMA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9)),0),3),0));
ABD0009:=REF(EMA((DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9)),3),1);
VVVXXX0001:=(IF((CLOSE > OPEN),(((VOL / (((HIGH – LOW) * 2) – ABS((CLOSE – OPEN))))) * (HIGH – LOW)),IF((CLOSE < OPEN),(((VOL / (((HIGH – LOW) * 2) – ABS((CLOSE – OPEN))))) * ((HIGH – OPEN) + (CLOSE – LOW))),(VOL / 2))) + IF((CLOSE > OPEN)
,(0 – (((VOL / (((HIGH – LOW) * 2) – ABS((CLOSE – OPEN))))) * ((HIGH – CLOSE) + (OPEN – LOW)))),IF((CLOSE < OPEN),(0 – (((VOL / (((HIGH – LOW) * 2) – ABS((CLOSE – OPEN))))) * (HIGH – LOW))),(0 – (VOL / 2)))));
NBA0003:=IF(((VOL / CAPITAL) > 10),10,(VOL / CAPITAL));
NBA0006:=EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),8);
NBA0008:=CONST(IF(V=HHV(V,9),V,REF(V,BARSLAST(V=HHV(V,9))))),COLOR00FF00,POINTDOT;
CBA0004:=IF(EMA(IF((EMA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9))>0,(EMA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9)),0),3)>REF(EMA(IF((EMA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9))>0,(EMA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),3)-MA((SUM(IF(BBC01,0,(IF(BBC02,VOL,-VOL))),0)),9)),0),3),1) AND MA(C,3)>REF(MA(C,3),1),ABD0007/1000,0);
CBA0008:=((((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 )-REF((((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 ),1))>0;
CBA0009:=((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000)-REF((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000),1))>0;
TNT0001:=((((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 )-REF((((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 ),1))>0;
TNT0002:=(((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000)-REF((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000),1))>0) AND CBA0008;
TNT0003:=(((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000)-REF((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000),1))>0) OR CBA0008 ;
TNT0004:=(((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000)>0 AND (((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 )>0;
TNT0006:=COUNT((((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 )>REF((((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 ),1)-ABS(REF((((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 ),1))*0.1,3)=3;
TNT0007:=COUNT((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000)>REF((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000),1)-ABS(REF((((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000),1))*0.1,3)=3;
TNT0008:=TNT0003 AND (ABC0002 AND ABC0004) AND TNT0004 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>10;
TNT0009:=(TNT0002 AND ABC0002 AND TNT0004 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>10) OR (TNT0002 AND ABC0002 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>50);
TMT0001:=C>O AND ABC0002 AND TNT0003 AND TNT0004 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>10;
TMT0002:=TNT0002 AND (ABC0002 AND ABC0004) AND TNT0004 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>10;
TMT0003:=TNT0008 OR TNT0009 OR TMT0001 OR TMT0002 ;
TMT0004:=C>O AND ABC0002=0 AND TNT0003 AND TNT0004 AND((COUNT(REF(TNT0004,1) OR REF(TNT0002,1),2)=2) AND COUNT(REF(C>O,1),2)=2);
TMT0005:=C>O=0 AND ABC0004 AND ABC0002 AND TNT0003 AND TNT0004 AND CBA0004 ;
TMT0006:=C>O=0 AND ABC0002 AND ABC0004 AND V0 AND CBA0004 AND C>MA(C,5) AND MA(C,5)>MA(C,30);
TMT0007:=(EMA((3*ABC002-2*SMA(ABC002,3,1)),3))<10 and="" tnt0004="">0;
TMT0008:=ABC0002 AND ((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))-REF((EMA((3*ABC002-2*SMA(ABC002,3,1)),3)),1))>0.5 AND ((C>MA(CLOSE,5) AND REF(C,1)>REF(MA(CLOSE,5),1) AND MA(CLOSE,5)>MA(CLOSE,10) AND MA(CLOSE,10)>MA(CLOSE,20) AND MA(CLOSE,20)>MA(CLOSE,30) AND MA(CLOSE,30)>MA(CLOSE,60)) OR (C>MA(CLOSE,10) AND REF(C,1)>REF(MA(CLOSE,5),1) AND MA(CLOSE,5)>MA(CLOSE,10) AND MA(CLOSE,10)>MA(CLOSE,20) AND MA(CLOSE,20)>MA(CLOSE,30) AND MA(CLOSE,30)>MA(CLOSE,60)) OR (C>MA(CLOSE,5) AND REF(C,1)>REF(MA(CLOSE,5),1) AND MA(CLOSE,5)>MA(CLOSE,10)*0.99 AND MA(CLOSE,10)>MA(CLOSE,20)*0.99 AND MA(CLOSE,20)>MA(CLOSE,30)*0.99 AND MA(CLOSE,30)>MA(CLOSE,60)*0.99)) AND TNT0004 AND CBA0004;
TMD0003:=((TMT0003 OR (TMT0004 OR TMT0005 OR TMT0006 OR TMT0007 OR TMT0008)) OR ((ABC0002 AND TNT0004 AND (((ABC0002 AND ABC0004) OR TNT0002) OR (C>O AND (((((VVVXXX0001 / 20) / 1.15) * 0.4) +(EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000 )>(((EMA(((((((VVVXXX0001 / 20) / 1.15) * 0.55) + (REF(((VVVXXX0001 / 20) / 1.15),1) * 0.33)) + (REF(((VVVXXX0001 / 20) / 1.15),2) * 0.22))),3)))/1000)))))) ;
TMD0006:=((((ABC0006 AND REF(ABC0003,2)) OR (REF(ABC0006,1) AND ABC0002 AND (TNT0002 OR (TNT0003 AND C>O)))) AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>0 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))<89 and="" abc0002="" or="" abc0006="" tnt0002="" tnt0003="" c="">O)))) AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>0 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))<89 and="" abc0002="" or="" abc0006="" tnt0002="" tnt0003="" c="">O)))) AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>0 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))<89 and="" abc0002="" tnt0002="" or="" tnt0003="" c="">O)) ;

TMD0009:=TMD0006 AND (IF(REF(TMD0006,1),0,1) OR IF(REF(TMD0006,2),0,1));
SB666667:=(REF((TMD0006 AND ((TMD0003 OR ABC0004) AND TNT0003)),1) AND TMD0003) OR (REF((TMD0006 AND ((TMD0003 OR ABC0004) AND TNT0003)),2) AND COUNT(TMD0003,2)=2) OR (REF((TMD0006 AND ((TMD0003 OR ABC0004) AND TNT0003)),3) AND COUNT(TMD0003,3)=3) OR (REF((TMD0006 AND ((TMD0003 OR ABC0004) AND TNT0003)),4) AND COUNT(TMD0003,4)=4) OR (REF((TMD0006 AND ((TMD0003 OR ABC0004) AND TNT0003)),5) AND COUNT(TMD0003,5)=5) OR (REF((TMD0006 AND ((TMD0003 OR ABC0004) AND TNT0003)),5) AND COUNT(TMD0003,6)=6) OR (REF((TMD0006 AND ((TMD0003 OR ABC0004) AND TNT0003)),7) AND COUNT(TMD0003,7)=7);
NB666666:=(COUNT((ABC0002 AND ABC0004),2)=2 OR (COUNT(ABC0002,6)>=5 OR COUNT(ABC0002,3)>=3) AND (ABC0002 AND ABC0004)) AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>0 AND (EMA((3*ABC002-2*SMA(ABC002,3,1)),3))<90;
NB666667:=(REF(NB666666,1) AND TMD0003) OR (REF(NB666666,2) AND COUNT(TMD0003,2)=2) OR (REF(NB666666,3) AND COUNT(TMD0003,3)=3) OR (REF(NB666666,4) AND COUNT(TMD0003,4)=4) OR (REF(NB666666,5) AND COUNT(TMD0003,5)=5) OR (REF(NB666666,6) AND COUNT(TMD0003,6)=6) OR (REF(NB666666,7) AND COUNT(TMD0003,7)=7) OR (REF(NB666666,8) AND COUNT(TMD0003,8)=8) OR (REF(NB666666,9) AND COUNT(TMD0003,9)=9);
EB666666:=((EMA((3*ABC002-2*SMA(ABC002,3,1)),3))>80 AND TNT0004 AND (TNT0003 OR TNT0002) AND ABC0002);
EB666667:=(REF(EB666666,1) AND TMD0003) OR (REF(EB666666,2) AND COUNT(TMD0003,2)=2) OR (REF(EB666666,3) AND COUNT(TMD0003,3)=3) OR (REF(EB666666,4) AND COUNT(TMD0003,4)=4) OR (REF(EB666666,5) AND COUNT(TMD0003,5)=5) OR (REF(EB666666,6) AND COUNT(TMD0003,6)=6) OR (REF(EB666666,7) AND COUNT(TMD0003,7)=7);

稳健选股:((NB666666 OR NB666667) OR ((TMD0006 AND ((TMD0003 OR ABC0004) AND TNT0003)) OR SB666667) OR (EB666666 OR EB666667)), COLORFF00FF,NODRAW;

DRAWICON(稳健选股=1,0.1,1);
DRAWICON(稳健选股=1,0.25,1);
DRAWICON(稳健选股=0,1,2);
DRAWICON(稳健选股=0,0.85,2);

红色箭头持股:稳健选股,COLORRED,NODRAW;
绿色箭头持币:稳健选股,COLORGREEN,NODRAW;