分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
千钧盯盘 - 分笔指标的资金流向及资金分布具有很好的参考价值
  • 软件大小:33.0 KB
  • 推荐星级:
  • 更新时间:2009-02-18 07:51:55
  • 软件类别: 国产软件 / 大智慧L2公式
  • 软件语言:简体中文
  • 授权方式: 解密版
  • 联系方式:暂无联系方式
  • 官方主页: Home Page
  • 点击大图:  【一键转帖到论坛】
  • 插件情况:
  • 运行环境:Win9X/2000/XP/2003/
  • 相关Tags:指标公式 股票软件,公式源码
  • (7)78%
    (2)22%

软件介绍


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

·上一软件:估抄底F-通用源码
·下一软件:老杨追涨

软件评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

说明

* 使用方法:点击上面蓝色块,打开新页面按照提示进行

* 本网站提供的各种股票软件,例如大智慧软件,通达信软件,同花顺软件,东方财富通等等,和各种股票公式指标,例如大智慧公式,通达信公式,同花顺公式,文华公式,博易大师公式,股票价格计算公式等等公式指标等,都来源网上公开来源收集

本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!

* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。

* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程

* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明:本站所有股票公式软件资料均网上公开收集,如侵权请联系删帖。站内所有广告,均与本站无关!
Copyright © 2003-2022 fxjgsw.Com. All Rights Reserved .
页面执行时间:7,170.89800 毫秒