急 .高手帮写一个通达信选股公式

Question

VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
MA130:=MA(OBV,M);
DRAWBAND(MA130,RGB(0,0,80),OBV1,RGB(160,0,000));
A1:=REF(OBV1,N)=HHV(OBV1,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);
T线:REF(OBV,BARSLAST(D1)),COLORFF00FF,NODRAW;
STICKLINE(C>0,T线,T线,6,0),COLORMAGENTA;
DRAWICON(CROSS(OBV,T线),T线*0.99,1);
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
MA30:MA(OBV,M); 参数 m 1 50 30 ; n 1 50 15; 图中出现红色箭头处，做成选股公式把它选出，流通股本<3亿，股价大于5元。

Answer 1

N:=15;
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
A1:=REF(OBV1,N)=HHV(OBV1,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);
T线:=REF(OBV,BARSLAST(D1));
XG:CROSS(OBV,T线) AND CAPITAL/1000000<3 AND C>5;

不过这有未来函数，：C1:=BACKSET(B1,N+1);
不宜用于选股。过后会无信号；

Answer 2

N:=15;
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
A1:=REF(OBV1,N)=HHV(OBV1,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);
T线:=REF(OBV,BARSLAST(D1));
XG:CROSS(OBV,T线) AND CAPITAL<3000000 AND C>5;

(已测试。复制可直接使用）