查看完整版本: 请bajatje老师和各位班主帮助谢谢

戊辰 2007-8-24 23:59

请bajatje老师和各位班主帮助谢谢

请帮助看"以涨跌定义的主动买卖量--飞狐分笔",我下的是附件,另一个页面打不开
600093今天一开盘就封涨仃,此公式就没主动/被动量了,

wb:=barslast(c<ref(c,1));
wz:=barslast(c>ref(c,1));
bw:=hhv((barssince(wb=0)=0)*BARPOS,0);
zw:=hhv((barssince(wz=0)=0)*BARPOS,0);
p:=datacount;
mx:=BARPOS<max(bw[p],zw[p]);
mi:=BARPOS>=min(zw[p],bw[p]);
jk:=DYNAINFO(4)>=DYNAINFO(3);
qh:=bw[p]>zw[p];
kv:=sum(if(mx and mi,v,0),0);
uv:=sum(if(mi=0,v,0),0);
zd:=sum((wz<wb)*v,0)+qh*kv+jk*uv;
bd:=sum((wz>wb)*v,0)+(qh=0)*kv+(jk=0)*uv;
主动:if(mx,qh*kv+jk*uv,zd);
被动:if(mx,(qh=0)*kv+(jk=0)*uv,bd);
差:主动-被动 LINETHICK0;

[[i] 本帖最后由 戊辰 于 2007-8-25 07:15 编辑 [/i]]

戊辰 2007-8-25 12:39

今天二市有四个涨仃板,就是O=C=L这样就没量的记录,不知跌仃板如何?谢谢

[[i] 本帖最后由 戊辰 于 2007-8-25 12:41 编辑 [/i]]

戊辰 2007-8-26 21:39

今天二市有四个涨仃板,就是O=C=L这样就没量的记录,不知跌仃板如何?谢谢

bajatje 2007-8-26 21:56

封死涨停当买,封死跌停当卖


N    大单系数(万元)

笔:barpos,LINETHICK;
a:=amount/v/100;
st:=STRNCMP(STKNAME,'ST',1)<1;
xs:=if(st,0.05,0.1);
cc:=if(a>DYNAINFO(3)*(1-xs) and a<DYNAINFO(3)*(1+xs),a,c);
mc:=if(BARPOS=1,DYNAINFO(3),ref(ASKPRICE(1),1));//上一次卖一
mr:=if(BARPOS=1,DYNAINFO(3),ref(BIDPRICE(1),1));//上一次买一
mj:=mc-mr;
mo:=(cc-mr)/mj;
买:=if((cc>=mc and mc*mr>0) or (mc=0 and mr>0),v,if(cc<mc and cc>mr,ROUND(v*mo),0))LINETHICK,PRECISION0,COLORRED;
量:=v,LINETHICK,PRECISION,COLORYELLOW;
卖:=if((cc<=mr and mc*mr>0) or (mr=0 and mc>0),v,if(cc<mc and cc>mr,round(v*(1-mo)),0))LINETHICK,PRECISION0,COLORCYAN;
买和:sum(买,0)colormagenta,PRECISION0;
d买:sum(if(买*cc>=100*n,买,0),0)colorred,PRECISION0;
大买次数:sum(买*cc>=100*n,0),LINETHICK;
卖和:sum(卖,0)colorcyan,PRECISION0;
d卖:sum(if(卖*cc>=100*n,卖,0),0)colorgreen,PRECISION0;
大卖次数:sum(卖*cc>=100*n,0),LINETHICK;
p:=STKINDI('','s3.sp',0,6);
大单2:sum(v>=p*0.0002,0),COLORGRAY,LINETHICK;
大单3:sum(v>=p*0.0003,0),COLORGRAY,LINETHICK;
大单5:sum(v>=p*0.0005,0),COLORGRAY,LINETHICK;

戊辰 2007-8-26 23:56

谢谢,
p:=STKINDI('','s3.sp',0,6);//引用公式没有呀!谢谢

bajatje 2007-8-27 08:18

后面的可以不要
如要
p:=capital;

戊辰 2007-8-27 10:44

谢谢bajatje老师

戊辰 2008-2-21 13:27

谢谢bajatje老师
页: [1]
查看完整版本: 请bajatje老师和各位班主帮助谢谢