f10公式—《盈利能力指标》(wind、鹏搏)
{销售毛利率-适用于wind、鹏搏}
input:n(2,1,3);
//确定f10种类
f10:=if(f10find('wind资讯就是',1)>0,2,if(f10find('鹏搏资讯',1)>0,3,0));
drawtext(sysparam(2)+20=barpos and f10=0,15,'本公式不适合该种f10资料。'),coloreeff;
if f10=0 then exit;
//设定最新指标名称
指标名称:=if(n=1,'净资产收益率',if(n=2,'主营业务利润率','销售毛利率'));
wa:=if(f10=2,f10find('最新简况→',10),f10find('财务指标-盈利能力',10));
//wind临时
ja:=f10find('【3:利润构成与盈利能力】',wa+200);
variable:sj[8]='str',sy[8]='str';
if wa<0 then exit;
ltz:=if(f10=3,74,70);
sjt:=f10text(f10find(if(f10=3,'指标名称','★最新财务指标★'),wa),70);
sjj:=strright(sjt,69-strfind(sjt,if(f10=2,'|','│'),1)+2);
syt:=f10text(f10find(指标名称,wa),ltz);
syt:=strright(syt,ltz-1-strfind(syt,if(f10=2,'|','│'),1)+2);
//drawtext(sysparam(2)+20=barpos,25,syt);//调试用语句
for j=1 to 4 do begin
sj[j]:=strmid(sjj,if(f10=3,14*(j-1)+5,12*(j-1)+if(j<4,5,4)),8);
sy[j]:=ltrim(strmid(syt,if(f10=3,14*(j-1)+7,if(f10=2,12*(j-1)+3,10*(j-1))),8));
end;
//drawtext(sysparam(2)+20=barpos,15,sj[1]);//调试用语句
drawtext(sysparam(2)=barpos,0,'《'+指标名称+'》'+' \n \n最新日期:'+sj[1]),align4,coloreeff;
tmp:=if(strcmp(strmid(sj[1],4,2),'12')=0,0,1);
wt:=if(strlen(rtrim(sj[4]))>4,1,0);
xsl:=if(datacount<60,1,5);
kg:=' ';
sjt1:=ltrim(f10text(if(f10=2,f10find('财务指标(单位)',ja)+14,f10find('指标名称',wa+700)+12),56));
syt1:=f10text(f10find(指标名称, if(f10=2,ja+100,wa+700))+18,56);
//drawtext(sysparam(2)+20=barpos,15,syt1);//调试用语句
for j=5 to 8 do begin
sj[j]:=strmid(sjt1,if(f10=3,14*(j-5)+5,if(f10=2,12*(j-5)+5,3)),8);
sy[j]:=ltrim(strmid(syt1,if(f10=3,14*(j-5)+5,if(f10=2,12*(j-5)+5,3)),8));
end;
最新:strtonum(if(tmp=1 and f10=2 and n=3,sy[5],sy[1])),precision4,colorffffff,linethick;
if tmp=1 and f10=2 then begin
sj[5]:=sj[6]; sj[6]:=sj[7]; sj[7]:=sj[8]; //sj[8]:=sja[5];
sy[5]:=sy[6]; sy[6]:=sy[7]; sy[7]:=sy[8];// sy[8]:=sya[5];
end;
if not(f10=2 and n=3) then begin
二期:strtonum(sy[2]),precision4,colorffff,linethick;
三期:strtonum(sy[3]),precision4,colorff00ff,linethick;
四期:strtonum(sy[4]),precision4,colorff00,linethick;
增长2:(最新/二期-1)*100,colorffff00,linethick;
end;
去年:strtonum(sy[5]),precision4,coloreeeeee,linethick;
前年:strtonum(sy[6]),precision4,coloreeee,linethick;
前二:strtonum(sy[7]),precision4,coloree00ee,linethick;
前三:strtonum(sy[8]),precision4,coloree00,linethick;
//倍增选:((一期/二期-1)*100>50 and 二期>=0.1)or((一期/strtonum(sy[5])-1)*100>=50 and strtonum(sy[5])>=0.1),linethick;
explain(1,'**'+指标名称-'(%)'+'**'),coloryellow;
if not(f10=2 and n=3) then begin
explain(1,'***近期***\n'+sj[1]+':'+numtostr(strtonum(sy[1]),4)+strright(''+numtostr((最新/二期-1)*100,2)+'%',10)),colorcyan;
explain(1,sj[2]+':'+numtostr(strtonum(sy[2]),4)+strright(''+numtostr((二期/三期-1)*100,2)+'%',10)),colorcyan;
explain(1,sj[3]+':'+numtostr(strtonum(sy[3]),4)+strright(''+numtostr((三期/if(四期<>0,四期,1)-1)*100,2)+'%',10)),colorcyan;
explain(wt,sj[4]+':'+numtostr(strtonum(sy[4]),4)),colorcyan;
end;
explain(tmp=1 and f10=2 and n=3,'***近期***\n'+sj[1]+':'+numtostr(最新,2)),colorcyan;
explain(wt,'***往年***\n'+sj[5]+':'+numtostr(strtonum(sy[5]),4)+strright(''+numtostr((去年/前年-1)*100,2)+'%',10)),colorgreen;
explain(wt,sj[6]+':'+numtostr(strtonum(sy[6]),4)+strright(''+numtostr((前年/前二-1)*100,2)+'%',10)),colorgreen;
explain(wt,sj[7]+':'+numtostr(strtonum(sy[7]),4)+strright(''+numtostr((前二/前三-1)*100,2)+'%',10)),colorgreen;
explain(wt,sj[8]+':'+numtostr(strtonum(sy[8]),4)),colorgreen;
值2:=if(tmp,去年,前年),linethick;
值3:=if(tmp,前年,前二),linethick;
值4:=if(tmp,前二,前三),linethick;
if datacount>20 then begin
//画柱线
-0.05,color99;
a3:=sysparam(3);ag:=intpart((sysparam(3)-sysparam(2))/if(datacount>120,20,20));a5:=sysparam(5);
//stickline(barpos=a3-ag*2,0,一期,ag*4,0),colorff,linethick2;
stickline(barpos=a3-ag*2,0,最新,ag*4,0),colorff,linethick2;
stickline(barpos=a3-ag*5,0,值2,ag*4,0),colorffff,linethick2;
stickline(barpos=a3-ag*8,0,值3,ag*4,0),colorffff00,linethick2;
stickline(barpos=a3-ag*11,0,值4,ag*4,0),colorff00,linethick2;
//显示数值
drawnumber(barpos=a3-ag*1,if(最新<0,最新/2,0),最新,3),,colorffd000,align,pxup30;
drawnumber(barpos=a3-ag*4,if(值2<0,值2/2,0),值2,3),colorffd000,align,pxup30;
drawnumber(barpos=a3-ag*7,if(值3<0,值3/2,0),值3,3),,colorffd000,align,pxup30;
drawnumber(barpos=a3-ag*10,if(值4<0,值4/2,0),值4,3),,colorffd000,align,pxup30;
//显示时间
drawtext(barpos=a3-ag*3,0,sj[1]),colorccee90,align5,pxdn5;
drawtext(barpos=a3-ag*6,0,if(tmp,sj[5],sj[6])),colorccee90,align5,pxdn5;
drawtext(barpos=a3-ag*9,0,if(tmp,sj[6],sj[7])),colorccee90,align5,pxdn5;
drawtext(barpos=a3-ag*12,0,if(tmp,sj[7],sj[8])),colorccee90,align5,pxdn5;
end;
//
{参数精灵:
选择指标:param#1(1-3)
1- 净资产收益率2- 主营业务利润率3- 销售毛利率
上一指标公式:现金流量指标公式详解 飞狐现金流量
下一指标公式:投资评级指标公式详解 飞狐投资
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文盈利能力F10指标公式详解 飞狐F10仅供学习研究。