鹏博F10股东人数公式 飞狐人数鹏博指标 源码

指标公式详细说明

{鹏博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]),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;

//drawtext(sysparam(2)=barpos,10,'最新日期：'+sj[1]);


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[4]='str',fz[4]='str';
jdg:=f10find('财务指标-偿债能力',9000),linethick;
if jdg<0 then exit;
jdga:=f10find('指标名称',jdg),linethick;
sjta:=ltrim(f10text(f10find(' │',jdga)+3,56));
sja[1]:=strleft(sjta,8);
sja[2]:=strmid(sjta,15,8);
sja[3]:=strmid(sjta,14*2+1,8);
sja[4]:=strmid(sjta,14*3+1,8);
drawtext(sysparam(2)=barpos,30,'最新日期：'+sja[1]);
wt:=if(strlen(rtrim(sja[4]))>4,1,0);

jdg0:=f10find('资产负债比率(%)',jdga+50),linethick;
fzt:=f10text(jdg0,74);
fzt:=ltrim(strright(fzt,69-strfind(fzt,'│ ',12)));
fz[1]:=strleft(fzt,8);
fz[2]:=strmid(fzt,15,8);
fz[3]:=strmid(fzt,14*2+1,8);
fz[4]:=strmid(fzt,14*3+1,8);
最新资产负债:strtonum(fz[1]),precision2,linethick;
上:=strtonum(fz[2]),precision2,linethick;
三:=strtonum(fz[3]),precision2,linethick;
四:=strtonum(fz[4]),precision2,linethick;
explain(1,'==================================='),colorwhite;
explain(c>0 ,' 【f10资产负债率】'),colorred;
explain(1,sja[1]+'：'+numtostr(最新资产负债,4)),coloryellow;
explain(1,sja[2]+'：'+numtostr(上,4)),colormagenta;
explain(1,sja[3]+'：'+numtostr(三,4)),colorgreen;
explain(wt,sja[4]+'：'+numtostr(四,4)),colorred;

指标公式下载地址

好公式网提供全网最全的指标公式软件，感谢您的支持！鼠标双击图片可看大图！
下载请点击右侧“立即下载”，如只有源码，请点击本页面右侧的导入方法按图导入！
本站指标基于网友分享，仅供研究自学，勿作他用，本站对下载使用不承担任何责任！

上一指标公式：超级MACD公式 飞狐MACD指标 源码

下一指标公式：简单趋势----理想论坛一品茶缘编写珍品副图版本公式 飞狐趋势指标 源码

相关飞狐公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文鹏博F10股东人数公式 飞狐人数鹏博指标 源码仅供学习研究。