分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
当前位置：分析家公式网 → 软件中心 → 股票公式 → 飞狐公式
鹏博F10股东人数
  • 软件大小：6.00 KB
  • 推荐星级：
  • 更新时间：2008-11-05 19:58:28
  • 软件类别： 国产软件 / 飞狐公式
  • 软件语言：简体中文
  • 授权方式： 解密版
  • 联系方式：暂无联系方式
  • 官方主页： Home Page
  • 点击大图：  【一键转帖到论坛】
  • 插件情况：
  • 运行环境：Win9X/2000/XP/2003/
  • 相关Tags：指标公式 股票软件,公式源码
  • (1)50%
    (1)50%

软件介绍

{鹏博F10股东人数}
//流通: CAPITAL/100,LINETHICK;
控盘:=CAPITAL/100/ FINANCE(50),LINETHICK;

{基于鹏搏资讯，因为F10资料经常变动，所以在变动后，需要对应调整，可做主图}
gdstar:=F10FIND('总户数',500);{查找F10中股东人数的位置}
gdw1:=F10FIND('200',gdstar+40);
gdw2:=F10FIND('200',gdw1+40);
gdw3:=F10FIND('200',gdw2+40);
gdw4:=F10FIND('200',gdw3+40);
IF gdstar<0 THEN EXIT;
{取对应的数据资料}
gdtd1:=F10TEXT(gdw1,10);gdtx1:=LTRIM(F10TEXT(gdw1+14,10));
gdtd2:=F10TEXT(gdw2,10);gdtx2:=LTRIM(F10TEXT(gdw2+14,10));
gdtd3:=F10TEXT(gdw3,10);gdtx3:=LTRIM(F10TEXT(gdw3+14,10));
gdtd4:=F10TEXT(gdw4,10);gdtx4:=LTRIM(F10TEXT(gdw4+14,10));
{转换字符串为数值}
gd1:=STRTONUM(gdtx1),LINETHICK;gd2:=STRTONUM(gdtx2),LINETHICK;
gd3:=STRTONUM(gdtx3),LINETHICK;gd4:=STRTONUM(gdtx4),LINETHICK;
{显示}
本期:=gd1;
前:=gd2;
近:=gd3;
远:=gd4;
d:=BACKSET(ISLASTBAR,88);
A:=D>REF(D,1);
STICKLINE(REF(A,0) AND GD4>1,0,远,40,0),color00ffcc;
STICKLINE(REF(A,20) AND GD3>1,0,近,40,0),color00ff00;
STICKLINE(REF(A,40) AND GD2>1,0,前,40,0),colorffff00;
STICKLINE(REF(A,60) AND GD1>1,0,本期,40,0),colorFF00FF;
最大:=max(远,近);
最大:=max(最大,前);
最大:=max(最大,本期);

增幅:(本期-前)/前*100,linethick0;
BLW:=F10FIND('占流通A股比例',500);
十大流通股东本期占（%）:STRTONUM(STRRIGHT(F10TEXT(BLW,20),6)),PRECISION2,COLORYELLOW,LINETHICK0;
上期占（%）:STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例',BLW+20),20),6)),PRECISION2,COLORYELLOW,LINETHICK0;
{-0.1*最大,color;}
DRAWTEXT(ref(a,1) AND GD4>1,1.1*最大,'人数:'+gdtx4),ALIGN,color00ffcc;
DRAWTEXT(ref(a,1) AND GD4>1,-0.02*最大,'（远期）'),ALIGN,color00ffcc;
DRAWTEXT(ref(a,20) AND GD3>1,1.1*最大,'人数:'+gdtx3),ALIGN,color00ff00;
DRAWTEXT(ref(a,20) AND GD3>1,-0.02*最大,'（近期）'),ALIGN,color00ff00;
DRAWTEXT(ref(a,40) AND GD2>1,1.1*最大,'人数:'+gdtx2),ALIGN,colorffff00;
DRAWTEXT(ref(a,40) AND GD2>1,-0.02*最大,'（前期）'),ALIGN,colorffff00;
DRAWTEXT(ref(a,60) AND GD1>1,1.1*最大,'人数:'+gdtx1),ALIGN,colorff00ff;
DRAWTEXT(ref(a,60) AND GD1>1,-0.02*最大,'（本期）'),ALIGN,colorff00ff;

