通达信指标——新OBV(副图)

V A:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);

OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,V A),0),LINETHICK2,COLOR00FF00;

IF(OBV>=REF(OBV,1), OBV ,DRAWNULL),LINETHICK2,COLORRED;

MAOBV:MA(OBV,30),COLOR0000FF,LINETHICK1;

MAOBV1:MA(OBV,13),COLORFF00FF,LINETHICK1;

MAOBV2:MA(OBV,5),COLORFFFFFF,LINETHICK1;

TJ1:=CROSS(OBV,MAOBV2) AND MAOBV2 > REF(MAOBV2,1) AND OBV/MAOBV < 1.021;

TJ11:=FILTER(TJ1,5);

TJ2:=FILTER(CROSS(MAOBV2,MAOBV1),5);

TJ3:=COUNT(CROSS(OBV,MAOBV2) OR CROSS(OBV,MAOBV1)

OR CROSS(OBV,MAOBV),5) > 2 AND MAOBV > REF(MAOBV,1);

TJ33:=FILTER(TJ3,5);

DRAWICON(TJ11,MAOBV,23);

DRAWICON(TJ33,MAOBV,26);

DRAWICON(TJ2,MAOBV1,25);

QC:=FILTER(COUNT(TJ11 OR TJ33 OR TJ2,3) >= 2,3);

DRAWTEXT(QC,OBV,'全仓'),COLORFF00FF;

STICKLINE(QC,MAOBV,OBV,3,0),COLOR0000FF;