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

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

源码正文：

N:=16{XG51};
A1:=REF(H,n)=HHV(H,2*N+1){XG51};
B1:=FILTER(A1,N){XG51};
C1:=BacKSET(B1,N+1){XG51};
D1:=FILTER(C1,N){XG51};
A2:=REF(L,n)=LLV(L,2*N+1){XG51};
B2:=FILTER(A2,N){XG51};
C2:=BACKSET(B2,N+1){XG51};
D2:=FILTER(C2,N){XG51};
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2{XG51};
E2:=(H+L)/2{XG51};
H1:=(D1 AND NOT(D2 AND E1>=E2))  OR BARSCOUNT(C)=1{XG51};
L1:=(D2 AND NOT(D1 AND E1<E2)){XG51};
H2:=D1 AND NOT(D2 AND E1>=E2){XG51};
X1:=REF(BArslAst(H1),1)+1{XG51};
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1)){XG51};
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2){XG51};
LD:=I1>REF(I1,1){XG51};
L2:=LD OR BARSCOUNT(C)=1{XG51};
X2:=REF(BARSLAST(L2),1)+1{XG51};
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2)){XG51};
G2:=F2>REF(F2,1){XG51};
I2:=BACKSET(G2,2){XG51};
HD:=I2>REF(I2,1){XG51};
TSHD:=IF(BARSLAST(LD)>=BARSLAST(HD),BARSLAST(HD),0){XG51};
crOSS(C,REF(H,REF(TSHD,1))) AND C>O or C>REF(H,REF(TSHD,1)) AND C>O{X_G!5^1_C_N_{};