分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
当前位置：分析家公式网 → 软件中心 → 股票公式 → 飞狐公式
我来继续点燃 国庆学习的热潮（飞狐F10主图源码）
  • 软件大小：5.00 KB
  • 推荐星级：
  • 更新时间：2011-10-04 08:13:04
  • 软件类别： 国产软件 / 飞狐公式
  • 软件语言：简体中文
  • 授权方式： 免费版
  • 联系方式：暂无联系方式
  • 官方主页： Home Page
  • 点击大图：  【一键转帖到论坛】
  • 插件情况：
  • 运行环境：Win9X/Win2000/WinXP/Win2003/
  • 相关Tags：飞狐  主图  F10  
  • (0)0%
    (0)0%

软件介绍

INPUT:几月(1,1,6),牛人(1),进日期(91120,90000,100000),N(1,0,10);
{找股东---------港澳资讯F10用}
股东名称:='刘芳';{选填要找的股东名称}
////********//////////
当前月:=MONTH;
季末:=SUMBARS(CROSS(MOD(当前月,3),0.5),1);
VERTLINE(CROSS(MOD(当前月,3),0.5)),LINEDASHDOT,COLOR888888;
当季均价:=MA(C,季末),LINETHICK;
上季均价:=REF(当季均价,季末),LINETHICK;
估算成本:=上季均价*(10-0.618)/10,LINETHICK;
季均涨幅:=(HHV(当季均价,季末)-上季均价)/上季均价*100,LINETHICK;
月均价:=MA(C,SUMBARS(当前月<>REF(当前月,1),1)),LINETHICK0;
上月均价:=REF(月均价,SUMBARS(当前月<>REF(当前月,1),1)),LINETHICK0;
PARTLINE(上月均价=REF(上月均价,1),月均价),COLORFFFFFF,LINETHICK2;
PARTLINE(上月均价=REF(上月均价,1),上月均价),COLORFFFFFF,LINETHICK1;
PARTLINE(上季均价=REF(上季均价,1),当季均价),COLORFFBB88,LINETHICK1;
PARTLINE(上季均价=REF(上季均价,1),上季均价),COLORFFBB88,LINETHICK1;;
PARTLINE(估算成本=REF(估算成本,1),估算成本),COLORccaaaa,LINETHICK1;;
KLINE(O,H,L,C,0);
{综合评级---------港澳资讯F10用}
{评级说明：
评级系数: 1.0=买入  2.0=增持  3.0=中性  4.0=减持  5.0=卖出
综合评级指数：1.00~1.09买入； 1.10~2.09增持；2.10~3.09中性；3.10~4.09减持；4.10~5.00卖出。}
股票名称:=STKNAME;
股票代码:=STKLABEL;
{【高管买卖本公司股票情况】---------港澳资讯F10用}
起0:=F10FIND('【1.高管买卖本公司股票情况】',1);
起:=F10FIND('最近一年',起0+20);
止:=F10FIND('【2.高管列表】',起);
起止2:=F10TEXT(起,止-起);
找职务:=STRFIND(起止2,'职务',1),LINETHICK0 ;
无数据:=STRFIND(起止2,'无数据',1),LINETHICK0 ;
IF 找职务>0 AND 无数据=0  THEN BEGIN
起1:=F10FIND('├───┼────┼────┼────┼───┼─────┼──────┤',起+20);
起｜1:=F10FIND('｜',起1);
起｜2:=F10FIND('｜',起｜1+2);
起｜3:=F10FIND('｜',起｜2+2);
起｜4:=F10FIND('｜',起｜3+2);
起｜5:=F10FIND('｜',起｜4+2);
起｜6:=F10FIND('｜',起｜5+2);
起｜7:=F10FIND('｜',起｜6+2);
起｜8:=F10FIND('｜',起｜7+2);
姓名:=LTRIM(RTRIM(F10TEXT(起｜1+2,起｜2-起｜1-2)));
IF STRCMP(姓名,'姓名')<>0 THEN BEGIN
职务:=RTRIM(F10TEXT(起｜2+2,起｜3-起｜2-2));
变动数:=RTRIM(F10TEXT(起｜3+2,起｜4-起｜3-2));
变动后:=RTRIM(F10TEXT(起｜4+2,起｜5-起｜4-2));
变动均价:=RTRIM(F10TEXT(起｜5+2,起｜6-起｜5-2));
变动日期:=RTRIM(F10TEXT(起｜6+2,起｜7-起｜6-2));
变动原因:=RTRIM(F10TEXT(起｜7+2,起｜8-起｜7-2));
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,10,'               【'+股票代码+股票名称+'高管买卖本公司股票情况】                  ' ),COLOR9999FF;
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,100,'姓名    职务     变动数      变动后      变动均价   变动日期    变动原因  ' ),COLORFFFFFF;
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,180, 姓名+'    '+职务+变动数+'(股)'+变动后+'(股)'+'    ' +变动均价+'     ' +变动日期+'   '  +变动原因),COLORFFFFFF;
年0:=STRFIND(变动日期,'-',1);
年:=STRTONUM(STRLEFT(变动日期,年0-1))*10000-20000000;
月0:=STRFIND(变动日期,'-',5);
月:=STRTONUM(STRMID(变动日期,月0+1,2))*100;
日0:=STRRIGHT(变动日期,2);
日:=STRTONUM(日0);
最近进出日期:(年+月+日),COLORAAAAAA,LINETHICK0;
找最近进日期:IF(STRTONUM(变动数)>0,(年+月+日),0),COLORFFFFFF,LINETHICK0;{选股或排序,选股时选大于日期,如选大于2009年11月20日就填大于91120}
PARTLINE(最近进出日期+1000000<DATE,STRTONUM(变动均价)),COLOR9999FF,LINETHICK2;
;END;END;
PJ起点:=F10FIND('┌────┬───────────┬──────────────┐｜        ｜       综合评级       ｜          评级分布          ｜',1);
PJ止点:=F10FIND('└────┴────┴──────┴──┴──┴──┴──┴──┘',PJ起点);
PJ起止:=F10TEXT(PJ起点,PJ止点-PJ起点);
前或内:=IF(几月=1,'内','前');
时间段:=NUMTOSTR(几月,0)+'月'+前或内;{}
时间:=F10FIND(时间段,1);
PJ找到│1:=F10FIND('｜',时间);
PJ找到│2:=F10FIND('｜',PJ找到│1+3);
PJ找到│3:=F10FIND('｜',PJ找到│2+3);
PJ找到│4:=F10FIND('｜',PJ找到│3+2);

