分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
当前位置：分析家公式网 → 软件中心 → 股票公式 → 飞狐公式
港澳F10副图-迎国庆
  • 软件大小：2.00 KB
  • 推荐星级：
  • 更新时间：2009-09-29 16:53:40
  • 软件类别： 国产软件 / 飞狐公式
  • 软件语言：简体中文
  • 授权方式： 免费版
  • 联系方式：暂无联系方式
  • 官方主页： Home Page
  • 点击大图：  【一键转帖到论坛】
  • 插件情况：
  • 运行环境：Win9X/Win2000/WinXP/Win2003/
  • 相关Tags：指标公式 股票软件,公式源码
  • (6)100%
    (0)0%

软件介绍

我原来使用Wind F10
由于近段时间不知什么原因已经更新不了啦 所以自己编写
我使用通达信下载港澳F10，然后飞狐调用！


公式一：
F:=F10FIND('【2.股东变化】',1);
F0:=F10FIND(' ',F);
u0:=F10TEXT(F0+440,57);
F1:=F10FIND('截至日期：',F);
u1:=F10TEXT(F1,1);
F2:=F10FIND(' ',F1);
u2:=F10TEXT(F2+111,75);
F3:=F10FIND(' ',F1);
u3:=F10TEXT(F2+187,75);
F4:=F10FIND(' ',F1);
u4:=F10TEXT(F2+265,75);
F5:=F10FIND(' ',F1);
u5:=F10TEXT(F2+340,75);
F6:=F10FIND(' ',F1);
u6:=F10TEXT(F2+491,75);
F7:=F10FIND(' ',F1);
u7:=F10TEXT(F2+567,75);
F8:=F10FIND(' ',F1);
u8:=F10TEXT(F2+643,75);
F9:=F10FIND(' ',F1);
u9:=F10TEXT(F2+719,75);
F10:=F10FIND(' ',F1);
u10:=F10TEXT(F2+795,75);
F11:=F10FIND(' ',F1);
u11:=F10TEXT(F2+871,75);
F12:=F10FIND(' ',F1);
u12:=F10TEXT(F2+947,75);
F13:=F10FIND(' ',F1);
u13:=F10TEXT(F2+1025,75);
F14:=F10FIND(' ',F1);
u14:=F10TEXT(F2+1100,75);
F15:=F10FIND(' ',F1);
u15:=F10TEXT(F2+N4,75);
DRAWTEXTEX(c,0,0,15,u0),COLORYELLOW;
DRAWTEXTEX(c,0,0,15,u1),COLORYELLOW;
DRAWTEXTEX(c,0,0,30,u2),COLORYELLOW;
DRAWTEXTEX(c,0,0,45,u3),COLORYELLOW;
DRAWTEXTEX(c,0,0,60,u4),COLORYELLOW;
DRAWTEXTEX(c,0,0,75,u5),COLORYELLOW;
DRAWTEXTEX(c,0,0,90,u6),COLORYELLOW;
DRAWTEXTEX(c,0,0,105,u7),COLORYELLOW;
DRAWTEXTEX(c,0,0,120,u8),COLORYELLOW;
DRAWTEXTEX(c,0,0,135,u9),COLORYELLOW;
DRAWTEXTEX(c,0,0,150,u10),COLORYELLOW;
DRAWTEXTEX(c,0,0,165,u11),COLORYELLOW;
DRAWTEXTEX(c,0,0,180,u12),COLORYELLOW;
DRAWTEXTEX(c,0,0,195,u13),COLORYELLOW;
DRAWTEXTEX(c,0,0,210,u14),COLORYELLOW;
DRAWTEXTEX(c,0,0,225,u15),COLORYELLOW;


