 | |  |  |
飞狐分笔筹码源码公式 ：
DRAWGBK(C>0,colorRGB(80,100,120),colorRGB(0,0,0),1),color33ff66;
x:=BARPOS-SYSPARAM(2); ax:=x[datacount],LINETHICK0;
ti0:=TIME0-ref(TIME0,1); {数据质量分析};
ti:if(BARPOS<=2 or ti0>=5000,1,ti0),PRECSION0,LINETHICK0,colorffffff;
最大间隔:hhv(ti,0),PRECISION0,LINETHICK0,colorffffff;
rzv:="vvol.昨量#day";{注意另建引用公式 名 vvol vv:vol; 昨量:ref(vv,1); 昨金额:ref(amount,1); 均价:=amount/v/100; 昨均:ref(均价,1);}
mx:=INTPART((rzv/(240*6)+5)/10)*10;{相对昨日量}
v0:=BETWEEN(v,0,mx*2+1); v2:=BETWEEN(v,mx*2,mx*5+1);
v5:=BETWEEN(v,mx*5,mx*10+1); v10:=v>mx*10; {也可定义，中20000-大50000-特大500000，但可能排除了中小盘}
绝大:=v>INTPART(CAPITAL*n/10000);//绝对大单}
平均间隔:sum(ti,0)/sum(v>0,0),PRECISION1,LINETHICK0,colorffffff;
门限:mx,PRECISION0,LINETHICK0,colorffffff;
yc:=if(ti>60 and v10,0,1);{数据异常或成交量不活跃}
异常次数:sum(not(yc),0),PRECISION0,LINEHICK0,colorffffff;
jzl:=DYNAINFO(8),PRECISION0,LINETHICK0,colorffffff;
isb:=ISBUYRDER;
ba0:=sum(v0*ISB*yc*v,0); bc0:=sum(v0*ISB*yc,0);
ba2:=sum(v2*ISB*yc*v,0); bc2:=sum(v2*ISB*yc,0);
ba5:=sum(v5*ISB*yc*v,0); bc5:=sum(v5*ISB*yc,0);
ba10:=sum(v10*ISB*yc*v,0); bc10:=sum(v10*ISB*yc,0);
ba20:=sum(绝大*ISB*yc*v,0); bc20:=sum(绝大*ISB*yc,0);
baa:=sum(not(yc)*ISB*v,0); bcb:=sum(not(yc)*ISB,0);
b0:=ba0[datacount];b2:=ba2[datacount];b5:=ba5[datacount];b10:=ba10[datacount];b20:=ba20[datacount];ba:=baa[datacount];
bb0:=bc0[datacount];bb2:=bc2[datacount];bb5:=bc5[datacount];bb10:=bc10[datacount];bb20:=bc20[datacount];bbb:=bcb[datacount];
sa0:=sum(v0*not(ISB)*yc*v,0); sc0:=sum(v0*not(ISB)*yc,0);
sa2:=sum(v2*not(ISB)*yc*v,0); sc2:=sum(v2*not(ISB)*yc,0);
sa5:=sum(v5*not(ISB)*yc*v,0); sc5:=sum(v5*not(ISB)*yc,0);
sa10:=sum(v10*not(ISB)*yc*v,0);sc10:=sum(v10*not(ISB)*yc,0);
sa20:=sum(绝大*not(ISB)*yc*v,0);sc20:=sum(绝大*not(ISB)*yc,0);
saa:=sum(not(yc)*not(ISB)*v,0);scs:=sum(not(yc)*ot(ISB),0);
s0:=sa0[datacount];s2:=sa2[datacount];s5:=sa5[datacount];s10:=sa10[datacount];s20:=sa20[datacount];sa:=saa[datacount];
ss0:=sc0[datacount];ss2:=sc2[datacount];ss5:=sc5[datacount];ss10:=sc10[datacount];ss20:=sc20[datacount];sss:=scs[datacount];
最大:=max(max(max(max(b0,b2),max(b5,b10)),max(max(b20,s0),max(s2,s5))),max(s10,s20));
{窗口垂直参数}
x0:=if(ax<=10,1,ax/10); nx:=if(ax>=101,x0*0.13,1);
dw1:=100; an:=22; bl:=(dw1-40)/最大; dw:=10; yy0:=0;
STICKLINE(x=INTPART(nx*1),an,bl*b0+an,x0,0),color0066ff;
STICKLINE(x=INTPART(nx*3),an,bl*b2+an,x0,0),colorff88ff;
STICKLINE(x=INTPART(nx*5),an,bl*b5+an,x0,0),color8800ff;
STICKLINE(x=INTPART(nx*7),an,bl*b10+an,x0,0),color0000ff;;
STICKLINE(x=INTPART(nx*9),an,bl*b20+an,x0,0),colorff00ff;
STICKLINE(x=INTPART(nx*11),an,bl*ba+an,x0,0),color00ffff;
STICKLINE(x=INTPART(nx*2),an,bl*s0+an,x0,0),color00ff55;
STICKLINE(x=INTPART(nx*4),an,bl*s2+an,x0,0),color00ff55;
STICKLINE(x=INTPART(nx*6),an,bl*s5+an,x0,0),color00cc00;
STICKLINE(x=INTPART(nx*8),an,bl*s10+an,x0,0),colorff9900;
STICKLINE(x=INTPRT(nx*10),an,bl*s20+an,x0,0),colorff9900;
STICKLINE(x=INTPART(nx*12),an,bl*sa+an,x0,0),color00ff00;
STICKLINE(x=INTPART(nx*8.5),an,90,1,0),color00ffff;
STICKLINE(x=INTPART(nx*12.5),an,90,1,0),color00ffff;
POLYLINE(x>=INTPART(nx*8.5) and x<=INTPART(nx*12.5),90),color00ffff;
POLYLINE(x>=0 and x<=INTPART(nx*12.5),an-2),LINETHICK2,color00ffff;
nn1:=' '+'\n'; nn2:=' '+'\n'+' 'n'; nn3:=' '+'\n'+' '+'\n'+' '+'\n';
dw0:=INTPART(13*nx);
DRAWTEXT(x=1,dw1+yy0,' '+STKNAME+'('+STKLABEL+')'),colorffffff;
DRAWTEXT(x=dw0,dw1+yy0,' 范 围'),colorffffff;
DRAWTEXT(x=dw0,dw1+yy0, nn1+'小■'+'\n'+'中■'),color0088ff;
DRAWTEXT(x=d0,dw1+yy0,nn3+'中■'+'\n'+'大■'),colorff00ff;
DRAWTEXT(x=dw0,dw1+yy0,nn3+nn3+' ?■' ),color00ffff;
DRAWTEXT(x=INTPART(dw0+nx*3),dw1+yy0, nn1+'小于 '+NUMTOSTR(门限*2,0)
+'\n'+NUMTOSTR(门限*2,0)+'→'+NUMTOSTR(门限*6,0)+'\n'+NUMTOSTR(门限*6,0)+'→'+NUMTOSTR(门限*12,0)+'\n'
+'大于 '+NUMTOSTR(门限*12,0)+nn2+'异 常 单'),color00ffff;
DRAWTEXT(x=dw0,dw1+yy0,nn3+nn2+'>流通'+NUMTOSTR(n,0)+'/10000单'),colorff00ff;
dw2:=dw0+nx*11;
DRAWTEXT(x=INTART(dw2),dw1+yy0,' 买单 总比(%) 笔数'),colorffffff;
DRAWTEXT(x=INTPART(dw2),dw1+yy0,nn1+NUMTOSTR(b0,0)+nn1+NUMTOSTR(b2,0)+nn1+NUMTOSTR(b5,0)+nn1
+NUMTOSTR(b10,0)+nn1+NUMTOSTR(b20,0)+nn1+NUMTOSTR(ba,0)),color00aaff;
dw22:=dw2+nx*5;
DRAWTEXT(x=INTPART(dw22),dw1+yy0,nn1+NUMTOSTR(100*b0/jzl,1)+' '+NUMTOSTR(bb0,0)+nn1+NUMTOSTR(100*b2/jzl,1)+' '+NUMTOSTR(bb2,0)
+nn1+NUMTOSTR(100*b5/jzl,1)+' '+NUMTOSTR(bb5,0)+'\n'+NUMTOSTR(100*b10/jzl,1)+' '+NUMTOSTR(bb10,0)+nn1
+NUMTOSTR(100*b20/jzl,1)+' '+NUMTOSTR(bb20,0)+nn1+NUMTOSTR(100*baa/jzl,1)+' '+NUMTOSTR(bbb,0)),color00aaff;
dw3:=dw22+nx*8;
DRAWTEXT(x=INTPART(dw3),dw1+yy0,'卖单 总比(%) 笔数 '),colorffffff;
DRAWTEXT(x=INTPART(dw3),dw1+yy0,nn1+UMTOSTR(s0,0)+nn1+NUMTOSTR(s2,0)+nn1+NUMTOSTR(s5,0)+nn1
+NUMTOSTR(s10,0)+nn1+NUMTOSTR(s20,0)+nn1+NUMTOSTR(saa,0)),color00ff00;
dw4:=INTPART(dw3+nx*5);
DRAWTEX(x=INTPART(dw4),dw1+yy0,nn1+NUMTOSTR(100*s0/jzl,1)+' '+NUMTOSTR(ss0,0)+nn1+NUMTOSTR(100*s2/jzl,1)+' '+NUMTOSTR(ss2,0)
+nn1+NUMTOSTR(100*s5/jzl,1)+' '+NUMTOSTR(ss5,0)+nn1+NUMTOSTR(100*s10/jzl,1)+' '+NUMTOSTR(ss10,0)
+nn1+NUMTOSTR(100*s20/jzl,1)+' '+NUMTOSTR(ss20,0)+nn1+NUMTOSTR(100*saa/jzl,1)+' '+NUMTOSTR(sss,0)),color00ff00;
流通股本:=CAPITAL*100;{单位股}
小买:=INTPART(b0+b2); 小卖:=INTPART(s0+s2);
大买:=INTPART(b5+b10); 大卖:=INTPART(s5+s10);//大于五倍门限=大单
{排序输出或存扩展数据,百分比扩大一百倍}
小差总比:10000*((小买-小卖)*100)/流通股本,PRECISION1,LINETHICK0,colorffffff;
大差总比:10000*((大买-大卖)*100)/流通股本,PRECISION1,LINETHICK0,colorffffff;
绝买流比:=10000*(b20*100)/流通股本;
绝卖流比:=10000*(s20*100)/流通股本;
绝对大差总比:10000*((b20-s20)*100)/流通股本,PRECISION1,LINETHICK0,colorffffff;
bu:=sum(BUYVOL,0); se:=sum(SELLVOL,0);
盘差:=(bu-se);
买卖强度:10000*(盘差*100)/流通股本,PRECISION1,LINETHICK0;{百分比扩大百倍}
收前五分:=sum((time>145500 and time<150100)*v,0);
收五量比:100*收前五分/jzl,PRECISION1,LINETHICK0,colorffffff;
开盘量:sum((time>91400 and time<92700)*vol,0),PRECISION0,LINETHICK0,colorffffff;
前二笔:=sum(if(sum(if(time>92900 and v>0,1,0),0)<=2,vol,0),0)-开盘量,PRECISION0,LINETHICK0,colorffffff;
昨总量:rzv,PRECISIN0,LINETHICK0,colorffffff;
增量:(jzl/昨总量-1)*100,PRECISION1,LINETHICK0,colorffffff;
昨金额:"vol.昨金额#day",PRECISION0,LINETHICK0,colorffffff;
金额增量:=(DYNAINFO(10)/昨金额-1)*100;
昨均价:"vvol.昨均#day",LINETHICK0,colorffffff;
wbu:=BIDVOL(1)+BIDVOL(2)+BIDVOL(3);
wse:=ASKVOL(1)+ASKVOL(2)+ASKVOL(3);
最大买单:=hhv(wbu,0); 最大卖单:=hhv(wse,0);
DRAWTEXT(x=INTPART(dw4+nx*9),dw1+yy0,' 分 析( 流通股本'+NUMTOSTR(流通股本/10000,0)+'万股 比值扩大100倍)'
+nn1+'■ 买卖差流通比 小 '+NUMTOSTR(小差总比,1)+' 大 '+NUMTOSTR(大差总比,1)+nn1
+'■ 绝对大单买/卖流通比 '+NUMTOSTR(绝买流比,1)+'/'+NUMTOSTR(绝卖流比,1)
+' 差总比 '+NUMTOSTR(绝对大差总比,1)),color0088ff;
DRAWTEXT(x=INTPART(dw4+nx*9),dw1+yy0,nn3+'■ 今均价 '+NUMTOSTR(DYNAINFO(11),2)
+' 昨均价 '+NUMTOSTR(昨均价,2)+' 涨幅:'+NUMTOSTR((DYNAINFO(11)/昨均价-1)*100,2)+'%'
+nn1+'■ 开盘量 '+NUMTOSTR(开盘量,0)+'手 开市二量 '+NUMTOSTR(交易前二笔,0)+' 当前二量 '
+NUMTOSTR(v+ref(v,1),0)+nn1+ '■ 收前五分量 '+NUMTOSTR(收前五分,0)+'手 日量比 '+NUMTOSTR(收五量比,1)+'%'
+nn1+ '■ 最大买单 '+NUMTOSTR(最大买单[datacount],0)+'手 最大卖单 '+NUMTOSTR(最大卖单[datacount],0)+'手'
+nn1),color00ffff;
//校核量:'+NUMTOSTR(b0+b2+b5+b10+ba+s0+s2+s5+s10+sa,0)+' 总和:'+NUMTOSTR(sum(v,0),0)+;
DRAWTEXT(xx=INTPART(nx*8.5),80,' 绝对'+nn1+' 异常'+nn1+' 大单');
DRAWTEXT(x=1,an-5,'成交量分布图-Stockm618制作 笔数:'+NUMTOSTR(bb0+bb2+bb5+bb10+bcb+ss0+ss2+ss5+ss10+scs,0)
+' 买卖强度 '+NUMTOSTR(买卖强度,1)+' 昨量 '+NUMTOSTR(昨总量,0)+' 今量 '+NUMTOSTR(jzl,0)+' 增量 '+NUMTOSTR(增量,1)+'%'+
' 金额增加 '+NUMTOSTR(金额增量,1)+'%'+' (注：数据<100可能不全显)'),colorffffff;
DRAWTEXT(x=1,0,' '),color000000;
DRAWICON(yc=0,dw1+10,10),color0000ff;{出现红点反映数据可能不全}
DRAWTEXT(x=1,dw1+10,' '),color000000; |
| |  | |  |
|
