软件名称：[B]主力买卖（需要L2行情支持 源码 贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：10.0 KB
官方主页：Home Page
更新时间：2011-03-23 16:00:11
软件简介:

{N:=0;}
中户买入:=bigorder(1,2)*AMOUNT/10000;
中户卖出:=bigorder(2,2)*AMOUNT/10000;
流入净量:中户买入-中户卖出,LINETHICK0,color00aaff;
u:=sum(流入净量,5);
DRAWRECTABS(0,0 ,920 ,107 ,rgb(21,24,25)),color00ffff,LAYER6;

机构买入:bigorder(1,2)*v/CAPITAL*100,LINETHICK0,color0000FF;
STICKLINE(1,0,机构买入,7,500),color0000BB,LAYER5;
机构卖出:-1*bigorder(2,2)*v/CAPITAL*100,LINETHICK0,color00ff00;
STICKLINE(1,0,机构卖出,7,500),color00BB00,LAYER5;
STICKLINE(1,0,机构买入+机构卖出,7,500),color00eeee,LAYER5;

机构净买:机构买入+机构卖出,LINETHICK0,colorred;

辅助:0,colorDDDDDD,LAYER4;
{赢富数据}
DRAWTEXTABS(80 ,10,'( 附5日净买:'+numtostrn(u,2)+')'),colorwhite;

DRAWRECTABS(0,0,450,107,rgb(55,01,01)),color00ffff;
DRAWRECTABS(32,0,384,107,rgb(80,11,10)),color000000;
DRAWRECTABS(384,0,449,106,rgb(77,11,50)),color000000;
DRAWRECTABS(00,25,449,00,rgb(100,70,10)),color00ffff;

DRAWRECTABS(32,0 ,384 ,107 ,0 ),color00ffff;
DRAWRECTABS(275,0 ,384 ,107 ,0 ),color00ffff;
DRAWTEXTABS(3 ,10 ,'买卖'),colorwhite;

b1:=ref(中户买入,0);
b2:=ref(中户买入,1);
b3:=ref(中户买入,2);
b4:=ref(中户买入,3);
s1:=ref(中户卖出,0);
s2:=ref(中户卖出,1);
s3:=ref(中户卖出,2);
s4:=ref(中户卖出,3);

D3:sum(流入净量,3),LINETHICK0,colorffffff;
D6:sum(流入净量,6),LINETHICK0,colorffffff;
D7:sum(流入净量,7),LINETHICK0,colorffffff;
D8:sum(流入净量,8),LINETHICK0,colorffffff;
D10:sum(流入净量,10),LINETHICK0,colorffffff;

{主力买入}

bb1:=b1/(b1+s1);
bb2:=b2/(b2+s2);
bb3:=b3/(b3+s3);
bb4:=b4/(b4+s4);

DRAWTEXTABS(28 ,10 ,' 主力买入'),colorwhite;
DRAWTEXTABS(5 ,30 ,'今日 '+numtostrn(b1,2)+'万' ),colorwhite;
DRAWTEXTABS(5 ,50 ,'昨日 '+numtostrn(b2,2)+'万' ),colorwhite;
DRAWTEXTABS(5 ,70 ,'前日 '+numtostrn(b3,2) +'万'),colorwhite;
DRAWTEXTABS(5 ,90 ,'3 日 '+numtostrn(b4,2) +'万'),colorwhite;
DRAWRECTABS(100 ,30 ,160 ,40,0 ),colorwhite;
DRAWRECTABS(100 ,50 ,160 ,60,0   ),colorwhite;
DRAWRECTABS(100 ,70 ,160 ,80 ,0  ),colorwhite;
DRAWRECTABS(100 ,90,160 ,100 ,0  ),colorwhite;
DRAWRECTABS(100 ,30 ,100+bb1*60 ,40,rgb(255,255,0) ),colorwhite;
DRAWRECTABS(100 ,50 ,100+bb2*60 ,60,rgb(255,255,0)),colorwhite;
DRAWRECTABS(100 ,70 ,100+bb3*60 ,80 ,rgb(255,255,0)),colorwhite;
DRAWRECTABS(100 ,90,100+bb4*60 ,100 ,rgb(255,255,0)),colorwhite;
DRAWTEXTABS(161 ,30 ,numtostrn(bb1*100,2)+'%' ),color00ffff;
DRAWTEXTABS(161 ,50 ,numtostrn(bb2*100,2)+'%'),color00ffff;
DRAWTEXTABS(161 ,70 ,numtostrn(bb3*100,2)+'%'),color00ffff;
DRAWTEXTABS(161 ,90 ,numtostrn(bb4*100,2)+'%'),color00ffff;

{主力卖出}
DRAWTEXTABS(205 ,10 ,'   主力卖出'),colorwhite;
DRAWTEXTABS(210 ,30 ,numtostrn(s1,2)+'万' ),colorwhite;
DRAWTEXTABS(210 ,50 ,numtostrn(s2,2)+'万' ),colorwhite;
DRAWTEXTABS(210 ,70 ,numtostrn(s3,2) +'万'),colorwhite;
DRAWTEXTABS(210 ,90 ,numtostrn(s4,2) +'万'),colorwhite;

{差}

DRAWTEXTABS(295 ,10 ,' 主力净买'),colorwhite;
DRAWTEXTABS(300 ,30 ,numtostrn(b1-s1,2)+'万' ),colorwhite;
DRAWTEXTABS(300 ,50 ,numtostrn(b2-s2,2)+'万' ),colorwhite;
DRAWTEXTABS(300 ,70 ,numtostrn(b3-s3,2) +'万'),colorwhite;
DRAWTEXTABS(300 ,90 ,numtostrn(b4-s4,2) +'万'),colorwhite;

DRAWTEXTABS(382 ,10 ,' 当日上涨'),colorwhite;
DRAWTEXTABS(390 ,30 ,numtostrn((c-ref(c,1))/ref(c,1)*100,2)+'%'),colorwhite;
DRAWTEXTABS(390 ,50 ,numtostrn((ref(c,1)-ref(c,2))/ref(c,2)*100,2)+'%'),colorwhite;
DRAWTEXTABS(390 ,70 ,numtostrn((ref(c,2)-ref(c,3))/ref(c,3)*100,2)+'%'),colorwhite;
DRAWTEXTABS(390 ,90 ,numtostrn((ref(c,3)-ref(c,4))/ref(c,4)*100,2)+'%'),colorwhite;

[url=http://www.70822.com/soft/sort013/sort03/down-31952.html]主力买卖（需要L2行情支持 源码 贴图）[/url]