成交量:VOL,VOLSTICK;

日交易分鐘數(shù):=if(CURRENTTIME>93000 and CURRENTTIME<150000,

if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60,

if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240);

{六十分鐘k線交易分鐘}

時交易分鐘:=if(CURRENTTIME>93000 and CURRENTTIME<150000,

if(CURRENTTIME<103000,(TIMETOT0(CURRENTTIME)-34200)/60,

if(CURRENTTIME>103000  and CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-37800)/60,

if(CURRENTTIME>130000  and CURRENTTIME<140000,(TIMETOT0(CURRENTTIME)-46800)/60,

if(CURRENTTIME>140000  and CURRENTTIME<150000,(TIMETOT0(CURRENTTIME)-50400)/60,60)))),60);

{三十分鐘k線交易分鐘}

半時交易分鐘:=if(CURRENTTIME>93000 and CURRENTTIME<150000,

if(CURRENTTIME<100000,(TIMETOT0(CURRENTTIME)-34200)/60,

if(CURRENTTIME>100000  and CURRENTTIME<103000,(TIMETOT0(CURRENTTIME)-36000)/60,

if(CURRENTTIME>103000  and CURRENTTIME<110000,(TIMETOT0(CURRENTTIME)-37800)/60,

if(CURRENTTIME>110000  and CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-39600)/60,

if(CURRENTTIME>130000  and CURRENTTIME<133000,(TIMETOT0(CURRENTTIME)-46800)/60,

if(CURRENTTIME>133000  and CURRENTTIME<140000,(TIMETOT0(CURRENTTIME)-48600)/60,

if(CURRENTTIME>140000  and CURRENTTIME<143000,(TIMETOT0(CURRENTTIME)-50400)/60,

if(CURRENTTIME>143000  and CURRENTTIME<150000,(TIMETOT0(CURRENTTIME)-52200)/60,30)))))))),30);

TT:=if(DATATYPE=8,vol*240/日交易分鐘數(shù),

if(DATATYPE=7,vol*60/時交易分鐘,

if(DATATYPE=6,vol*30/半時交易分鐘,0)));

預(yù)測成交量:IF(BARSTATUS=2,TT,0),LINETHICK0,COLORYELLOW;

STICKLINE(BARSTATUS=2,預(yù)測成交量,VOL,7,01),COLOR00FFFF,DOTLINE,LAYER7;

{以下是成交額橫柱圖}

成交額:AMOUNT/100000000,PRECIS2,LINETHICK0;

預(yù)估今日成交量:IF((DYNAINFO(7)=CLOSE), DYNAINFO(38)*DYNAINFO(17),成交量)/10000,Color0000FF,LINETHICK0,PRECIS2;

{如果最新價=收盤價，選五日均量*量比，否則就選成交量}

{預(yù)計今天成交量}

今天成交額:=AMOUNT/10000;

昨天成交額:=REF(今天成交額,1);

交易分鐘數(shù):=if(CURRENTTIME>93000 and CURRENTTIME<150000 and DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,

if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60,

if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240);

預(yù)測今天:=今天成交額/交易分鐘數(shù)*240;

 交易分時:=FRACPART( 交易分鐘數(shù)/60);

剩余分時:=交易分時*60;

剩余秒:=FRACPART( 剩余分時);

剩余秒時:=剩余秒*60;

交易小時:=交易分鐘數(shù)/60 ;

 {顯示文字}

DRAWTEXTABS(125,0,'昨天金額：' NUMTOSTRN(昨天成交額/10000,2) '億'),ColorF5FF00,LINETHICK1;

DRAWTEXTABS(125,13,'預(yù)計今天：' NUMTOSTRN(預(yù)測今天/10000,2) '億'),COLOR00FFFF,LINETHICK1;

DRAWTEXTABS(450,2,'交易時間：' INTPART(交易小時) '小時' NUMTOSTRN(剩余分時,0) '分' NUMTOSTRN(剩余秒時,0) '秒' '  已成交金額' '：' NUMTOSTRN(今天成交額/10000,2) '億元'),ColorF5FF00,LINETHICK2,PRECIS2;

DRAWFLAGTEXT(1,V,'<*t=80FF00*><*c=0000FF*><*p=95*>' datestr(date) '\n' '<*t=E7FFFF*><*c=111100*><*p=95*>' '成交量 ' 成交量 '<*t=E7FFFF*><*c=0000FF*><*p=95*>' '  成交額' NUMTOSTRN(成交額*10000,0) '萬元');

 {柱圖}

圖長度像素:=230*0.5;

昨天圖長度:=230 圖長度像素;

預(yù)測今天圖:=(預(yù)測今天/昨天成交額)*圖長度像素 230;

目前成交圖:=(今天成交額/昨天成交額)*圖長度像素 230;

DRAWRECTABS(230,1,昨天圖長度,9 ,RGB(0,255,150));

DRAWRECTABS(230,13,目前成交圖, 23 ,RGB(255,73,20));

DRAWRECTABS(230,16,預(yù)測今天圖,20 ,RGB(255,255,0));