公式二：
查找:=F10FIND('【2.股东户数】',100);股东:=F10FIND('股东户数',查找);
x:=F10FIND('｜2009-06-30｜',股东);
股东户数x:=STRTONUM(F10TEXT(x+19,10));
户均持股x:=STRTONUM(F10TEXT(x+35,10));
x1:=F10FIND('｜2009-03-31｜',股东);
股东户数x1:=STRTONUM(F10TEXT(x1+19,10));
户均持股x1:=STRTONUM(F10TEXT(x1+33,10));
x2:=F10FIND('｜2008-12-31｜',股东);
股东户数x2:=STRTONUM(F10TEXT(x2+19,10));
户均持股x2:=STRTONUM(F10TEXT(x2+33,10));
A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/IF(DATACOUNT>120,40,20));A5:=SYSPARAM(5);
更新:=IF(FINANCE(0)=200909,1,IF(FINANCE(0)=200906,2,IF(FINANCE(0)=200903,3,IF(FINANCE(0)=200812,4,IF(FINANCE(0)=200809,5,0)))));
{柱线}
STICKLINE(BARPOS=A3-AG*3 and 股东户数x>0,0,股东户数x,AG*20,1),ColorF1A8FF;
STICKLINE(BARPOS=A3-AG*2 and 户均持股x>0,0,户均持股x,AG*20,0),ColorF1A8FF;
DRAWTEXT(BARPOS=A3-AG*3,0,'090630'),COLORWHITE,ALIGN5,PXDN5;
STICKLINE(BARPOS=A3-AG*8 and 更新 and 股东户数x1>0,0,股东户数x1,AG*20,1),ColorF1A8FF;
STICKLINE(BARPOS=A3-AG*7 and 更新 and 户均持股x1>0,0,户均持股x1,AG*20,0),ColorF1A8FF;
DRAWTEXT(BARPOS=A3-AG*8,0,'090331'),COLORWHITE,ALIGN5,PXDN5;
STICKLINE(BARPOS=A3-AG*13 and 更新 and 股东户数x2>0,0,股东户数x2,AG*20,1),ColorF1A8FF;
STICKLINE(BARPOS=A3-AG*12 and 更新 and 户均持股x2>0,0,户均持股x2,AG*20,0),ColorF1A8FF;
DRAWTEXT(BARPOS=A3-AG*13,0,'081231'),COLORWHITE,ALIGN5,PXDN5;


公式三：
毛利率(港澳)副图
x1:=F10FIND('【每股指标】',1);
y1:=F10FIND('财务指标(单位)',x1);
n1:=STRTONUM(F10TEXT(y1+20,4));
nn1:=STRTONUM(F10TEXT(y1+25,2));
nn2:=STRTONUM(F10TEXT(y1+28,2));
n2:=STRTONUM(F10TEXT(y1+32,4));
n3:=STRTONUM(F10TEXT(y1+44,4));
n4:=STRTONUM(F10TEXT(y1+56,4));
d1:=F10FIND('【利润构成与盈利能力】',1);
d2:=F10FIND('销shou毛利率(%)',d1);
dd1:=STRTONUM(F10TEXT(d2+20,10));
dd2:=STRTONUM(F10TEXT(d2+32,10));
dd3:=STRTONUM(F10TEXT(d2+44,10));
dd4:=STRTONUM(F10TEXT(d2+56,10));
A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/IF(DATACOUNT>120,40,20));A5:=SYSPARAM(5);
更新:=IF(FINANCE(0)=200909,1,IF(FINANCE(0)=200906,2,IF(FINANCE(0)=200903,3,IF(FINANCE(0)=200812,4,IF(FINANCE(0)=200809,5,0)))));
{柱线}
//增
STICKLINE(BARPOS=A3-AG*3  and 更新 and dd1>0,0,dd1,AG*20,0),ColorF1A8FF;//7
STICKLINE(BARPOS=A3-AG*8 and 更新 and dd2>0,0,dd2,AG*20,1),ColorF1A8FF;//14
STICKLINE(BARPOS=A3-AG*13 and 更新 and dd3>0,0,dd3,AG*20,1),ColorF1A8FF;//21
STICKLINE(BARPOS=A3-AG*18 and 更新 and dd4>0,0,dd4,AG*20,1),ColorF1A8FF;//28
//减
STICKLINE(BARPOS=A3-AG*3  and 更新 and dd1<0,0,dd1,AG*20,0),ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*8 and 更新 and dd2<0,0,dd2,AG*20,1),ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*13 and 更新 and dd3<0,0,dd3,AG*20,1),ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*18 and 更新 and dd4<0,0,dd4,AG*20,1),ColorB9FFBC;
//显示时间
DRAWTEXT(BARPOS=A3-AG*3 and dd1>0,0,NUMTOSTR(n1,0)+'.'+NUMTOSTR(nn1,0)+'.'+NUMTOSTR(nn2,0)),COLORWHITE,ALIGN5,PXDN5;
DRAWTEXT(BARPOS=A3-AG*8 and dd2>0,0,NUMTOSTR(n2,0)),COLORWHITE,ALIGN5,PXDN5;
DRAWTEXT(BARPOS=A3-AG*13 and dd3>0,0,NUMTOSTR(n3,0)),COLORWHITE,ALIGN5,PXDN5;
DRAWTEXT(BARPOS=A3-AG*18 and dd4>0,0,NUMTOSTR(n4,0)),COLORWHITE,ALIGN5,PXDN5;
if(dd1=0,-0.05,0),COLORBLACK;


