通达信启动盘整突破三区间主图及选股指标(源码)

M20:MA(C,20);
ZT:=C>REF(C,1)*1.095 AND C=H;
A:=BARSLASTCOUNT(ZT);
T1:=BARSLAST(A>=2);
TJ1:=H/REF(C,1)>=1.095 AND C<H;
TJ2:=COUNT(TJ1,T1+1)=1 AND TJ1 ;
T2:=BARSLAST(TJ2);
ZF:=(HHV(H,T2+1)-LLV(L,T2+1))/LLV(L,T2+1)*100;
TJ3:=EVERY(C>=MA(C,20) AND V<REF(V,T2),T2) AND BETWEEN(T2,5,20) AND ZF<15;
TJ4:=ZT AND V>REF(V,1) AND H=HHV(H,T2+1) AND A=1;
XG:=REF(TJ3,1) AND TJ4 AND T1-T2>0;
QF:=BACKSET(XG,T2+1);
QT1:=BARSLAST(CROSS(QF=1,0.5));
QF2:=BACKSET(QT1=0,BARSLAST(ZT)+1);
QT2:=BARSLAST(CROSS(QF2=1,0.5) AND A>1);
QF3:=BACKSET(QT2=0,BARSLAST(A=1)+1);
QT3:=BARSLAST(CROSS(QF3=1 AND A=1,0.5));
STICKLINE(QF3=1,C,O,2,0),COLORYELLOW;
STICKLINE(QF3=1,H,L,0,0),COLORYELLOW;
DRAWLINE(QT1=0,H,XG,REF(H,QT1),0),COLORMAGENTA,DOTLINE;
DRAWTEXT(QT3=0,H*1.35,"启"),COLORYELLOW;
DRAWTEXT(QT3=0,H*1.2,"动"),COLORYELLOW;
DRAWTEXT(QT3=0,H*1.05,"区"),COLORYELLOW;
DRAWTEXT(QT1=0,H*1.05,"横盘区"),COLORMAGENTA;
STICKLINE(XG,C,O,2,0),COLORWHITE;
STICKLINE(XG,H,L,0,0),COLORWHITE;
DRAWICON(XG,L*0.95,11);

{
选股公式:

ZT:=C>REF(C,1)*1.095 AND C=H;
A:=BARSLASTCOUNT(ZT);
T1:=BARSLAST(A>=2);
TJ1:=H/REF(C,1)>=1.095 AND C<H;
TJ2:=COUNT(TJ1,T1+1)=1 AND TJ1 ;
T2:=BARSLAST(TJ2);
ZF:=(HHV(H,T2+1)-LLV(L,T2+1))/LLV(L,T2+1)*100;
TJ3:=EVERY(C>=MA(C,20) AND V<REF(V,T2),T2) AND BETWEEN(T2,5,20) AND ZF<15;
TJ4:=ZT AND V>REF(V,1) AND H=HHV(H,T2+1) AND A=1;
XG:REF(TJ3,1) AND TJ4 AND T1-T2>0;
}