通达信OBV导航犬指标(源码)

VARC:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
DRAWICON(CROSS(82,VARC),AV,14);
VAR6:=REF(C,1);
VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;
DRAWTEXT(CROSS(84,VAR7),AV,'逃顶'),COLORYELLOW;
{量价背离;指变盘在即!}
DV:=EMA(V,18)-EMA(V,36);
DC:=EMA(C,18)-EMA(C,36);
VC:=DV REF(DV,1) AND DC REF(DC,1);
B3:=REF(VC,2)=1 AND REF(VC,1)=1 AND VC;
B4:=REF(VC,3)=1 AND REF(VC,2)=1 AND REF(VC,1)=1 AND VC;
DRAWICON(B3 OR B4,0,40);