软件名称：[B]千钧盯盘 - 分笔指标的资金流向及资金分布具有很好的参考价值[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：33.0 KB
官方主页：Home Page
更新时间：2009-02-18 07:51:55
软件简介:

input:n(1000,1,10000);
DRAWGBKLAST(c>0, STRIP(RGB(0,0,30),RGB(0,0,120),0));
DRAWTEXTREL(10,5,STKLABEL),LINETHICK4,Colorffff00;
DRAWTEXTREL(140,5,STKNAME),LINETHICK4,Color00ffff;
DRAWTEXTABS(310,145,'收益:'+NUMTOSTRN(FINANCE2(3),2)+'  市盈:'+NUMTOSTRN(DYNAINFO(39),2)+'  市净:'+NUMTOSTRN(DYNAINFO(58),2)),LINETHICK1,Color00FF00;
DRAWTEXTREL(20,500,'-------------------------2007-07-24-(一发千钧制作)-------------------------------------------------------'),LINETHICK1,Color0068FF;
a:=BUYVOL*c/100;
bz:=SUM(a,0);
b:=SELLVOL*c/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;
IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(260,5,'   ■总成交金額（万元）：'+NUMTOSTRN(DYNAINFO(10)/10000,2)),LINETHICK4,COLORccffcc;end;
IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(30,550,'■■■买入金額:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(250,550,'   ■■■卖出金額:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(30,600,' 5  万大单买入:' +NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(250,600,'    5  万大单卖出:'+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(30,650,' 10 万大单买入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(250,650,'    10 万大单卖出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(30,700,' 30 万大单买入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(250,700,'    30 万大单卖出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(30,750,' 50 万大单买入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(250,750,'    50 万大单卖出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(30,800,' 70 万大单买入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(250,800,'    70 万大单卖出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(30,850,'100 万大单买入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(250,850,'   100 万大单卖出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(30,900,'150 万大单买入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s150) THEN BEGIN DRAWTEXTREL(250,900,'   150 万大单卖出:'+NUMTOSTRN(s150,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (cz) THEN BEGIN DRAWTEXTREL(470,550,'        ■■ 净买入金額:'+NUMTOSTRN(cz,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j5) THEN BEGIN DRAWTEXTREL(470,600,  '         5 万大单净买入; '+NUMTOSTRN(j5,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j10) THEN BEGIN DRAWTEXTREL(470,650, '         10万大单净买入; '+NUMTOSTRN(j10,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j30) THEN BEGIN DRAWTEXTREL(470,700, '         30万大单净买入; '+NUMTOSTRN(j30,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j50) THEN BEGIN DRAWTEXTREL(470,750, '         50万大单净买入; '+NUMTOSTRN(j50,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j70) THEN BEGIN DRAWTEXTREL(470,800, '         70万大单净买入; '+NUMTOSTRN(j70,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j100) THEN BEGIN DRAWTEXTREL(470,850,'        100万大单净买入; '+NUMTOSTRN(j100,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j150) THEN BEGIN DRAWTEXTREL(470,900,'        150万大单净买入; '+NUMTOSTRN(j150,2)),LINETHICK1,COLORccff00;end;
委买总量:=SUM((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),0);
委卖总量:=SUM((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),0);
www1:=SUM(BUYVOL,0)-SUM(SELLVOL,0);
买卖存量:=REF(www1,1)+www1;
日换手:dYNAINFO(36)*100,LINETHICK0,Color00FFFF;
买入:=BUYVOL;
卖出:=SELLVOL;
流通:FINANCE2(36)/10000,ColorFFFF00,LINETHICK0;
市值:dYNAINFO(7)*流通/10000,ColorFF00FF,LINETHICK0;
买卖意愿:=(SUM(BUYVOL,0)-SUM(SELLVOL,0))/DYNAINFO(8)*100;
系数:=IF(流通>20,1.25,IF(流通<20,0.75,0));
门限:=市值*系数/10*n;

Var1:=IF(BUYVOL<=REF(ASKVOL(1),1) AND DYNAINFO( 7)=REF(ASKPRICE(1),1),BUYVOL,0);
Var2:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND DYNAINFO( 7)=REF(ASKPRICE(2),1),BUYVOL,0);
Var3:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)=REF(ASKPRICE(3),1),BUYVOL,0);
Var3A:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)>REF(ASKPRICE(3),1),BUYVOL,0);
Var41:=IF(DYNAINFO( 7)<REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0 AND REF(ASKVOL(1),1)>0,BUYVOL,0);
Var42:=IF((BUYVOL>REF(ASKVOL(1),1) AND DYNAINFO( 7)=REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0),BUYVOL,0);
Var42a:=IF(Var42>0,Var42-REF(ASKVOL(1),1),0);
Var4b:=Var41+Var42a;
Var51:=IF(BUYVOL>REF(ASKVOL(1),1) AND DYNAINFO( 7)>REF(ASKPRICE(1),1) AND DYNAINFO( 7)<REF(ASKPRICE(2),1),BUYVOL,0);
Var52:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND DYNAINFO( 7)=REF(ASKPRICE(2),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Var52a:=IF(Var52>0,Var52-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)),0);
Var5b:=Var51+Var52a;
Var61:=IF(BUYVOL>REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND DYNAINFO( 7)>REF(ASKPRICE(2),1) AND DYNAINFO( 7)<REF(ASKPRICE(3),1),BUYVOL,0);
Var62:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)=REF(ASKPRICE(3),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Var62a:=IF( Var62>0,Var62-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)),0);
Var6b:=Var61+Var62a;
Var9A:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND DYNAINFO( 7)<REF(BIDPRICE(3),1),SELLVOL,0);
VarA1:=IF(DYNAINFO( 7)>REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0 AND REF(BIDVOL(1),1)>0,SELLVOL,0);
VarA2:=IF(SELLVOL>REF(BIDVOL(1),1) AND DYNAINFO( 7)=REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarAa:=IF(VarA2>0,SELLVOL-REF(BIDVOL(1),1),0);
VarB1:=IF(SELLVOL>REF(BIDVOL(1),1) AND DYNAINFO( 7)<REF(BIDPRICE(1),1) AND DYNAINFO( 7)>REF(BIDPRICE
[url=http://www.70822.com/soft/sort013/sort03/down-6507.html]千钧盯盘 - 分笔指标的资金流向及资金分布具有很好的参考价值[/url]