通达信股灾自救之八反攻痕迹主图选股源码

HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
 T:=HHVBARS(HH,0);
 TT:=BARSLAST(L=LLV(L,T+1));
 T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
 XL:=REFX(L,BARSNEXT(T1=0));
 QF:=BACKSET(T1=0,T+1);
 GG:=IF(QF,H,-999);
 GT:=BARSLAST(GG>REF(GG,1) AND GG>CONST(REF(GG,T1)));
 G1:=REF(GG,GT);
 G2T:=BARSLAST(GG>REF(GG,1) AND GG>CONST(G1));
 G2:=REF(GG,G2T);
 G3T:=BARSLAST(GG>REF(GG,1) AND GG>CONST(G2));
 G3:=REF(GG,G3T);
 G4T:=BARSLAST(GG>REF(GG,1) AND GG>CONST(G3));
 G4:=REF(GG,G4T);
高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;
 DRAWLINE(CURRBARSCOUNT=CONST(G4T)+1 AND CONST(G4T)<CONST(T),G4,ISLASTBAR,G4,0),DOTLINE,COLORWHITE;
 DRAWLINE(CURRBARSCOUNT=CONST(G3T)+1 AND CONST(G3T)<CONST(T),G3,ISLASTBAR,G3,0),DOTLINE,COLORBLUE;
 DRAWLINE(CURRBARSCOUNT=CONST(G2T)+1 AND CONST(G2T)<CONST(T),G2,ISLASTBAR,G2,0),DOTLINE,COLORGREEN;
 DRAWLINE(CURRBARSCOUNT=CONST(GT)+1 AND CONST(GT)<CONST(T),G1,ISLASTBAR,G1,0),DOTLINE,COLORMAGENTA;
低位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,XL,ISLASTBAR,REF(L,T1),0),COLORRED;


 

还是写一个选股吧 这是上穿最后防线也就是玫红色的选股 您需要绿色 白色可参照修改

HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
 T:=HHVBARS(HH,0);
 TT:=BARSLAST(L=LLV(L,T+1));
 T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
 XL:=REFX(L,BARSNEXT(T1=0));
 QF:=BACKSET(T1=0,T+1);
 GG:=IF(QF,H,-999);
 GT:=BARSLAST(GG>REF(GG,1) AND GG>CONST(REF(GG,T1)));
 G1:=REF(GG,GT);
 CROSS(C,G1);