不需要扩展的分时买卖金额。 本来想直接引用大额分笔,试了一试,刷新速度慢,便另编写了一个, 先建引用公式,我命名为分笔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;{点击看本软件截图: 58股票 公式网 http://www. 58gu. com 整理} |