分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
千钧赢富【升级版】
  • 软件大小:6.00 KB
  • 推荐星级:
  • 更新时间:2009-02-08 04:03:04
  • 软件类别: 国产软件 / 飞狐公式
  • 软件语言:简体中文
  • 授权方式: 解密版
  • 联系方式:暂无联系方式
  • 官方主页: Home Page
  • 点击大图:  【一键转帖到论坛】
  • 插件情况:
  • 运行环境:Win9X/2000/XP/2003/
  • 相关Tags:指标公式 股票软件,公式源码
  • (1)50%
    (1)50%

软件介绍

千钧赢富【升级版】---公式需要扩展数据和引用公式,否则不会显示

首先向千钧老师致谢!!!长期来本人一直关注你的原创,并一直用上.自你的赢富升级版推出,就觉得什么地方可以改进,于是马上改了一傍晚,相对满意.但应时间已有一个多月,大致修改思路:1\能显示到最新交易周期;
   2\增加当天分笔图形;
   3\修改显示值百分比,以看直观.
   4\不改变千钧老师的原码.
下面是原码和帖图以飨千钧徒,请千钧老师斧正:

原码:

{千钧赢富【升级版】---本人优化版}
流通:FINANCE(7)/10000,LINETHICK0,PRECISION2,Color00BFFF;
换手:v/FINANCE(7),PRECISION2,LINETHICK0;
qj1:=EXTDATA(9);qj2:=EXTDATA(10);qj3:=EXTDATA(11);
qj4:=EXTDATA(12);qj5:=EXTDATA(13);
ZL:=qj1+qj2+qj3;SH:=qj4+qj5;昨日:=REF(qj1+qj2+qj3,1);
总:=(ABS(qj1)+ABS(qj2)+ABS(qj3)+ABS(qj4)+ABS(qj5))*1.6;
日增:=ZL;
周仓:=SUM(日增,5);月仓:=SUM(日增,22);年仓:=SUM(日增,240);
上周:=REF(周仓,1);上月:=REF(月仓,1);上年:=REF(年仓,1);
周增:=周仓-上周;月增:=月仓-上月;年增:=年仓-上年;
CM:=sum(zl,5);ZJ:=sum(昨日,5);
ZSA:=cm/IF(CAPITAL=0,ESTDATA(12),FINANCE(7));
ZSB:=(cm-ZJ)/IF(CAPITAL=0,ESTDATA(12),FINANCE(7));
{取点}
DIFF:=MA(CLOSE,5)-EMA(CLOSE,55);
DEA:=MA(DIFF,14);
jg:=((close-llv(L,34))/(HHV(h,34)-llV(L,34)))*100;
yh:=CROSS(diff,dea) and jg<20;
bh:=CROSS(dea,diff) and jg>60;
SW:=yh=1;SS:=bh=1;
VERTLINE(sw),COLOR0000FF,LINEDOT;
VERTLINE(ss),COLOR00FF00,LINEDOT;A:=barslast(SW);B:=barslast(SS);
起点:=if(A>1 and A<=B,A,0);终点:=if(B>1 and B<=A,B,0);
主力成本:=SUM(C*zl*100,5)/SUM(zl,5)/100;
{控制画线高度}
n1:=sysparam(3);nn:=n1-sysparam(2)+1;
hh:=hhv(总,nn);
ll:=llv(总,nn);
最高:=hh[n1];最低:=ll[n1];中:=最低+(最高-最低)*0.5;
{方框竖线}
{框内黑底}
STICKLINE(BARPOS=SYSPARAM(1)-20,0,中,200,0),SHIFT10,COLOR000000;
STICKLINE(BARPOS=SYSPARAM(1)-20,0,中*2.1,200,0),SHIFT10,COLOR000000;
{加右框}
STICKLINE(ISLASTBAR AND CLOSE>0,中/9,中*17/9,80,1),SHIFT5,COLORred;
STICKLINE(ISLASTBAR AND CLOSE>0,中/9,中*17/9,28,1),SHIFT8,COLORred;

{竖线}
VERTLINE(BARPOS=SYSPARAM(1)),COLOREE00EE,LINETHICK2;
VERTLINE(BARPOS=SYSPARAM(1)-20),{SHIFT20,}COLOREE00EE,LINETHICK2;
{显示时间}
variable:wday[7]='星期六';wday[1]:='星期日';wday[2]:='星期一';
wday[3]:='星期二';wday[4]:='星期三';wday[5]:='星期四';wday[6]:='星期五';
fy:=年份;fm:=月份;fd:=日期;wd:=星期;p:=系统参数(1);
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+数字转化为字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,180,0,str1),ColorffFF00;

{赢富柱}
{STICKLINE(BARPOS=SYSPARAM(1),中*2.1,中*2.1,200,0),COLOREE00EE,SHIFT10;
STICKLINE(BARPOS=SYSPARAM(1),中,中,200,0),COLOR660066,SHIFT10;
STICKLINE(BARPOS=SYSPARAM(1),中*0.0001,中*0.0001,200,0),COLOREE00EE,SHIFT10;
STICKLINE(BARPOS=SYSPARAM(1)+2 and qj1>0,中,(中+qj1),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)+2 and qj1<0,中,中+(qj1*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)+6 and qj2>0,中,(中+qj2),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)+6 and qj2<0,中,中+(qj2*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)+10 and qj3>0,中,(中+qj3),30,0),COLOR0000ff;
STICKLINE(BARPOS=SYSPARAM(1)+10 and qj3<0,中,中+(qj3*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)+14 and qj4>0,中,中+(qj4),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)+14 and qj4<0,中,中+(qj4*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)+18 and qj5>0,中,中+(qj5),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)+18 and qj5<0,中,中+(qj5*-1),30,0),COLORFF0000;}
{赢富柱修改}
{横线}
STICKLINE(BARPOS=SYSPARAM(1)-10,中*2.1,中*2.1,200,0),COLOREE00EE{,SHIFT10};
STICKLINE(BARPOS=SYSPARAM(1)-10,中,中,200,0),COLOR660066{,SHIFT10};
STICKLINE(BARPOS=SYSPARAM(1)-10,中*0.0001,中*0.0001,200,0),COLOREE00EE{,SHIFT10};

