资金潮 副图源码

此指标OBV中的参数180是可以调整的。在此指标中，这次连同一些提示性的信号也一并发出，仅仅供参考，且不可作为操作信号。


STICKLINE(C>0,0,0,10,0),COLORGRAY;

VV:=AMOUNT/100000000;
LB:=MA(VV,1)/HHV(VV,0);

XS:=2;
obv:=SUM(IF(C>REF(C,1),vv,IF(C<REF(C,1),-vv,0)),180);
wobv:=EMA(obv,3);
rOBY:=DMA(obv,LB/xs);
sOBV:=DMA(obv,LB/XS/xs);
YOBV:=DMA(obv,LB/XS/XS/xs);
SSOBC:=DMA(obv,LB/XS/XS/XS/xs);
LOBV:=DMA(obv,LB/XS/XS/XS/XS/xs);
QROBV:((SSOBC-LOBV+(YOBV-LOBV)/2+(sOBV-LOBV)/3+(rOBY-LOBV)/4+(wobv-LOBV)/5)/5),COLOR00CCCC;
MQR:MA(qrobv,8),COLORGRAY;

OBc:((rOBY-LOBV)/2+(sOBV-SSOBC+YOBV-LOBV)/2+wobv-sOBV)/3,COLOR7F00FF,LINETHICK2;
MOBv:MA(OBC,4),COLORCYAN;
PARTLINE(OBc<MOBv,OBc),COLOR00bb00,LINETHICK2;
KOBV:=2*(obc-MOBV);
DOBV:2*(QROBV-MQR),COLORSTICK;
MACDOBV:(KOBV+DOBV)/2,COLORSTICK,COLORRED;
STICKLINE(MACDOBV>=0,0,MACDOBV,1,1),COLORRED;
STICKLINE(MACDOBV<0,0,MACDOBV,1,1),COLOR00bb00;

STICKLINE(DOBV>=0,0,DOBV,0,0),COLOR00CCCC;
STICKLINE(DOBV<0,0,DOBV,0,0),COLORCYAN;

OBVH1:=REF(MACDOBV/2,BARSLAST(MACDOBV=HHV(MACDOBV,36)));
OBVH2:REF(MACDOBV/2,BARSLAST(MACDOBV=HHV(MACDOBV,72)));

大行情:=NOT(REF(OBVH1,1)=REF(OBVH2,1)) AND OBVH1=OBVH2;
DRAWTEXT(MACDOBV>OBVH1,OBVL2*2,'*'),COLORWHITE;
DRAWTEXT(大行情,OBVH2*4,'★'),COLORRED;

QGOBV:=REF(HHV(mobv,9),1),COLORFAABEC;
QDOBV:=REF(LLV(mobv,9),1),COLORAAAA00;

ZJGL:=(((obc-MOBV)/ABS(MobV)+(QRobV-MQR)/ABS(MQR)+((obc-qrobv)/ABS(QROBV)+(MOBV-MQR)/ABS(MQR))/2)/3)*10;
DSGL:=(((obc-MOBV)/ABS(MobV)+(obc-QgOBV)/ABS(QgobV)+(MobV-QDOBV)/ABS(QDobV))/3)*10;
SGL:=(ZJGL+DSGL)/2;
DRAWTEXT(CROSS(ZJGL,0)AND OBC>REF(OBC,1),QROBV*0.8,'★'),COLORYELLOW;
DRAWTEXT(CROSS(DSGL,0)AND OBC>REF(OBC,1) AND OBC>QROBV,QROBV*1.25,'★'),COLORWHITE;