通达信日月选股指标(源码)

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