过顶擒龙 副图/选股源码 贴图 通达信

{过顶擒龙}
GL1:=(MA(C,20)-MA(C,250))/MA(C,250)*100<0.5;
GL2:=(MA(C,20)-MA(C,30))/MA(C,30)*100<3;
GL3:=(MA(C,20)-MA(C,60))/MA(C,60)*100<4;
NEWTJ1:=MA(C,5)>=MA(C,10) AND (MA(C,10)>=MA(C,20) OR CROSS(MA(C,10),MA(C,20))) AND (MA(C,20)>=MA(C,30) OR GL2) AND MA(C,10)>MA(C,60) AND MA(C,10)>=MA(C,250) AND (MA(C,20)>=MA(C,250) OR GL1);
NEWTJ2:=MA(C,5)>=MA(C,10) AND (MA(C,10)>=MA(C,30) OR CROSS(MA(C,10),MA(C,20))) AND (MA(C,20)>=MA(C,30) OR GL2) AND MA(C,10)>=MA(C,60) AND GL3;
V5:=MA(V,5);
V10:=MA(V,10);
V135:=MA(V,135);
V35:=MA(V,35);
V60:=MA(V,60);
M5:=MA(C,5);
M10:=MA(C,10);
M20:=MA(C,20);
M60:=MA(C,60);
M120:=MA(C,120);
TJ2:=V5>V60 AND (V5>=MA(V,10) OR V5>=MA(V,20));
TJ3:=(V5>=MA(V,10) OR V5>=V35) AND V5>=V135;
TJ21:=M5>=M10 AND M5>=M20 AND M10>=M20 AND C>M10 AND C>M20 AND C>M60 AND C>M120;
LTP:=C<100 AND FINANCE(7)/100000000<15 AND IF(NAMELIKE('*'),0,1) AND IF(NAMELIKE('S'),0,1);
MA1:=MA(C,5);
MA2:=MA(C,13);
MA3:=MA(C,21);
AQ:=MAX(MAX(MA1,MA2),MA3);
B:=MIN(MIN(MA1,MA2),MA3);
DSXN:=RANGE(100*(AQ-B)/B,0,5),100*(AQ-B)/B<13;
M6:=MA(C,60);
M7:=MA(C,89);
M8:=MA(C,120);
LD:=MAX(MAX(M6,M7),M8);
LX:=MIN(MIN(M6,M7),M8);
JXZQ:=RANGE(100*(LD-LX)/LX,0,5),100*(LD-LX)/LX<15;
JGTJ:=REF(C,1)/REF(C,2)<1.09 AND C/REF(C,1)>=1.01;
ZT:=C>REF(C,1)*1.09 AND C=H;
ZTTJ:=COUNT(REF(ZT,3),179)>0;
G8:=MA(C,8);
G13:=MA(C,13);
G89:=MA(C,89);
JXGTJ:=M5>M60 AND M5>G89 AND M5>M120 AND G13>M60 AND G13>G89 AND G13>M120 AND G8>M60 AND G8>G89 AND G8>M120;
JGTJ1:=REF(C,1)/REF(C,2)<1.08 AND C/REF(C,1)>=1.01 AND REF(C,1)>REF(MA(C,250),1) AND C>REF(MA(C,120),1) AND C>MA(C,250) AND C>MA(C,120);
GX:=(MA(C,21)-M60)/M60*100<15;
MA10:=MA(C,10);
MA54:=MA(C,54);
PL1:=(((C-MA54)/MA54)<0.1);
PL2:=(((C-MA10)/MA10)<0.3);
PP:=(((PL1=1) AND (PL2=1))*0.2);
TY:=((((PP=0) AND (REF(PP,1)=0.2)) AND (REF((COUNT((PP=0.2),10)=10),1)=1))*1);
GDXG:=TY AND (TJ2 OR TJ3) AND DSXN AND ZTTJ AND JXZQ AND GX AND JGTJ;
NGO1:=GDXG AND NEWTJ1 AND JXGTJ AND JGTJ1;
NGO2:=GDXG AND NEWTJ2;
NGIN:=COUNT(NGO2,6)>0 AND CROSS(C,MA(C,250));
GJTJA:=C>MA(C,5) AND C>MA(C,250) AND C>MA(C,10) AND C>MA(C,20) AND C>MA(C,60) AND C>MA(C,30) AND C>MA(C,120) AND C>REF(C,1);
GO:FILTER((NGO1 OR NGIN) AND GJTJA AND DYNAINFO(9)>0 AND LTP AND C/REF(C,1)>=1.013,5);