- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-4-4
|
|
发现一点问题，用依然大哥的算大买卖单的分时指标，在一字涨跌停的时候，似乎统计出来的总金额不对啊，相差很大，似乎是跟Var5及Var6的限制有关！同样是来自依然大哥的龙虎榜指标，统计的却误差很小，大家看看呢？而且，一字跌停的时候大单买卖之差都是正值，也就是说被计入了依然的主力持筹指标中的增仓部分（主力持筹指标中，增仓:大单买量-大单卖量）！大家都知道，一字跌停的时候都是主力的大卖单排在前面！
下面是我修改后的分时统计指标，用来进行统计用的，
{大卖量、大买量分时统计}
input:n(20);
Var1:=AMOUNT/VOL/100;
Var2:=REF(ASKPRICE(1),1);
Var3:=REF(BIDPRICE(1),1);
Var4:=(Var2-Var3)*0.35;
Var5:=IF(Var1>=Var2-Var4,VOL,IF(Var1<Var2-Var4 AND Var1>Var3+Var4,BUYVOL,0));
Var6:=IF(Var1<=Var3+Var4,VOL,IF(Var1<Var2-Var4 AND Var1>Var3+Var4,SELLVOL,0));
J:= SUM(Var5,0);
大单买量:=SUM(IF(AMOUNT>=50000,Var5,0),0);
小单买量:=SUM(IF(AMOUNT<50000,Var5,0),0);
T:= SUM(Var6,0);
大单卖量:=SUM(IF(AMOUNT>=50000,Var6,0),0);
小单卖量:=SUM(IF(AMOUNT<50000,Var6,0),0);
小单买卖差:=小单买量-小单卖量;
大单买卖差:=大单买量-大单卖量;
增仓:(小单买卖差+大单买卖差)*c/100,precis0;
总量:(j+t)*c/100,precis0;
小单买量WQ:=SUM(IF(AMOUNT<=5000,Var5,0),0);
小单卖量WQ:=SUM(IF(AMOUNT<=5000,Var6,0),0);
五千:=(小单买量WQ-小单卖量WQ)*c/100;
wq:(小单买量WQ-小单卖量WQ)*c/100,precis0;
小单买量YW:=SUM(IF(AMOUNT<=10000 and AMOUNT>5000,Var5,0),0);
小单卖量YW:=SUM(IF(AMOUNT<=10000 and AMOUNT>5000,Var6,0),0);
一万:=(小单买量YW-小单卖量YW)*c/100;
yw:(小单买量YW-小单卖量YW)*c/100,precis0;
大单买量WW:=SUM(IF(AMOUNT<=50000 and AMOUNT>10000,Var5,0),0);
大单卖量WW:=SUM(IF(AMOUNT<=50000 and AMOUNT>10000,Var6,0),0);
五万:=(大单买量WW-大单卖量WW)*c/100;
ww:(大单买量WW-大单卖量WW)*c/100,colorred,precis0;
大单买量SW:=SUM(IF(AMOUNT<=100000 and AMOUNT>50000,Var5,0),0);
大单卖量SW:=SUM(IF(AMOUNT<=100000 and AMOUNT>50000,Var6,0),0);
十万:=(大单买量SW-大单卖量SW)*c/100;
sw:(大单买量SW-大单卖量SW)*c/100,precis0;
大单买量ESW:=SUM(IF(AMOUNT<=200000 and AMOUNT>100000,Var5,0),0);
大单卖量ESW:=SUM(IF(AMOUNT<=200000 and AMOUNT>100000,Var6,0),0);
二十万:=(大单买量ESW-大单卖量ESW)*c/100;
esw:(大单买量ESW-大单卖量ESW)*c/100,precis0;
大单买量SSW:=SUM(IF(AMOUNT<=300000 and AMOUNT>200000,Var5,0),0);
大单卖量SSW:=SUM(IF(AMOUNT<=300000 and AMOUNT>200000,Var6,0),0);
三十万:=(大单买量SSW-大单卖量SSW)*c/100;
ssw:(大单买量SSW-大单卖量SSW)*c/100,precis0;
大单买量WSW:=SUM(IF(AMOUNT>300000 and AMOUNT<=500000,Var5,0),0);
大单卖量WSW:=SUM(IF(AMOUNT>300000 and AMOUNT<=500000,Var6,0),0);
五十万:=(大单买量WSW-大单卖量WSW)*c/100;
wsw:(大单买量WSW-大单卖量WSW)*c/100,precis0;
大单买量QSW:=SUM(IF(AMOUNT>500000 and AMOUNT<=700000,Var5,0),0);
大单卖量QSW:=SUM(IF(AMOUNT>500000 and AMOUNT<=700000,Var6,0),0);
七十万:=(大单买量QSW-大单卖量QSW)*c/100;
qsw:(大单买量QSW-大单卖量QSW)*c/100,precis0;
大单买量YBW:=SUM(IF(AMOUNT>700000 and AMOUNT<=1000000,Var5,0),0);
大单卖量YBW:=SUM(IF(AMOUNT>700000 and AMOUNT<=1000000,Var6,0),0);
一百万:=(大单买量YBW-大单卖量YBW)*c/100;
ybw:(大单买量YBW-大单卖量YBW)*c/100,precis0;
大单买量YBYSW:=SUM(IF(AMOUNT>1000000,Var5,0),0);
大单卖量YBYSW:=SUM(IF(AMOUNT>1000000,Var6,0),0);
一百万以上:=(大单买量YBYSW-大单卖量YBYSW)*c/100;
ybysw:(大单买量YBYSW-大单卖量YBYSW)*c/100,precis0;
mr:(if(五千>=0,五千,0)+if(一万>=0,一万,0)+if(五万>=0,五万,0)+if(十万>=0,十万,0)+if(二十万>=0,二十万,0)+if(三十万>=0,三十万,0)+if(五十万>=0,五十万,0)
+if(七十万>=0,七十万,0)+if(一百万>=0,一百万,0)+if(一百万以上>=0,一百万以上,0));
mc:(if(五千<0,五千,0)+if(一万<0,一万,0)+if(五万<0,五万,0)+if(十万<0,十万,0)+if(二十万<0,二十万,0)+if(三十万<0,三十万,0)+if(五十万<0,五十万,0)
+if(七十万<0,七十万,0)+if(一百万<0,一百万,0)+if(一百万以上<0,一百万以上,0));
{百万:(ybysw/(增仓))*10000,coloryellow,linethick2;
买入:(mr/(增仓))*10000,colorred;
卖出:(-mc/(增仓))*10000,colorff00a0;}
5000;
-1000;
drawtextrel(10,100,'五千:'+五千+' 一万:'+一万+' 五万:'+五万+' 十万:'+十万+' 二十万:'+二十万);
drawtextrel(10,200,'三十万:'+三十万+' 五十万:'+五十万+' 七十万:'+七十万+' 一百万:'+一百万+' 一百万以上:'+一百万以上);
drawtextrel(10,300,'买卖方向:'+增仓+' 买入 '+mr+' 占增仓 '+(mr/(增仓))*100+' % '+' 卖出 '+mc+' 占增仓 '+(-mc/(增仓))*100+' %'+' 其中一百万以上占增仓 '+(ybysw/(增仓))*100+' %');
{龙虎榜分时}
input:n(403,1,10000);
DRAWGBKLAST(C>0,STRIP(RGB(80,100,120),RGB(0,0,0),0)),color33ff66;
DRAWTEXTREL(20,30,STKLABEL),LINETHICK6,Colorffff00;
DRAWTEXTREL(140,30,STKNAME),LINETHICK6,Color00ffff;
DRAWTEXTREL(740,400,'|'),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,420,'|'),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,500,'疙'),LINETHICK2,Color00ffff;
DRAWTEXTREL(740,560,'瘩'),LINETHICK2,Color00ffff;
DRAWTEXTREL(740,620,'制'),LINETHICK2,Color00ffff;
DRAWTEXTREL(740,680,'作'),LINETHICK2,Color00ffff;
DRAWTEXTREL(810,200,'龙'),LINETHICK6,Color00ff00;
DRAWTEXTREL(810,360,'虎'),LINETHICK6,Colorffffff;
DRAWTEXTREL(810,520,'看'),LINETHICK6,Color0000ff;
DRAWTEXTREL(810,680,'盘'),LINETHICK6,Color0000ff;
DRAWTEXTREL(20,450,'------------------------------------------------------------------------------------'),LINETHICK1,Coloreeeeee;
a:=BUYVOL*c/100;
bz:=sum(a,0);
b:=c*SELLVOL/100;
sz:=sum(b,0);
z:=bz+sz;
cz:=bz-sz;
xb5:=if(a<=5 ,a,0);b5:=sum(xb5,0);
xs5:=if(b<=5 ,b,0);s5:=sum(xs5,0);
xb10:=if(a<=10 and a>5 ,a,0);b10:=sum(xb10,0);
xs10:=if(b<=10 and b>5,b,0);s10:=sum(xs10,0);
xb30:=if(a<=30 and a>10 ,a,0);b30:=sum(xb30,0);
xs30:=if(b<=30 and b>10 ,b,0);s30:=sum(xs30,0);
xb50:=if(a<=50 and a>30 ,a,0);b50:=sum(xb50,0);
xs50:=if(b<=50 and b>30 ,b,0);s50:=sum(xs50,0);
xb70:=if(a<=70 and a>50 ,a,0);b70:=sum(xb70,0);
xs70:=if(b<=70 and b>50 ,b,0);s70:=sum(xs70,0);
xb100:=if(a<=100 and a>70,a,0);b100:=sum(xb100,0);
xs100:=if(b<=100 and b>70,b,0);s100:=sum(xs100,0);
xb150:=if(a>100 ,a,0);b150:=sum(xb150,0);
xs150:=if(b>100 ,b,0);s150:=sum(xs150,0);
j5:=b5-s5;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
{add by zhbsystem 2007.3.28}
散户区:=j5/z;
混合区:=j10/z;
主力区:=(j30+j70+j100+j150)/z;
总净买入:=cz/z;
{add end}
IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(320,45,'■总成金额（万元）：'+NUMTOSTRN(z,2)),LINETHICK4,COLORccffcc;end;
IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(30,500,'■■■■■买入:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(250,500,'■■■■■卖出:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(30,550,'5 万大单买入:'+NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(250,550,'5 万大单卖出:'+NUMTOSTRN(s5,2)),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(30,600,'10 万大单买入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(250,600,'10 万大单卖出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(30,650,'30 万大单买入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(250,650,'30 万大单卖出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(30,700,'50 万大单买入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(250,700,'50 万大单卖出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(30,750,'70 万大单买入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(250,750,'70 万大单卖出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(30,800,'100 万大单买入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(250,800,'100 万大单卖出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(30,850,'150 万大单买入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s150) THEN BEGIN DRAWTEXTREL(250,850,'150 万大单卖出:'+NUMTOSTRN(s150,2)),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (cz) THEN BEGIN DRAWTEXTREL(470,500,'■■■■总净买入:'+NUMTOSTRN(cz,2)),LINETHICK1,COLORff00a0;end;
IF BARSTATUS=2 and (j5) THEN BEGIN DRAWTEXTREL(470,550,'5万大单净买入'+NUMTOSTRN(j5,2)),LINETHICK1,COLORff00a0;end;
IF BARSTATUS=2 and (j10) THEN BEGIN DRAWTEXTREL(470,600,'10万大单净买入'+NUMTOSTRN(j10,2)),LINETHICK1,COLORff00a0;end;
IF BARSTATUS=2 and (j30) THEN BEGIN DRAWTEXTREL(470,650,'30万大净买入'+NUMTOSTRN(j30,2)),LINETHICK1,COLORff00a0;end;
IF BARSTATUS=2 and (j50) THEN BEGIN DRAWTEXTREL(470,700,'50万大单净买入'+NUMTOSTRN(j50,2)),LINETHICK1,COLORff00a0;end;
IF BARSTATUS=2 and (j70) THEN BEGIN DRAWTEXTREL(470,750,'70万大单净买入'+NUMTOSTRN(j70,2)),LINETHICK1,COLORff00a0;end;
IF BARSTATUS=2 and (j100) THEN BEGIN DRAWTEXTREL(470,800,'100万大单净买入'+NUMTOSTRN(j100,2)),LINETHICK1,COLORff00a0;end;
IF BARSTATUS=2 and (j150) THEN BEGIN DRAWTEXTREL(470,850,'150万大单净买入'+NUMTOSTRN(j150,2)),LINETHICK1,COLORff00a0;end;
dd:=LN(FINANCE(7)/(n*10))*ATAN(FINANCE(7))*100;
主动买入:=SUM(BUYVOL,0);
主动卖出:=SUM(SELLVOL,0);
大单买:=if(BUYVOL>=dd,BUYVOL,0);
大单卖:=if(SELLVOL>dd,SELLVOL,0);
大单买入:=SUM(大单买,0);
大单卖出:=SUM(大单卖,0);
小单买入:=主动买入-大单买入;
小单卖出:=主动卖出-大单卖出;
大买金:=sum(if(BUYVOL>=dd,BUYVOL,0)*c,0);
大单买均价:=大买金/大单买入;
大卖金:=sum(if(SELLVOL>dd,SELLVOL,0)*c,0);
大单卖均价:=大卖金/大单卖出;
成交笔数:=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0);
大单净量:=大单买入-大单卖出;
换手率:=vol/CAPITAL;
大单净量占比:FLOOR(大单净量/(主动买入+主动卖出)*100)*DYNAINFO(37);
DRAWTEXTABS(30,100,'■ 大单净量:'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(115,100,''+大单净量),Color00FFFF,LINETHICK2;
DRAWTEXTABS(200,100,'占'+FLOOR(大单净量/(主动买入+主动卖出)*100)+' %'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(30,120,'■ 大单净量占流通盘比例:'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(200,120,'占'+(大单净量占比)+' %'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(30,40,'■ 大单买入: '+大单买入),Color8000FF,LINETHICK2;
DRAWTEXTABS(200,40,'占'+FLOOR(大单买入/(主动买入+主动卖出)*100)+'%'),Color8000FF,LINETHICK2;
DRAWTEXTABS(300,40,'大单买均价: '+大单买均价),Color8000FF,LINETHICK2;
DRAWTEXTABS(30,70,'■ 大单卖出: '+大单卖出),Color00FF00,LINETHICK2;
DRAWTEXTABS(200,70,'占'+FLOOR(大单卖出/(主动买入+主动卖出)*100)+' %'),Color00FF00,LINETHICK2;
DRAWTEXTABS(300,55,'大单卖均价: '+大单卖均价),Color00FF00,LINETHICK2;
DRAWTEXTABS(30,55,'■ 小单买入: '+小单买入),Color2F73FF,LINETHICK2;
DRAWTEXTABS(200,55,'占'+FLOOR(小单买入/(主动买入+主动卖出)*100)+' %'),Color2F73FF,LINETHICK2;
DRAWTEXTABS(30,85,'■ 小单卖出: '+小单卖出),ColorB4B043,LINETHICK2;
DRAWTEXTABS(200,85,'占'+FLOOR(小单卖出/(主动买入+主动卖出)*100)+' %'),ColorA8A800,LINETHICK2;
DRAWTEXTABS(300,70,'总成交笔数: '+成交笔数),ColorFFFFFF,LINETHICK2;
DRAWTEXTABS(300,85,'每笔成交手: '+INTPART((主动买入+主动卖出)/成交笔数)),LINETHICK2;
总:=DYNAINFO(8);
STICKLINE((总 AND DISPSTATUS=2),0,总,200,1),COLORFFFFFF;
STICKLINE((大单买入+大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,总,200,0),Color8000FF;
STICKLINE((大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,大单卖出+小单买入+小单卖出,200,0),Color2F73FF;
STICKLINE((小单卖出+大单卖出 AND BARSTATUS=2),0,小单卖出+大单卖出,200,0),Color00FF00;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,200,0),ColorB4B043;
[ 本帖最后由 zhbsystem888 于 2007-4-6 00:59 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
|
|
[复制链接]
发表于 2007-4-5 19:42
楼主