联系方式 Contact

云指标公式网

淘宝:zb-mart.taobao.com

电话:18020657357

微信:18020657357

Q Q:396950280

点击这里给我发消息

网址:www.yzhibiao.com

搜索 Search

咏麟精密虚拟量--大智慧版本(源码 副图 贴图)

2015-4-20 17:48:11点击:

加微信:zb-mart免费验证!

{咏麟精密虚拟量}
VOL,VOLSTICK;
MS:=IF(CURRENTDATE=DATE and BETWEEN(CURRENTTIME,92959,150001),
IF(CURRENTTIME<=113000,(TIMETOT0(CURRENTTIME)-34200),
IF(BETWEEN(CURRENTTIME,113000,130000),7200,
IF(CURRENTTIME>=130000,(TIMETOT0(CURRENTTIME)-39600),0))),0);

A1:=IF(DATATYPE=8,100,
IF(DATATYPE=7,if(MOD(MS,3600)=0,3600,MOD(MS,3600)),
IF(DATATYPE=6,if(MOD(MS,1800)=0,1800,MOD(MS,1800)),
IF(DATATYPE=5,if(MOD(MS,900)=0,900,MOD(MS,900)),
IF(DATATYPE=4,if(MOD(MS,300)=0,300,MOD(MS,300)),0)))));

T8:=IF(CURRENTTIME<93000,40,
IF(CURRENTTIME<93500,40/CEILING(MS/360),
IF(CURRENTTIME<94500,80/CEILING(MS/180),
IF(CURRENTTIME<103000,120/CEILING(MS/120),
IF(CURRENTTIME<110000,240/CEILING(MS/60),14400/MS)))));

T7:=IF(CURRENTTIME<93000,12,
IF(CURRENTTIME<93400,12/CEILING(A1/300),
IF(A1<720,20/CEILING(A1/180),
IF(A1<1800,60/CEILING(A1/60),3600/A1))));

T6:=IF(CURRENTTIME<93000,6,
IF(CURRENTTIME<93300,6/CEILING(A1/300),
IF(A1<300,10/CEILING(A1/180),
IF(A1<900,30/CEILING(A1/60),1800/A1))));

T5:=IF(CURRENTTIME<93000,6,
IF(CURRENTTIME<93300,6/CEILING(A1/150),
IF(A1<105,6.923/CEILING(A1/130),
IF(A1<180,9/CEILING(A1/100),
IF(A1<600,15/CEILING(A1/60),900/A1)))));

T4:=IF(CURRENTTIME<93000,2.5,
IF(CURRENTTIME<93150,2.5/CEILING(A1/120),
IF(A1<82,3/CEILING(A1/100),
IF(A1<120,3.75/CEILING(A1/80),
IF(A1<200,5/CEILING(A1/60),300/A1)))));

TT:=IF(DATATYPE=8,T8,
IF(DATATYPE=7,T7,
IF(DATATYPE=6,T6,
IF(DATATYPE=5,T5,
IF(DATATYPE=4,T4,0)))));

VVOL:IF(RANGE(DATATYPE,3,9) AND CURRENTDATE=DATE AND CURRENTTIME>92000 AND CURRENTTIME<150000 AND A1>10 AND BARSTATUS=2,VOL*TT,VOL),LINETHICK0;
STICKLINE(BARSTATUS=2,VVOL,VOL,7.2,1),COLOR00FFFF,DOTLINE;

MA5:MA(VVOL,5),COLORWHITE;
MA35:MA(VVOL,35),COLORMAGENTA;
MA135:MA(VVOL,135),COLORGREEN;