以下是通达信股灾自救之八反攻痕迹主图选股源码
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);
