通达信双针探底（鹏腾2009版本）源码主图选股

{主图}
TJ:=MIN(O,C)/L>1.04;
 T1:=BARSLAST(TJ);
 T2:=REF(T1,T1+1)+T1+1;
 T3:=CONST(T2-T1<=30 AND BETWEEN(REF(L,T1)-REF(L,T2),0.01,-0.01));
 A:=T3 AND CURRBARSCOUNT=CONST(T2)+1;
 B:=T3 AND CURRBARSCOUNT=CONST(T1)+1;
 E:DRAWLINE(A,L,B,L,1),DOTLINE,COLORYELLOW;
 D:=BARSLAST(B);
 DRAWICON(COUNT(C>REF(H,D),D+1)=1 AND C>REF(H,D),C,9);
 DRAWTEXT(ISLASTBAR,E,'双针探底'),COLORCYAN;
 IF(B,L,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK3;
 IF(A,L,DRAWNULL),CIRCLEDOT,COLORRED,LINETHICK3;

 {选股}
TJ:=MIN(O,C)/L>1.04;
 T1:=BARSLAST(TJ);
 T2:=REF(T1,T1+1)+T1+1;
 T3:=CONST(T2-T1<=30 AND BETWEEN(REF(L,T1)-REF(L,T2),0.01,-0.01));
 B:=T3 AND CURRBARSCOUNT=CONST(T1)+1;
 D:=BARSLAST(B);
 COUNT(C>REF(H,D),D+1)=1 AND C>REF(H,D);