VMACD副图源码说明 EA-万能指标公式

VMACD副图源码说明

今天高兴送全码量潮MACD指标，此指标为飞狐，如果是其它软件请自己调整函数。量能指标仅仅供参考，必须结合形态进行分析研判

源码

DRAWGBK(DATE>900101,COLORRGB(110,95,0),COLORRGB(0,20,0),1);
rnSTICKLINE(C>0,0,0,10,0),COLORGRAY;
rnzxj:=if((H-MAX(C,O))>((MIN(C,O)-L)) AND C>L,((H+2*L)/3+3*C+2*O)/6,
rnIF((H-MAX(C,O))<((MIN(C,O)-L)) AND C<H,((2*H+L)/3+3*C+2*O)/6,((H+L)/2+3*C+2*O)/6));
rn均价:=if(DATATYPE>=6 AND DATATYPE<10,AMOUNT/(VOL*100),zxj);
rn重心:=if(STKTYPE=0,zxj,(zxj+均价)/2);
rnVV:=AMOUNT/100000000;
rnLB:=(MA(VV,1)/HHV(VV,0)+MA(VV,1)/HHV(VV,IF(N=0,0,IF(n=1,738,if(N=2,369,184)))))/2;
rnXS:=2;
rns:=if((H-MAX(C,O))>ABS(C-O)AND (MIN(C,O)-L)<ABS(C-O),(H*0.118+C*0.809+IF(H=C,C,重心)*0.073),(H*0.073+C*0.809+IF(H=C,C,重心)*0.118));
rnx:=IF((MIN(C,O)-L)>ABS(C-O)AND (H-MAX(C,O))<ABS(C-O),(L*0.118+C*0.809+IF(L=C,C,重心)*0.073),(L*0.073+C*0.809+IF(L=C,C,重心)*0.118));
rnsx:=IF(c>REF(C,1)and H>REF(H,1)AND 重心>REF(重心,1),S,IF(c<REF(C,1)and L<REF(L,1)AND 重心<REF(重心,1),X,C));
rnqr:=(0.809*C+0.191*sx);
rnobv:=SUM(IF(qr>REF(qr,1),vv,IF(qr<REF(qr,1),-vv,0)),180);
rnwobv:=(WMA(obv,2)+WMA(obv,4)+WMA(obv,8))/3;
rnsAobv:=(WMA(wobv,24)+WMA(wobv,6)+WMA(wobv,12))/3,LINEDOT,COLORFAABEC;
rnsbobv:=(WMA(sAobv,24)+WMA(sAobv,6)+WMA(sAobv,12))/3,LINEDOT;
rnskobv:=(WMA(sbobv,24)+WMA(sbobv,6)+WMA(sbobv,12))/3,LINEDOT;
rnsoobv:=(WMA(skobv,24)+WMA(skobv,6)+WMA(skobv,12))/3,LINEDOT;
rnSwobv:=((wobv+SBobv)/2+SAobv)/2,LINETHICK2;
rnDLv21:=EMA(Swobv,13);
rnDLv36:=EMA(Swobv,34);
rnDLv60:=EMA(Swobv,55);
rnrOBY:=DMA(Swobv,LB/xs);
rnsOBV:=DMA(Swobv,LB/XS/xs);
rnYOBV:=DMA(Swobv,LB/XS/XS/xs);
rnSSOBC:=DMA(Swobv,LB/XS/XS/XS/xs),COLORFAABEC,COLORRED,LINETHICK2;
rnLOBV:=DMA(Swobv,LB/XS/XS/XS/XS/xs),COLOR00bb00;
rnQROBV:(((sOBV-SSOBC)/2+(YOBV-SSOBC))/2+(((wobv-sbobv)/2+sAobv-sbobv)/2+(Swobv-DLv21)+((DLv21-DLv60)/2+DLv36-DLv60)/2))/4,COLOR00CCCC;
rnMQR:MA(qrobv,8),COLORGRAY;
rnFILLRGN(QROBV>=MQR,QROBV,MQR),COLORBROWN;
rnFILLRGN(QROBV<MQR,QROBV,MQR),COLOR00bb00,COLORBLUE;
rnOBc:((sOBV-SSOBC+rOBY-YOBV)/2+(wobv-sbobv+(wobv-soobv)/2+sAobv-skobv)/3+DLv21-DLv60)/3,COLOR7F00FF,LINETHICK2;
rnMOBv:MA(OBC,4),COLORCYAN;
rnPARTLINE(OBc<MOBv,OBc),COLOR00bb00,LINETHICK2;
rnKOBV:=2*(obc-MOBV);
rnDOBV:2*(QROBV-MQR),COLORSTICK;
rnMACDOBV:(KOBV+DOBV)/2,COLORSTICK,COLORRED;
rnSTICKLINE(MACDOBV>=0,0,MACDOBV,5,1),COLORRED;
rnSTICKLINE(MACDOBV<0,0,MACDOBV,5,1),COLOR00bb00;
rnSTICKLINE(DOBV>=0,0,DOBV,0,0),COLOR00CCCC;
rnSTICKLINE(DOBV<0,0,DOBV,0,0),COLORCYAN;
rnOBVH1:=REF(MACDOBV/2,BARSLAST(MACDOBV=HHV(MACDOBV,34))),COLOR0099FF,LINETHICK1;
rnOBVH2:REF(MACDOBV/2,BARSLAST(MACDOBV=HHV(MACDOBV,72))),COLORWHITE,LINETHICK1;
rnOBVL1:=REF(MACDOBV/2,BARSLAST(MACDOBV=LLV(MACDOBV,34))),COLORGRAY,LINETHICK2;
rnOBVL2:=REF(MACDOBV/2,BARSLAST(MACDOBV=LLV(MACDOBV,144))),COLOR0099FF,LINETHICK2;
rn大行情:=NOT(REF(OBVH1,1)=REF(OBVH2,1)) AND OBVH1=OBVH2;
rnDRAWTEXT(MACDOBV>OBVH1,OBVL2*2,’*’),COLORWHITE,ALIGN0;
rnDRAWTEXT(大行情,OBVH2*4,’★’),COLORRED,ALIGN0;
rnQGOBV:=REF(HHV(mobv,9),1),COLORFAABEC,LINEDOT;
rnQDOBV:=REF(LLV(mobv,9),1),COLORAAAA00,LINEDOT;
rn资金粘:=(MAX(obc,MAX(mobv,qrobv))-MIN(obc,MIN(mobv,qrobv)))/ABS(MIN(obc,MIN(mobv,qrobv)))*10;
rnZJGL:=(((obc-MOBV)/ABS(MobV)+(QRobV-MQR)/ABS(MQR)+((obc-qrobv)/ABS(QROBV)+(MOBV-MQR)/ABS(MQR))/2)/3)*10;
rnDSGL:=(((obc-MOBV)/ABS(MobV)+(obc-QgOBV)/ABS(QgobV)+(MobV-QDOBV)/ABS(QDobV))/3)*10;
rnSGL:=(ZJGL+DSGL)/2;
rnDRAWTEXT(CROSS(ZJGL,0)AND OBC>REF(OBC,1),QROBV*0.8,’★’),COLORYELLOW,ALIGN0;
rnDRAWTEXT(CROSS(DSGL,0)AND OBC>REF(OBC,1) AND OBC>QROBV,QROBV*1.25,’★’),COLORWHITE,ALIGN0;