软件名称：[B]咏麟精密虚拟量 日周期以下(源码 副图 贴图)[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2011-08-08 06:59:40
软件简介:

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

IF DATATYPE=6 Then begin
   A1:=30;
   T1:=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<133000,240/CEILING(MS/60),14400/MS)))));
END;
ELSE IF DATATYPE=5 Then begin
    A1:=if(MOD(MS,3600)=0,3600,MOD(MS,3600));
    T1:=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),60/A1/60))));
END;
ELSE IF DATATYPE=4 Then begin
    A1:=if(MOD(MS,1800)=0,1800,MOD(MS,1800));
    T1:=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),30/A1/60))));
END;
ELSE IF DATATYPE=3 Then begin
    A1:=if(MOD(MS,900)=0,900,MOD(MS,900));
    T1:=IF(CURRENTTIME<93000,6,
        IF(CURRENTTIME<93300,6/CEILING(A1/150),
        IF(A1<105,6.93/CEILING(A1/130),
        IF(A1<180,9/CEILING(A1/100),
        IF(A1<600,15/CEILING(A1/60),15/A1/60)))));
END;
ELSE IF DATATYPE=2 Then begin
    A1:=if(MOD(MS,300)=0,300,MOD(MS,300));
    T1:=IF(CURRENTTIME<93000,2.5,
        IF(CURRENTTIME<93150,2.5/CEILING(A1/120),
        IF(A1<60,3/CEILING(A1/100),
        IF(A1<120,3.75/CEILING(A1/80),
        IF(A1<200,5/CEILING(A1/60),5/A1/60)))));
END;
VVOL:IF(RANGE(DATATYPE,1,7) AND CURRENTDATE=DATE AND CURRENTTIME>92000 AND CURRENTTIME<150000 AND A1>10 AND BARSTATUS=2,VOL*T1,VOL),LINETHICK0;
STICKLINE(BARSTATUS=2,VVOL,VOL,7.2,01),COLOR00FFFF,LINEDOT;

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

[url=http://www.70822.com/soft/sort013/sort02/down-37349.html]咏麟精密虚拟量 日周期以下(源码 副图 贴图)[/url]