成交量虚拟量:IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1)),0);
STICKLINE(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VOL,MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1)),7,-21),COLOR00C0C0;
成交量:VOL,VOLSTICK,ColorFFFFFF;
C3:=REF(C,1);
涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(涨停,VOL,0,6,0),COLORRED;
STICKLINE(跌停,VOL,0,6,0),COLORYELLOW;
DRAWTEXTABS(5,5,'《红实色涨停》'),COLORRED ,LINETHICK2;
DRAWTEXTABS(5,25,'《黄实色跌停》'),COLORYELLOW,LINETHICK2;
{预计今天成交量}
今天成交额:=AMOUNT/10000;
昨天成交额:=REF(今天成交额,1);
交易分钟数:=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);
预测今天:=今天成交额/交易分钟数*240;
交易分时:=FRACPART( 交易分钟数/60);
剩余分时:=交易分时*60;
剩余秒:=FRACPART( 剩余分时);
剩余秒时:=剩余秒*60;
交易小时:=交易分钟数/60 ;
{显示文字}
DRAWTEXTABS(125,0,'昨天金额：'+NUMTOSTRN(昨天成交额/10000,2)+'亿'),ColorF5FF00,LINETHICK1;
DRAWTEXTABS(125,13,'预计今天：'+NUMTOSTRN(预测今天/10000,2)+'亿'),COLOR00FFFF,LINETHICK1;
DRAWTEXTABS(450,2,'交易时间：'+INTPART(交易小时)+'小时'+NUMTOSTRN(剩余分时,0)+'分'+NUMTOSTRN(剩余秒时,0)+'秒'+' 已成交金额'+'：'+NUMTOSTRN(今天成交额/10000,2)+'亿元'),ColorF5FF00,LINETHICK2,PRECIS2;
{www.88gs.com}
{柱图}
图长度像素:=230*0.5;
昨天图长度:=230+图长度像素;
预测今天图:=(预测今天/昨天成交额)*图长度像素+230;
目前成交图:=(今天成交额/昨天成交额)*图长度像素+230;
DRAWRECTABS(230,1,昨天图长度,9 ,RGB(0,255,150));
DRAWRECTABS(230,13,目前成交图, 23 ,RGB(255,73,20));
DRAWRECTABS(230,16,预测今天图,20 ,RGB(255,255,0)); |
