大家好，我是讯享网，很高兴认识大家。

提示：通达信虚拟成交量指标源码改编文华六大类

虚拟成交量其实就是假设我们当前的成交量的情况，在今天接下来的时间内连续下来的话，那么我们现在提前估算一下，一天结束之后它的成交量会是多少?　这个就是虚拟成交量的意思。

MTIME:=MOD(FROMOPEN,TOTAL);

CTIME:=IF(MTIME<0.5,TOTAL,MTIME);

VVOL:IF((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VOL*(TOTAL+3)/(CTIME+3),DRAWNULL),NODRAW;

STICKLINE((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VVOL,0,-1,-1),COLOR00C0C0;

VOLUME:VOL,VOLSTICK

该指标中FROMOPEN函数无法直接改写，需要根据加载的合约，针对修改。该指标需要在盘中5分钟、15分钟、30分钟、1小时、日线周期加载

主要分成几种情况：

1、股票、股指合约源码：

N:=BARSLAST(DATE<>REF(DATE,1))+1;

X:=CURRENTTIME;

Q:MOD(INTPART(X/100),100),NODRAW;

VV:=SUM(V,N);

XX:=INTPART(X/10000);

FROMOPEN:=IF(XX<12,60*(XX-9)-30+Q,120+60*(XX-13)+Q)+1;

TOTAL:IF(PERIOD=3,5,IF(PERIOD=5,15,IF(PERIOD=6,30,IF(PERIOD=7,60,IF(PERIOD=8,240,IF(PERIOD=4,10,1)))))),NODRAW;

MTIME:MOD(FROMOPEN,TOTAL),NODRAW;

CTIME:IF(MTIME<0.5,TOTAL,MTIME),NODRAW;

A:=X>=93000&&X<=||X>=&&X<=;

VVOL:IF((ISLASTBAR AND VV>1),VOL*(TOTAL+3)/(CTIME+3),NULL),NODRAW;

STICKLINE((ISLASTBAR && A ),VVOL,0,COLOR00C0C0,1);

VOLUME:VOL,VOLSTICK;

2、有夜盘23点收盘源码：

N:=BARSLAST(DATE<>REF(DATE,1))+1;

X:=CURRENTTIME;

Q:MOD(INTPART(X/100),100),NODRAW;

VV:=SUM(V,N);

XX:=INTPART(X/10000);

FROMOPEN:IF(XX>=21,60*(XX-21)+Q,IF(X<=,120+60*(XX-9)+Q,

IF(X>=&&X<=,195+60*(XX-10)-30+Q,255+60*(XX-13)-30+Q)))+1,NODRAW;

TOTAL:IF(PERIOD=3,5,IF(PERIOD=5,15,IF(PERIOD=6,30,IF(PERIOD=7,60,IF(PERIOD=8,345,IF(PERIOD=4,10,NULL)))))),NODRAW;

MTIME:MOD(FROMOPEN,TOTAL),NODRAW;

CTIME:=IF(MTIME<0.5,TOTAL,MTIME),NODRAW;

A:=X>=90000&&X<=||X>=&&X<=||X>=&&X<=||X>=&&X<=;

VVOL:IF((ISLASTBAR AND VV>1),VOL*(TOTAL+3)/(CTIME+3),NULL),NODRAW;

STICKLINE((ISLASTBAR && A ),VVOL,0,COLOR00C0C0,1);

VOLUME:VOL,VOLSTICK;

讯享网

3、有夜盘凌晨1点收盘：铜、铝、锌、铅、镍、锡源码

N:=BARSLAST(DATE<>REF(DATE,1))+1;

X:=CURRENTTIME;

Q:MOD(INTPART(X/100),100),NODRAW;

VV:=SUM(V,N);

XX:=INTPART(X/10000);

FROMOPEN:IF(XX>=21,60*(XX-21)+Q,IF(TIME<800,180+Q,

IF(X<=&&X>=90000,240+60*(XX-9)+Q,

IF(X>=&&X<=,315+60*(XX-10)-30+Q,390+60*(XX-13)-30+Q))))+1,NODRAW;

TOTAL:IF(PERIOD=3,5,IF(PERIOD=5,15,IF(PERIOD=6,30,IF(PERIOD=7,60,IF(PERIOD=8,510,IF(PERIOD=4,10,NULL)))))),NODRAW;

MTIME:MOD(FROMOPEN,TOTAL),NODRAW;

CTIME:=IF(MTIME<0.5,TOTAL,MTIME),NODRAW;

VVOL:IF((ISLASTBAR ),VOL*(TOTAL+3)/(CTIME+3),NULL),NODRAW;

A:=X>=90000&&X<=||X>=&&X<=||X>=&&X<=||X>=||X<=10000;

STICKLINE((ISLASTBAR &&A ),VVOL,0,COLOR00C0C0,1);

VOLUME:VOL,VOLSTICK;

4、有夜盘凌晨2点半收盘：金 银 原油

N:=BARSLAST(DATE<>REF(DATE,1))+1;

X:=CURRENTTIME;

Q:MOD(INTPART(X/100),100),NODRAW;

VV:=SUM(V,N);

XX:=INTPART(X/10000);

FROMOPEN:IFELSE(XX>=21,60*(XX-21)+Q,IFELSE(X<=23000,180+Q+60*XX,IFELSE(X<90000&&X>=23000,330,

IFELSE(X>=90000&&X<=,330+60*(XX-9)+Q,

IFELSE(X>=&&X<=,405,

IFELSE(X>=&&X<=,405+60*(XX-10)-30+Q,

IFELSE(X>&&X<=,465,465+60*(XX-13)-30+Q)))))))+1;

TOTAL:IFELSE(PERIOD=3,5,IFELSE(PERIOD=5,15,IFELSE(PERIOD=6,30,IFELSE(PERIOD=7,60,IFELSE(PERIOD=8,585,IFELSE(PERIOD=4,10,NULL)))))),NODRAW;

MTIME:MOD(FROMOPEN,TOTAL),NODRAW;

CTIME:=IFELSE(MTIME<0.5,TOTAL,MTIME),NODRAW;

VVOL:IFELSE((ISLASTBAR ),VOL*(TOTAL+3)/(CTIME+3),NULL),NODRAW;

A:=X>=||X<=;

STICKLINE((ISLASTBAR &&A ),VVOL,0,COLOR00C0C0,1);

VOLUME:VOL,VOLSTICK;

5、无夜盘商品期货合约源码：

N:=BARSLAST(DATE<>REF(DATE,1))+1;

X:=CURRENTTIME;

Q:MOD(INTPART(X/100),100),NODRAW;

VV:=SUM(V,N);

XX:=INTPART(X/10000);

FROMOPEN:IF(X<=,60*(XX-9)+Q,IF(X>=&&X<=,

75+60*(XX-10)-30+Q,IF(X<,135+60*(XX-13)-30+Q,NULL)))+1,NODRAW;

TOTAL:IF(PERIOD=3,5,IF(PERIOD=5,15,IF(PERIOD=6,30,IF(PERIOD=7,60,IF(PERIOD=8,255,IF(PERIOD=4,10,NULL)))))),NODRAW;

MTIME:MOD(FROMOPEN,TOTAL),NODRAW;

CTIME:IF(MTIME<0.5,TOTAL,MTIME),NODRAW;

VVOL:IF((ISLASTBAR),VOL*(TOTAL+3)/(CTIME+3),NULL),NODRAW;

A:=X>=90000&&X<=||X>=&&X<=||X>=&&X<=;

STICKLINE((ISLASTBAR &&A ),VVOL,0,COLOR00C0C0,1);

VOLUME:VOL,VOLSTICK;

6、中金所、五债、十债源码：

N:=BARSLAST(DATE<>REF(DATE,1))+1;

X:=CURRENTTIME;

Q:MOD(INTPART(X/100),100),NODRAW;

VV:=SUM(V,N);

XX:=INTPART(X/10000);

FROMOPEN:IF(X<=,60*(XX-9)+Q-15,135+60*(XX-13)+Q)+1,NODRAW;

TOTAL:IF(PERIOD=3,5,IF(PERIOD=5,15,IF(PERIOD=6,30,IF(PERIOD=7,60,IF(PERIOD=8,240,IF(PERIOD=4,10,NULL)))))),NODRAW;

MTIME:MOD(FROMOPEN,TOTAL),NODRAW;

CTIME:=IF(MTIME<0.5,TOTAL,MTIME),NODRAW;

VVOL:IF((ISLASTBAR ),VOL*(TOTAL+3)/(CTIME+3),NULL),NODRAW;

A:=X>=91500&&X<=||X>=&&X<=;

STICKLINE((ISLASTBAR &&A ),VVOL,0,COLOR00C0C0,1);

VOLUME:VOL,VOLSTICK;