通达信短线追涨选股指标公式源码

通达信短线追涨选股指标公式源码

源码正文：

GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5)){XG51};
GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10)){XG51};
GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20)){XG51};
GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30)){XG51};
A:=BArslAst(crOSS(97,GJTJ1))<=1 AND BARSLAST(CROSS(GJTJ1,85))<=1{XG51};
B:=BARSLAST(CROSS(97,GJTJ2))<=1 AND BARSLAST(CROSS(GJTJ2,85))<=1{XG51};
A1:=A AND B{XG51};
AA:=BARSLAST(CROSS(97,GJTJ1))<=2 AND BARSLAST(CROSS(GJTJ1,85))<=1{XG51};
BA:=BARSLAST(CROSS(97,GJTJ2))<=2 AND BARSLAST(CROSS(GJTJ2,85))<=1{XG51};
A2:=AA AND BA {XG51};
AAA:=BARSLAST(CROSS(97,GJTJ1))<=3 AND BARSLAST(CROSS(GJTJ1,85))<=1{XG51};
BAA:=BARSLAST(CROSS(97,GJTJ2))<=3 AND BARSLAST(CROSS(GJTJ2,85))<=1{XG51};
A3:=AAA AND BAA {XG51};
B1:=REF(A1,1){XG51};
B2:=REF(A2,1){XG51};
B3:=REF(A3,1){XG51};
D1:=GJTJ1=100 AND GJTJ2=100  AND A1{XG51};
D2:=GJTJ1=100 AND GJTJ2=100  AND A2{XG51};
D3:=GJTJ1=100 AND GJTJ2=100  AND A3{XG51};
ENTERLONG: D1 OR D2 OR D3{X_G_5+1_C_N_{};