STICKLINE(BARPOS=SYSPARAM(1)-18 and qj1>0,中,(中+qj1),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-18 and qj1<0,中,中+(qj1*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-14 and qj2>0,中,(中+qj2),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-14 and qj2<0,中,中+(qj2*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-10 and qj3>0,中,(中+qj3),30,0),COLOR0000ff;
STICKLINE(BARPOS=SYSPARAM(1)-10 and qj3<0,中,中+(qj3*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-6 and qj4>0,中,中+(qj4),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-6 and qj4<0,中,中+(qj4*-1),30,0),COLORFF6600;
STICKLINE(BARPOS=SYSPARAM(1)-2 and qj5>0,中,中+(qj5),30,0),COLOR0000FF;
STICKLINE(BARPOS=SYSPARAM(1)-2 and qj5<0,中,中+(qj5*-1),30,0),COLORFF0000;

{DRAWTEXT(BARPOS=SYSPARAM(1)+1,中,'机\n构\n'+NUMTOSTR(qj1[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)+5,中,'券\n商\n'+NUMTOSTR(qj2[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)+9,中,'大\n户\n'+NUMTOSTR(qj3[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)+13,中,'中\n户\n'+NUMTOSTR(qj4[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)+17,中,'散\n户\n'+NUMTOSTR(qj5[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;}

DRAWTEXT(BARPOS=SYSPARAM(1)-19,中,'机\n构\n'+NUMTOSTR(qj1[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-15,中,'券\n商\n'+NUMTOSTR(qj2[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-11,中,'大\n户\n'+NUMTOSTR(qj3[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-7,中,'中\n户\n'+NUMTOSTR(qj4[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(1)-3,中,'散\n户\n'+NUMTOSTR(qj5[SYSPARAM(1)]/v,2)),PXDN12,COLORWHITE;
{柱上显示数值}
{DRAWTEXT(BARPOS=SYSPARAM(1)-20{ and qj1>0},(中+qj1),NUMTOSTR(qj1[SYSPARAM(1)]/100,2)),PXUP38,ALIGN1,COLORWHITE;}

STICKLINE(SH>0,0,SH,8,0),Coloraa00aa;
STICKLINE(SH>0,0,SH,6,0),Colorcc00cc;
STICKLINE(SH>0,0,SH,3,0),Coloree00ee;
散户买:STICKLINE(SH>0,0,SH,1,0),Colorff00FF;
STICKLINE(SH<0,0,-SH,8,0),ColorFF4400;
STICKLINE(SH<0,0,-SH,6,0),ColorFF8800;
STICKLINE(SH<0,0,-SH,3,0),ColorFFaa00;
散户卖:STICKLINE(SH<0,0,-SH,1,0),ColorFFcc00;
STICKLINE(ZL>0,0,ZL,8,0),Color000044;
STICKLINE(ZL>0,0,ZL,6,0),Color000088;
STICKLINE(ZL>0,0,ZL,3,0),Color0000aa;
主力买:STICKLINE(ZL>0,0,ZL,1,0),Color0000FF;
STICKLINE(ZL<0,0,-ZL,8,0),Color004400;
STICKLINE(ZL<0,0,-ZL,6,0),Color008800;
STICKLINE(ZL<0,0,-ZL,3,0),Color00aa00;
主力卖:STICKLINE(ZL<0,0,-ZL,1,0),Color00FF00;

DRAWTEXTEX(c,1,25,0,STKLABEL+' '+STKNAME+''),ColorffFF00;
DRAWTEXTEX(c,1,400,100,'估算筹码:'+NUMTOSTR(ZSA[P],2)+'%'),COLOR00FF00;
DRAWTEXTEX(c,1,180,100,'筹码增减:'+NUMTOSTR(ZSB[P],2)+'%'),COLOR00FF00;
DRAWTEXTEX(c,1,590,0,'主力开始进入:'+NUMTOSTR(起点[P],0)+'(天) '),COLORFFFF00;
DRAWTEXTEX(c,1,400,0,'主力进入回吐:'+NUMTOSTR(终点[P],0)+'(天) '),COLORFFFF00;
DRAWTEXTEX(c,1,590,100,'主力成本:'+NUMTOSTR(主力成本[SYSPARAM(1)],2)+'元'),COLOR00FF00;
DRAWTEXTEX(SH>ZL and SH>0,1,40,100,'本日散户主买'),COLOREEEEEE;
DRAWTEXTEX(ZL>SH and ZL>0,1,40,100,'本日主力主买'),COLOR00FFFF;
DRAWTEXTEX(SH

·上一软件:叠加MACD和KDJ
·下一软件:黑马波段主图

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

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

说明

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

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

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

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

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

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

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