参数设置:ct,0,0,1 n,10,0,60 {ct=0-成交笔数 1-分段平均成交手数}
ti:=TIME; 时间间隔:=ti-ref(ti,1); {可能接收数据出故障应分析}
昨总量:"vol.昨量#day",PRECIS1,LINETHICK0;{看注释}
昨金额:"vol.昨金额#day",PRECIS1,LINETHICK0;
gg:=if(CURRENTTIME<103000, 昨总量/(240*n),1.1*llvall(ma(v,0)));
{此处网友提出了问题,于07-04-20日修改变动.原为gg:=if(CURRENTTIME<103000,INTPART( 昨总量/(240*n)),ma(v,0));}
门限:if(gg<=100,100,if(gg>100 and gg<=200,200,if(gg>200 and gg<=300,300,if(gg>300 and gg<=500,500,if(gg>500,500,1000))))),PRECIS0,LINETHICK0,color00bbff;
bu:=sum(BUYVOL,0); se:=sum(SELLVOL,0);
盘差:bu-se,PRECIS0,LINETHICK0,colorbbbbbb;
v0:=v<=门限; v2:=v>门限 and v<=门限*2; v5:=v>门限*2 and v<=门限*5;
v10:=v>门限*5 and v<=门限*10; v20:=v>门限*10;
总量:=sum(v,0);
b0:=sum(if(v0*ISBUYORDER,BUYVOL,0),0); bb0:=sum(if(v0*ISBUYORDER,1,0),0);
b2:=sum(if(v2*ISBUYORDER,BUYVOL,0),0); bb2:=sum(if(v2*ISBUYORDER,1,0),0);
b5:=sum(if(v5*ISBUYORDER,BUYVOL,0),0); bb5:=sum(if(v5*ISBUYORDER,1,0),0);
b10:=sum(if(v10*ISBUYORDER,BUYVOL,0),0);bb10:=sum(if(v10*ISBUYORDER,1,0),0);
b20:=sum(if(v20*ISBUYORDER,BUYVOL,0),0);bb20:=sum(if(v20*ISBUYORDER,1,0),0);
s0:=sum(if(v0*not(ISBUYORDER),SELLVOL,0),0); ss0:=sum(if(v0*not(ISBUYORDER),1,0),0);
s2:=sum(if(v2*not(ISBUYORDER),SELLVOL,0),0); ss2:=sum(if(v2*not(ISBUYORDER),1,0),0);
s5:=sum(if(v5*not(ISBUYORDER),SELLVOL,0),0); ss5:=sum(if(v5*not(ISBUYORDER),1,0),0);
s10:=sum(if(v10*not(ISBUYORDER),SELLVOL,0),0);ss10:=sum(if(v10*not(ISBUYORDER),1,0),0);
s20:=sum(if(v20*not(ISBUYORDER),SELLVOL,0),0);ss20:=sum(if(v20*not(ISBUYORDER),1,0),0);
DRAWTEXTABS(1,1,’ ’+STKNAME ),color00bbbb;
DRAWTEXTABS(1 ,15 , ’■小于 ’+INTPART(门限) +’单’),color00aaff;
DRAWTEXTABS(1 ,30 , ’■’+INTPART(门限)+’ →’+INTPART(门限*2) ),color8800ff;
DRAWTEXTABS(1 ,45 , ’■’+INTPART(门限*2)+’→’+INTPART(门限*5)),colorff00ff;
DRAWTEXTABS(1 ,60 , ’■’+INTPART(门限*5)+’→’+INTPART(门限*10)),coloraa88ff;
DRAWTEXTABS(1 ,75 , ’■大于’+INTPART(门限*10) +’单’),coloraa00ff;
nb:=80;
DRAWTEXTABS(nb,1,’ 买单 均/笔 总比(%) ’),color00bbbb;
DRAWTEXTABS(nb ,15 ,’: ’+b0 +’ ’+if(ct=0,bb0,INTPART(b0/bb0))+’ ’+INTPART((b0/总量)*1000)/10),color00aaff;
DRAWTEXTABS(nb ,30 ,’: ’+b2 +’ ’+if(ct=0,bb2,INTPART(b2/bb2 ))+’ ’+INTPART((b2/总量)*1000)/10),color8800ff;
DRAWTEXTABS(nb,45 ,’: ’+b5 +’ ’+if(ct=0,bb5,INTPART(b5/bb5 ))+’ ’+INTPART((b5/总量)*1000)/10),colorff00ff;
DRAWTEXTABS(nb,60 ,’: ’+b10 +’ ’+if(ct=0,bb10,INTPART(b10/bb10))+’ ’+INTPART((b10/总量)*1000)/10),coloraa88ff;
DRAWTEXTABS(nb,75 ,’: ’+b20 +’ ’+if(ct=0,bb20,INTPART(b20/bb20) )+’ ’+INTPART((b20/总量)*1000)/10),coloraa00ff;
DRAWTEXTABS(1 ,90 , ’ 总笔数:’+sum(if(vol>0,1,0),0)+’ 内外盘差:’+盘差+’ 成交总量:’+sum(v,0)+’ 昨今增减:’+INTPART((sum(v,0)/昨总量-1)*1000)/10+’%’+’ 金额:’+INTPART((sum(amount,0)/昨金额-1)*1000)/10+’%’),color00aaff;
DRAWTEXTABS(350 ,75 , ’ 成交分布统计图-StockM618制作 ’),colorffffff;
n2:=220;
DRAWTEXTABS(n2,1,’ 买单 均/笔 总比(%) ’),color00bbbb;
DRAWTEXTABS(n2,15 , ’ ’+s0 +’ ’+if(ct=0,ss0,INTPART(s0/ss0))+’ ’+INTPART((s0/总量)*1000)/10),color00ff00;
DRAWTEXTABS(n2,30 , ’ ’+s2 +’ ’+if(ct=0,ss2,INTPART(s2/ss2))+’ ’+INTPART((s2/总量)*1000)/10),color00ff00;
DRAWTEXTABS(n2,45 , ’ ’+s5 +’ ’+if(ct=0,ss5,INTPART(s5/ss5) )+’ ’+INTPART((s5/总量)*1000)/10),color00ff00;
DRAWTEXTABS(n2,60 , ’ ’+s10+’ ’+if(ct=0,ss10,INTPART(s10/ss10) )+’ ’+INTPART((s10/总量)*1000)/10),color00ff00;
DRAWTEXTABS(n2,75 , ’ ’+s20+’ ’+if(ct=0,ss20,INTPART(s20/ss20) )+’ ’+INTPART((s20/总量)*1000)/10),color00ff00;
mx:=max(b0,b2,b5,b10,b20,s0,s2,s5,s10,s20);
xx:=BARPOS; qd:=350;
bl:=72/mx; zb1:=2; zbx:=8;
DRAWRECTABS(qd+zb1+zbx*1,mx*bl,qd+zb1+zbx*2,(mx-b0)*bl,rgb(255,100,0));
DRAWRECTABS(qd+zb1+zbx*3,mx*bl,qd+zb1+zbx*4,(mx-b2)*bl,rgb(255,0,80));
DRAWRECTABS(qd+zb1+zbx*5,mx*bl,qd+zb1+zbx*6,(mx-b5)*bl,rgb(255,0,255));
DRAWRECTABS(qd+zb1+zbx*7,mx*bl,qd+zb1+zbx*8,(mx-b10)*bl,rgb(255,100,180));
DRAWRECTABS(qd+zb1+zbx*9,mx*bl,qd+zb1+zbx*10,(mx-b20)*bl,rgb(255,0,200));
DRAWRECTABS(qd+zb1+zbx*2,mx*bl,qd+zb1+zbx*3,(mx-s0)*bl,0 ),color00ff00;
DRAWRECTABS(qd+zb1+zbx*4,mx*bl,qd+zb1+zbx*5,(mx-s2)*bl,0 ),color00ff00;
DRAWRECTABS(qd+zb1+zbx*6,mx*bl,qd+zb1+zbx*7,(mx-s5)*bl,0 ),color00ff00;
DRAWRECTABS(qd+zb1+zbx*8,mx*bl,qd+zb1+zbx*9,(mx-s10)*bl,0 ),color00ff00;
DRAWRECTABS(qd+zb1+zbx*10,mx*bl,qd+zb1+zbx*11,(mx-s20)*bl,0 ),color00ff00;
wbu:=BIDVOL(1)+BIDVOL(2)+BIDVOL(3); mtb:=hhv(if(hhv(wbu,0)=wbu,ti,0),0);
wse:=ASKVOL(1)+ASKVOL(2)+ASKVOL(3); mts:=hhv(if(hhv(wse,0)=wse,ti,0),0);
买金额:=BIDVOL(1)*BIDPRICE(1)+BIDVOL(2)*BIDPRICE(2)+BIDVOL(3)*BIDPRICE(3);
卖金额:=ASKVOL(1)*ASKPRICE(1)+ASKVOL(2)*ASKPRICE(2)+ASKVOL(3)*ASKPRICE(3);
n3:=450;
DRAWTEXTABS(n3 ,1 ,’ 分 析’),color00bbbb;
DRAWTEXTABS(n3 ,15 ,’ 开盘量:’+sum(if(BARPOS=1,vol,0),0)+’ 扫盘量:’+sum(if(DISPSTATUS=2,ref(vol,1)+vol,0),0)+’ 日均价:’+DYNAINFO(11)),color00bbbb;
DRAWTEXTABS(n3 ,30 ,’ 收前五分:’+sum(if(ti>145500,1,0)*v,0)+’手 总量比:’+INTPART(sum(if(ti>145500,1,0)*v,0)/总量*1000)/10+’%’),color00bbbb;
DRAWTEXTABS(n3 ,45 ,’ 最大买单:’+hhv(wbu,0)+’ 均价:’+买金额/wbu+’ 时间:’+(mtb)),color00bbbb;
DRAWTEXTABS(n3 ,60 ,’ 最大卖单:’+hhv(wse,0)+’ 均价:’+卖金额/wse+’ 时间:’+(mts)),color00bbbb;
DRAWGBKLAST(C>0,STRIP(RGB(80,100,120),RGB(0,0,0),0)),color33ff66;