//


{鹏博F10净利润增长}
VARIABLE:SJ[8]='str',SY[8]='str',TT=6;
jdg:=F10FIND('财务指标-增长能力',10000),LINETHICK;
IF jdg=-1 then EXIT;
SJT:=F10TEXT(F10FIND('指标名称',jdg)+4,70);
SJ[1]:=LTRIM(STRMID(SJT,14,10));
FOR i=1 TO 4 DO BEGIN
    TMP:=STRFIND(SJT,'  │',1);
    SJ[i]:=LTRIM(STRMID(SJT,TMP+4,10));
    SJT:=LTRIM(STRMID(SJT,TMP+2,0));
END;
WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);
DRAWTEXT(SYSPARAM(2)=BARPOS,10,'最新日期：'+SJ[1]);

SYT:=F10TEXT(F10FIND('净利润增长率',jdg)+6,70);
SYT:=LTRIM(STRRIGHT(SYT,69-STRFIND(SYT,'│ ',10)));
SY[1]:=STRLEFT(SYT,6);
SY[2]:=LTRIM(STRMID(SYT,13,8));
SY[3]:=LTRIM(STRMID(SYT,13*2,8));
SY[4]:=IF(WT,LTRIM(STRMID(SYT,13*3,8)),'');

本期净利润:STRTONUM(SY[1]),PRECISION4,COLORFFFFFF,LINETHICK;
二期:=STRTONUM(SY[2]),PRECISION4,COLORFFFF,LINETHICK;
三期:=STRTONUM(SY[3]),PRECISION4,COLORFF00FF,LINETHICK;
四期:=STRTONUM(SY[4]),PRECISION4,COLORFF00,LINETHICK;
增长:=本期净利润>二期,COLORFFFF00,LINETHICK;

EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(c>0 ,'     【F10净利润增长】'),COLORred;
EXPLAIN(1,'***近期***\n'+SJ[1]+'：'+NUMTOSTR(STRTONUM(SY[1]),4)),colorcyan;
EXPLAIN(1,SJ[2]+'：'+NUMTOSTR(STRTONUM(SY[2]),4)),colorcyan;
EXPLAIN(1,SJ[3]+'：'+NUMTOSTR(STRTONUM(SY[3]),4)),colorcyan;
EXPLAIN(WT,SJ[4]+'：'+NUMTOSTR(STRTONUM(SY[4]),4)),colorcyan;

IF WT=1 THEN BEGIN
   SJT1:=LTRIM(F10TEXT(F10FIND('指标名称',jdg+700)+16,56));
   SJ[5]:=STRLEFT(SJT1,8);
   SJ[6]:=RTRIM(LTRIM(STRMID(SJT1,14,10)));
   SJ[7]:=RTRIM(LTRIM(STRMID(SJT1,14*2,10)));
   SJ[8]:=RTRIM(LTRIM(STRMID(SJT1,14*3,10)));

   SYT1:=F10TEXT(F10FIND('净利润增长率',jdg+700)+24,50);
   SY[5]:=STRLEFT(SYT1,6);
   SY[6]:=LTRIM(STRMID(SYT1,14,8));
   SY[7]:=LTRIM(STRMID(SYT1,14*2,8));
   SY[8]:=LTRIM(STRMID(SYT1,14*3,8));

   去年:=STRTONUM(SY[5]),PRECISION4,LINETHICK;
   前年:=STRTONUM(SY[6]),PRECISION4,LINETHICK;
   前二:=STRTONUM(SY[7]),PRECISION4,LINETHICK;
   前三:=STRTONUM(SY[8]),PRECISION4,LINETHICK;
   EXPLAIN(WT,'***往年***\n'+SJ[5]+'：'+NUMTOSTR(STRTONUM(SY[5]),4)),colorgreen;
   EXPLAIN(WT,SJ[6]+'：'+NUMTOSTR(STRTONUM(SY[6]),4)),colorgreen;
   EXPLAIN(WT,SJ[7]+'：'+NUMTOSTR(STRTONUM(SY[7]),4)),colorgreen;
   EXPLAIN(WT,SJ[8]+'：'+NUMTOSTR(STRTONUM(SY[8]),4)),colorgreen;
END;
//

