8
INPUT:M1(5,1,10),M2(10,5,30),M3(20,10,60);
成交量:VOL,PRECIS0,LINETHICK0;
成交额:AMOUNT/100000000,PRECIS2,LINETHICK0;
{预计今天成交量}
今天成交额:=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;
JE:=vol;
SJ:=if(CURRENTTIME>93000 and CURRENTTIME<150000,
if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60,
if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240);
预测量:IF(BARSTATUS=2,JE/SJ*240,JE),COLOR00FFFF,LINETHICK0;
STICKLINE(BARSTATUS=2,0,预测量,10,1),COLORgreen,DOTLINE,LAYER7;
五日均量:MA(VOL,M1),PRECIS2,LINETHICK1;
十日均量:MA(VOL,M2),PRECIS2,LINETHICK1;
廿日均量:MA(VOL,M3),PRECIS2,LINETHICK1;
预估今日成交量:IF((DYNAINFO(7)=CLOSE), DYNAINFO(38)*DYNAINFO(17),成交量)/10000,Color0000FF,LINETHICK0,PRECIS2;
{如果最新价=收盘价，选五日均量*量比，否则就选成交量}
FILLRGN(五日均量,十日均量,五日均量>=十日均量,RGB(255,0,0),五日均量<=十日均量,RGB(0,255,0));
{当五日均量>=十日均量时为红色飘带，反之为绿色飘带}
TODAY:="ddx.ddx"<>0;{判断是否有正版数据}
特大买入:=IF(TODAY,bigorder(1,3),"DATA@DDE"(4));
特大卖出:=IF(TODAY,bigorder(2,3),"DATA@DDE"(5));
特大净买:=特大买入-特大卖出;
大单买入:=IF(TODAY,bigorder(1,2)-bigorder(1,3),"DATA@DDE"(6)-"DATA@DDE"(4));
大单卖出:=IF(TODAY,bigorder(2,2)-bigorder(2,3),"DATA@DDE"(7)-"DATA@DDE"(5));
大单净买:=大单买入-大单卖出;
中单买入:=IF(TODAY,bigorder(1,1)-bigorder(1,2),"DATA@DDE"(8)-"DATA@DDE"(6));
中单卖出:=IF(TODAY,bigorder(2,1)-bigorder(2,2),"DATA@DDE"(9)-"DATA@DDE"(7));
中单净买:=中单买入-中单卖出;
小单买入:=IF(TODAY,1-bigorder(1,1),1-"DATA@DDE"(8));
小单卖出:=IF(TODAY,1-bigorder(2,1),1-"DATA@DDE"(9));
小单净买:=小单买入-小单卖出;
总净:=if(特大净买>0,特大净买,0)+if(大单净买>0,大单净买,0)+if(中单净买>0,中单净买,0)+if(小单净买>0,小单净买,0);
特净:=if(特大净买>0,(特大净买/总净)*VOL,0);
大净:=if(大单净买>0,(大单净买/总净)*VOL+特净,0);
中净:=IF(中单净买>0,(中单净买/总净)*VOL+特净+大净,0);
小净:=IF(小单净买>0,(小单净买/总净)*VOL+特净+大净+中净,0);
STICKLINE(成交量>0,成交量,0,7.5,0),Color0E96A9;{黄色柱表示主力的净买量}
STICKLINE(成交量>0,成交量,0,7,0),Color10A7BC;{黄色框2}
STICKLINE(成交量>0,成交量,0,6,0),Color11B5CC;{黄色框3}
STICKLINE(成交量>0,成交量,0,5,0),Color13C6DF;{黄色框4}
STICKLINE(成交量>0,成交量,0,4,0),Color1CD2EC;{黄色框5}
STICKLINE(成交量>0,成交量,0,2,0),Color39D8EE;{黄色框6}
STICKLINE(成交量>0,成交量,0,0.5,0),ColorFFFFFF;{黄色框7}
STICKLINE(小净>0,0,小净,7.5,0),Color006400;{绿色柱为散户的净买量}
STICKLINE(小净>0,0,小净,7,0),Color007500;{绿柱2}
STICKLINE(小净>0,0,小净,6,0),Color008400;{绿柱3}
STICKLINE(小净>0,0,小净,5,0),Color009900;{绿柱4}
STICKLINE(小净>0,0,小净,4,0),Color00AE00;{绿柱5}
STICKLINE(小净>0,0,小净,2,0),Color00BD00;{绿柱6}
STICKLINE(小净>0,0,小净,0.5,0),Color8EFF8E;{绿柱7}
STICKLINE(中净>0,0,中净,7.5,0),ColorCA6500;{蓝色柱为中户的净买量}
STICKLINE(中净>0,0,中净,7,0),ColorE17100;{蓝柱2}
STICKLINE(中净>0,0,中净,6,0),ColorF27900;{蓝柱3}
STICKLINE(中净>0,0,中净,5,0),ColorFF850B;{蓝柱4}
STICKLINE(中净>0,0,中净,4,0),ColorFF9326;{蓝柱5}
STICKLINE(中净>0,0,中净,2,0),ColorFFA042;{蓝柱6}
STICKLINE(中净>0,0,中净,0.5,0),colorFFFF00;{蓝柱7}
STICKLINE(大净>0,0,大净,7.5,0),ColorA200A2;{玫红柱为大户的净买量}
STICKLINE(大净>0,0,大净,7,0),ColorB700B7;{玫红柱2}
STICKLINE(大净>0,0,大净,6,0),ColorCE00CE;{玫红柱3}
STICKLINE(大净>0,0,大净,5,0),ColorE800E8;{玫红柱4}
STICKLINE(大净>0,0,大净,4,0),ColorFF00FF;{玫红柱5}
STICKLINE(大净>0,0,大净,2,0),ColorFF60FF;{玫红柱6}
STICKLINE(大净>0,0,大净,0.5,0),ColorFFD2FF;{玫红柱7}
STICKLINE(特净>0,0,特净,7.5,0),color070084;{红柱为特户的净买量}
STICKLINE(特净>0,0,特净,7,0),color0000A3;{红柱2}
STICKLINE(特净>0,0,特净,6,0),color0000B7;{红柱3}
STICKLINE(特净>0,0,特净,5,0),color0000CD;{红柱4}
STICKLINE(特净>0,0,特净,4,0),color0000E9;{红柱5}
STICKLINE(特净>0,0,特净,2,0),color0754E9;{红柱6}
STICKLINE(特净>0,0,特净,0.5,0),Color68B8FF;{红柱7}
交易分时:=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;
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+图长度像素;
预测今天图:=(预测今天/昨天成交额)*图长度像素+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));
{立柱说明}
DRAWRECTREL( 0,140,50,700,RGB(20,20,20));
DRAWRECTREL( 0,140,15,280,RGB(0,255,0));
DRAWTEXTREL(20,180,'散户'),COLOR00FF00;
DRAWRECTREL( 0,280,15,420,RGB(0,255,255));
DRAWTEXTREL(20,320,'中户'),COLORFFFF00;
DRAWRECTREL( 0,420,15,560,RGB(200,0,200));
DRAWTEXTREL(20,460,'大户'),COLORFF00FF;
DRAWRECTREL( 0,560,15,700,RGB(255,25,0));
DRAWTEXTREL(20,600,'超户'),COLOR0025FF;
DRAWTEXTREL(0,0,'成交量'),COLORYELLOW;
{DRAWTEXTREL(600,900,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00;}
DRAWTEXTABS(35,0,'《夏卫东-自编》'),COLOR0000FF;
成交量.FNC
(13.75 KB, 下载次数: 12)
