通达信自己优化后的OBV顶底背离与自动划线公式

注册帐号两年多了,一直只是做为傍观者, 在此多谢各前辈的无私贡献与分享,让我学到了很多东西
 

OBV是个很好用的指标, 但是一直却在论坛没看到有背离提示的公式, 故自己尝试着在各前辈的指标基础上做了点优化, 由于本人水平有限,有不足之处,望大家提点.

OBV的用法就不细说了, 直接上图:

{4S专用OBV指标}
M:=30;
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),COLORWHITE,LINETHICK4;
MAOBV:MA(OBV,M),COLOR00FF00,LINETHICK1.999;
DRAWBAND(OBV,RGB(50,50,120),MAOBV,RGB(00,50,00));
UPOBV:=IF(OBV>=REF(OBV,1) AND OBV>=MAOBV,OBV,DRAWNULL);
DRAWBAND(UPOBV,RGB(50,20,20),MAOBV,RGB(00,50,00));
HIGHN:=5;
LOWN:=HIGHN;
AA:=REF(OBV,HIGHN)=HHV(OBV,2*HIGHN+1);
QY:=BACKSET(AA,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND OBV=HHV(OBV,HIGHN+1);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(OBV,DDD),OBV);{顶部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,OBV,CURRBARSCOUNT=GDCS1,OBV,1),COLORGREEN,LINETHICK1,DOTLINE;
AA1:=REF(OBV,LOWN)=LLV(OBV,2*LOWN+1);
QY1:=BACKSET(AA1,LOWN+1);
CC1:=FILTER(QY1,LOWN) AND OBV=LLV(OBV,LOWN+1);
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(OBV,DD1),OBV);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,OBV,CURRBARSCOUNT=DDCS1,OBV,1),COLORRED,LINETHICK1,DOTLINE;
DRAWLINE(CURRBARSCOUNT=GDCS2,OBV,ISLASTBAR,REF(OBV,GDCS2-1),1),COLORFFFFFF,LINETHICK1.999,DOTLINE;
DRAWLINE(CURRBARSCOUNT=GDCS1,OBV,ISLASTBAR,REF(OBV,GDCS1-1),1),COLORCYAN,LINETHICK1.999,DOTLINE;
N:=10;
OBV1:=SUM(IF(CLOSE=