公式四：
净利润(港澳)副图
x1:=F10FIND('【每股指标】',1);
y1:=F10FIND('财务指标(单位)',x1);
n1:=STRTONUM(F10TEXT(y1+20,4));
nn1:=STRTONUM(F10TEXT(y1+25,2));
nn2:=STRTONUM(F10TEXT(y1+28,2));
n2:=STRTONUM(F10TEXT(y1+32,4));
n3:=STRTONUM(F10TEXT(y1+44,4));
n4:=STRTONUM(F10TEXT(y1+56,4));
d1:=F10FIND('【利润构成与盈利能力】',1);
d2:=F10FIND('净利润(万元)',d1);
dd1:=STRTONUM(F10TEXT(d2+20,10));
dd2:=STRTONUM(F10TEXT(d2+32,10));
dd3:=STRTONUM(F10TEXT(d2+44,10));
dd4:=STRTONUM(F10TEXT(d2+56,10));
A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/IF(DATACOUNT>120,40,20));A5:=SYSPARAM(5);
更新:=IF(FINANCE(0)=200909,1,IF(FINANCE(0)=200906,2,IF(FINANCE(0)=200903,3,IF(FINANCE(0)=200812,4,IF(FINANCE(0)=200809,5,0)))));
{柱线}
//增
STICKLINE(BARPOS=A3-AG*3 and 更新 and dd1>0,0,dd1,AG*20,0),ColorF1A8FF;
STICKLINE(BARPOS=A3-AG*8 and 更新 and dd2>0,0,dd2,AG*20,1),ColorF1A8FF;
STICKLINE(BARPOS=A3-AG*13 and 更新 and dd3>0,0,dd3,AG*20,1),ColorF1A8FF;
STICKLINE(BARPOS=A3-AG*18 and 更新 and dd4>0,0,dd4,AG*20,1),ColorF1A8FF;
//减
STICKLINE(BARPOS=A3-AG*3 and 更新 and dd1<0,0,dd1,AG*20,0),ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*8 and 更新 and dd2<0,0,dd2,AG*20,1),ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*13 and 更新 and dd3<0,0,dd3,AG*20,1),ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*18 and 更新 and dd4<0,0,dd4,AG*20,1),ColorB9FFBC;
//显示时间
DRAWTEXT(BARPOS=A3-AG*3,0,NUMTOSTR(n1,0)+'.'+NUMTOSTR(nn1,0)+'.'+NUMTOSTR(nn2,0)),COLORWHITE,ALIGN5,PXDN5;
DRAWTEXT(BARPOS=A3-AG*8,0,NUMTOSTR(n2,0)+'年'),COLORWHITE,ALIGN5,PXDN5;
DRAWTEXT(BARPOS=A3-AG*13,0,NUMTOSTR(n3,0)+'年'),COLORWHITE,ALIGN5,PXDN5;
DRAWTEXT(BARPOS=A3-AG*18,0,NUMTOSTR(n4,0)+'年'),COLORWHITE,ALIGN5,PXDN5;
-0.02,COLOR99;


公式五：
报表更新（选股）_港澳
首先要保证F10是最新的（请务必及时更新下载通达信F10）
先建立中报（6.30）更新板块
然后根据报表时间自己设定更新（选股）
INPUT:年(2009,1990,2099) ,月(6,1,12) ,日(30,1,31);
t:=f10find('【每股指标】',1);
t1:=f10find('财务指标(单位)',t);
NX:=f10text(t1+20,4);

地址


·上一软件：乘风获利KD（飞狐）－国庆推荐几个精品
·下一软件：优化"我为指标狂"老师的趋势指标

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

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

说明

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

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

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

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

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

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

~

栏目导航

本类热门

相关软件

如何导入公式

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