{鹏博F10每股收益}
VARIABLE:SJA[5]='str',SYA[5]='str',TTA=1;
jdgA:=F10FIND('主要指标',50),LINETHICK;
SJTA:=F10TEXT(F10FIND(' │',jdgA)+3,50);
SJA[1]:=STRLEFT(SJTA,8);
SJA[2]:=STRMID(SJTA,11,8);
SJA[3]:=STRMID(SJTA,10*2+1,8);
SJA[4]:=STRMID(SJTA,10*3+1,8);
SJA[5]:=STRMID(SJTA,10*4+1,8);
jdg0:=F10FIND('每股收益(元)',jdgA),LINETHICK;
SYTA:=F10TEXT(jdg0,70);
SYTA:=STRRIGHT(SYTA,69-STRFIND(SYTA,'│ ',12));
SYA[1]:=STRLEFT(SYTA,8);
FOR j=1 TO 5 DO BEGIN
    SYA[j]:=STRMID(SYTA,TTA,8);
    TTA:=TTA+10;
END;
最新每股收益:STRTONUM(SYA[1]),PRECISION4,LINETHICK;
上:=STRTONUM(SYA[2]),PRECISION4,LINETHICK;
三:=STRTONUM(SYA[3]),PRECISION4,LINETHICK;
四:=STRTONUM(SYA[4]),PRECISION4,LINETHICK;
五:=STRTONUM(SYA[5]),PRECISION4,LINETHICK;
增长1:=最新每股收益>上,LINETHICK;
//DRAWTEXT(SYSPARAM(2)=BARPOS,30,'最新日期：'+SJTA);
DRAWTEXT(SYSPARAM(2)=BARPOS,10,'最新日期：'+SJA[1]);
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(c>0 ,'     【F10每股收益】'),COLORred;
EXPLAIN(1,'**主要指标**\n'+SJA[1]+'：'+NUMTOSTR(最新每股收益,4)),coloryellow;
EXPLAIN(1,SJA[2]+'：'+NUMTOSTR(上,4)),coloryellow;
EXPLAIN(1,SJA[3]+'：'+NUMTOSTR(三,4)),coloryellow;
EXPLAIN(1,SJA[4]+'：'+NUMTOSTR(四,4)),coloryellow;
EXPLAIN(1,SJA[5]+'：'+NUMTOSTR(五,4)),coloryellow;

VARIABLE:SJ[8]='str',SY[8]='str',TT=6;
jdg:=F10FIND('财务指标-每股指标:',6000),LINETHICK;
IF jdg=-1 then EXIT;
SJT:=F10TEXT(F10FIND('指标名称',jdg)+4,70);
SJ[1]:=LTRIM(STRMID(SJT,14,10));
FOR i=1 TO 4 DO BEGIN
    TMP:=STRFIND(SJT,'  │',1);
    SJ[i]:=LTRIM(STRMID(SJT,TMP+4,10));
    SJT:=LTRIM(STRMID(SJT,TMP+2,0));
END;
WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);

SYT:=F10TEXT(F10FIND('每股收益(元)',jdg)+6,70);
SYT:=LTRIM(STRRIGHT(SYT,69-STRFIND(SYT,'│ ',10)));
SY[1]:=STRLEFT(SYT,6);
SY[2]:=LTRIM(STRMID(SYT,14,8));
SY[3]:=LTRIM(STRMID(SYT,14*2,8));
SY[4]:=IF(WT,LTRIM(STRMID(SYT,14*3,8)),'');

一期:=STRTONUM(SY[1]),PRECISION4,COLORFFFFFF,LINETHICK;
二期:=STRTONUM(SY[2]),PRECISION4,COLORFFFF,LINETHICK;
三期:=STRTONUM(SY[3]),PRECISION4,COLORFF00FF,LINETHICK;
四期:=STRTONUM(SY[4]),PRECISION4,COLORFF00,LINETHICK;
增长2:=一期>二期,COLORFFFF00,LINETHICK;
EXPLAIN(1,'***近期***\n'+SJ[1]+'：'+NUMTOSTR(STRTONUM(SY[1]),

地址


·上一软件：点石投资.FNC
·下一软件：【多方空圆终极版】大智慧L2版主图指标.

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

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

说明

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

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

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

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

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

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

~

栏目导航

本类热门

相关软件

如何导入公式

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