通达信改良版OBV指标公式

M:=3;
VA:=IF(CLOSE>REF(MAX(O,C),1),vol,
IF(CLOSE<REF(MIN(O,C),1),-VOL,
((C-L)-(H-C))/(H-L)*V));
obv:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
MAOBV:MA(OBV,M);