x1:=F10FIND('市场关注度排名',1);
x2:=F10FIND('说明：关注度是基于机构研究报告以及各大财经网站个股关注数据经过计算得出。
',x1);
z1:=IF(x1>1,F10TEXT(x1,x2-x1),'');
t1:=F10FIND('第',x1);
t2:=F10FIND('位 较前日',T1);
z2:=F10TEXT(T1+2,T2-T1-4);
综合评级指数:=LTRIM(F10TEXT(PJ找到│2+2,PJ找到│3-PJ找到│2-2));
综合评级:STRTONUM(LTRIM(F10TEXT(PJ找到│1+2,PJ找到│2-PJ找到│1-2))),LINETHICK;{越小越好}
空格:='   ';
《》:='                   【  投   资   评   级  】';
评级说明:=IF( 综合评级=0,《》+'\n  \n '+股票代码+空格+股票名称+空格+时间段+空格+'没有评级',
《》+'\n  \n '+股票代码+'  '+股票名称+'  '+时间段+'  '+
'综合评级 '+NUMTOSTR(综合评级,2)+' (越小越好) '+'  '+'综合评级指数 '+综合评级指数) ;
DRAWTEXTEX(综合评级>0 OR X1>0,1,10,480,评级说明+'\n \n '+z1),COLOR66ccff;


起点0:=F10FIND('★本栏包括【1.控股股东与实际控制人】【2.股东变化】【3.基金持股】',1);
起点:=F10FIND('【2.股东变化】',起点0+20);
止点:=F10FIND('──────────────┴─────┴─────┴────┴─────',起点);
起止:=F10TEXT(起点,止点-起点);
【】:=STRFIND(起止,股东名称,1);
IF 【】=0 THEN BEGIN EXIT;END;
DRAWTEXTEX(【】>0,1,10,270,'                   牛   人   持   股   情   况'),COLOR00FFFF;
找到股东:=F10FIND(股东名称,1);
找到│1:=F10FIND('｜',找到股东);
找到│2:=F10FIND('｜',找到│1+3);
找到│3:=F10FIND('｜',找到│2+3);
找到│4:=F10FIND('｜',找到│3+2);
持股:=F10TEXT(找到│1+2,找到│2-找到│1-2);
持股:=F10TEXT(找到│1+2,找到│2-找到│1-2);
比例:=STRTONUM(F10TEXT(找到│2+2,找到│3-找到│2));
进出:=SUM(V,季末)/100000*比例*季均涨幅/100;
状态:=LTRIM(F10TEXT(找到│4+2,0));
IF STRTONUM(状态)<>0 THEN BEGIN 增或减:=IF(STRTONUM(状态)>0,'增持','减持');END;
该股东持（万）股:STRTONUM(持股),LINETHICK;{用排序法}
DRAWTEXTEX(该股东持（万）股>0,1,10,360,'上季末'+股东名称+'持有'+'  '+股票代码+'  '+股票名称
+持股+'（万）股,'+''+'占流通股比(%)'+' '+NUMTOSTR(比例,2)+' '+'\n  \n季均价涨跌幅  '+NUMTOSTR(季均涨幅,2)+
'         上季'+增或减+' '+状态+'   本季可能出    '+NUMTOSTR(进出,2)+'（万）股'),COLORFFCCDF;
 

地址


·上一软件：短线精灵之“机构吃、吐货”再探讨（更新源码）
·下一软件：大智慧横盘突破买点股票池

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

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

说明

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

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

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

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

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

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

~

栏目导航

本类热门

相关软件

如何导入公式

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