VOL_DDV


借网友 建立2008 的公式玩玩
由于看到网友 建立2008  的公式，觉得颜色比较鲜艳，顺手就拿来把玩一下。希望 建立2008  谅解。

VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,3,-1),COLOR00C0C0;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交:VOL,NODRAW;
主动买盘:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,NODRAW;
主动卖盘:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLOR00FF00,NODRAW;
地量:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,VOL)<LLV(IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,VOL),14)*1.001;
天量:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,VOL)/REF(V,1)>=2;
STICKLINE(主动买盘>0,0,VOL,2,1),COLORWHITE;
STICKLINE(主动买盘>V/2,0,V,2,1),COLOR3232FF;
STICKLINE(主动买盘<=V/2,0,V,2,1),COLORFFFF54;
STICKLINE(主动买盘>0,0,主动买盘,2,0),COLORRED;
STICKLINE(天量,0,主动买盘,0.5,1),COLORMAGENTA;
STICKLINE(地量>0,0,主动买盘,0.5,1),COLORYELLOW;
DDV:=主动买盘+主动卖盘,;
STICKLINE(DDV>0,0,ABS(DDV/1.5),0.5,0),COLORYELLOW;
STICKLINE(DDV<0,0,ABS(DDV/1.5),0.5,0),COLORGREEN;
DV5:MA(MA(DDV,5),2),COLORWHITE,LINETHICK2;
DV15:MA(MA(DDV,15),3),COLORYELLOW,LINETHICK2;
DV35:MA(MA(DDV,35),3),COLORMAGENTA,LINETHICK2;


上面是原公式，这里发布的是，本人只做了一点小动作：ABS(DDV/1.5) ，否则下半部好像很空虚。
简化的。好玩就玩，别当真。
{副图名：VOL_DDV  ；额外Y轴分界   值1  =  0.00}
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交:VOL,VOLSTICK;
主动买盘:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),
   IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,NODRAW;
主动卖盘:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),
   IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLOR00FF00,NODRAW;
DDV:=主动买盘+主动卖盘;
STICKLINE(DDV>0,0,ABS(DDV/1.8),0.5,0),COLORYELLOW;
STICKLINE(DDV<0,0,ABS(DDV/1.8),0.5,0),COLORFF3344;
DV5:MA(MA(DDV,5),2),COLORWHITE,LINETHICK2;
DV15:MA(MA(DDV,15),3),COLORYELLOW,LINETHICK2;
DV35:MA(MA(DDV,35),3),COLORMAGENTA,LINETHICK2;