通达信资金潮副图公式 说明 源码

以下是通达信资金潮副图公式 说明 源码

资金潮副图公式 说明 源码

此指标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;