不需要扩展的分时买卖金额,源码

阅读作者：公式网时间 2011-02-25 07:53:07 大智慧公式

不需要扩展的分时买卖金额。
本来想直接引用大额分笔，试了一试，刷新速度慢，便另编写了一个，
先建引用公式，我命名为分笔0，源码

C/C++ Code复制内容到剪贴板

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);小买:sum(xb5,0),LINETHICK1,COLORred;
xs5:=if(b<=5 ,b,0);小卖:sum(xs5,0),LINETHICK1,COLORgreen;
xb20:=if(a<=20 and a>=5 ,a,0);中买:sum(xb20,0),LINETHICK3,COLORred;
xs20:=if(b<=20 and b>=5 ,b,0);中卖:sum(xs20,0),LINETHICK3,COLORgreen;
xb100:=if(a<=100 and a>=20,a,0);大买:sum(xb100,0),LINETHICK5,COLORred;
xs100:=if(b<=100 and b>=20,b,0);大卖:sum(xs100,0),LINETHICK5,COLORgreen;
xb150:=if(a>=100 ,a,0);特买:sum(xb150,0),LINETHICK7,COLORred;
xs150:=if(b>=100 ,b,0);特卖:sum(xs150,0),LINETHICK7,COLORgreen;

2.建公式我命名为资金分时，源码

C/C++ Code复制内容到剪贴板

不需要扩展的分时买卖金额。
本来想直接引用大额分笔，试了一试，刷新速度慢，便另编写了一个，
先建引用公式，我命名为分笔0，源码
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);小买:sum(xb5,0),LINETHICK1,COLORred;
xs5:=if(b<=5 ,b,0);小卖:sum(xs5,0),LINETHICK1,COLORgreen;
xb20:=if(a<=20 and a>=5 ,a,0);中买:sum(xb20,0),LINETHICK3,COLORred;
xs20:=if(b<=20 and b>=5 ,b,0);中卖:sum(xs20,0),LINETHICK3,COLORgreen;
xb100:=if(a<=100 and a>=20,a,0);大买:sum(xb100,0),LINETHICK5,COLORred;
xs100:=if(b<=100 and b>=20,b,0);大卖:sum(xs100,0),LINETHICK5,COLORgreen;
xb150:=if(a>=100 ,a,0);特买:sum(xb150,0),LINETHICK7,COLORred;
xs150:=if(b>=100 ,b,0);特卖:sum(xs150,0),LINETHICK7,COLORgreen;
2.建公式我命名为资金分时，源码
特买:"分笔0.特买#tick",LINETHICK7,COLORred;
特卖:"分笔0.特卖#tick",LINETHICK7,COLORgreen;
大买:"分笔0.大买#tick",LINETHICK5,COLORred;
大卖:"分笔0.大卖#tick",LINETHICK5,COLORgreen;
中买:"分笔0.中买#tick",LINETHICK3,COLORred;
中卖:"分笔0.中卖#tick",LINETHICK3,COLORgreen;
小买:"分笔0.小买#tick",LINETHICK1,COLORred;
小卖:"分笔0.小卖#tick",LINETHICK1,COLORgreen;
小净:小买-小卖,LINETHICK0;
中净:中买-中卖,LINETHICK0;
大净:大买-大卖,LINETHICK0;
特净:特买-特卖,LINETHICK0;
买:=特买+大买+中买+小买;
卖:=特卖+大卖+中卖+小卖;
总:=买+卖;
净:买-卖,LINETHICK0;
实际:=DYNAINFO(10)/10000;
实际差:=总-实际;
DRAWTEXTABS(90 ,5 ,'买 '+买),colorred;
DRAWTEXTABS(90 ,20 ,'卖 '+卖),colorgreen;
DRAWTEXTABS(90 ,35 ,'净 '+净),coloryellow;
DRAWTEXTABS(5 ,5 ,'小净 '+小净),coloryellow;
DRAWTEXTABS(5 ,20 ,'中净 '+中净),coloryellow;
DRAWTEXTABS(5 ,35 ,'大净 '+大净),coloryellow;
DRAWTEXTABS(5 ,50 ,'特净 '+特净),coloryellow;
DRAWTEXTABS(180 ,5 ,'总 '+总),colorred;
DRAWTEXTABS(180,20,'实际'+实际),colorgreen;
DRAWTEXTABS(180,35,'实际差'+实际差),LINETHICK2,coloryellow;
附上公式，方便引入

附上公式，方便引入