通达信〖惊魂双炸〗二连涨停倍量等形态选股源码

JZF:=(O/REF(C,1)-1)*100;
ZF:=(C/REF(C,1)-1)*100;
SH:=CODELIKE('00') OR CODELIKE('60');
SZ:=CODELIKE('30') OR CODELIKE('68');
SS:=CODELIKE('4') OR CODELIKE('8');
X1:=IF(SH,0.1,IF(SZ,0.2,IF(SS,0.3,100)));
ZT:=C=H AND C>=ZTPRICE(REF(C,1),X1);
DT:=C=L AND C<=DTPRICE(REF(C,1),X1);
SB:=ZT AND COUNT(ZT,5)=1;
LBTS:=BARSLASTCOUNT(ZT);
ZB:=C< H AND H>=ZTPRICE(REF(C,1),X1);
SYX:=100*(H-MAX(C,O))/REF(C,1);
ST:=100*Abs(C-O)/REF(C,1);
XYX:=100*(MIN(C,O)-L)/REF(C,1);
BL:=V>2*REF(V,1);
VJ:=V< REF(V,1);
VS:=V>REF(V,1);
T1:=BL AND C>O AND ZB AND COUNT(EVERY(ZT AND BL AND ST>7,2),10)=0 AND HHV(LBTS,60)< 4;
N1:=BARSLAST(T1);
T2:=T1 AND REF(SUM(V,N1),1)/(V+REF(V,REF(N1,1)+1))>1.5 AND ST< 15;
N2:=BARSLAST(T2);
XG:REF(T2,N2) AND N2< 10 AND EVERY(ZT=0 AND O< REF(H,N2) AND JZF< 3 AND ZB=0,N2) AND C< REF((C+O)/2,N2) AND COUNT(C< REF((C+O)/2,N2),N2)=1 AND ZF>-9;