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);
{www.9m8.cn 九毛八公式指标网 股票软件下载网_最新股票指标公式}
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;
