财务主图第七版公式 飞狐财务指标 源码

指标公式详细说明

{财务主图第七版
指标来源说明：
此指标源于lzw077和kkkale两位老师，本人只是将两位老师的心血做了整理性工作。
其中财务主图为lzw007老师首创的精品指标。非常敬佩lzw077老师。不仅仅是他创造能力和精湛的技术水平，更敬佩他的人品和为人。记得当初lzw077老师创造此指标时，不仅将源码无私展示给论坛朋友们共享，更为此耗费大量的时间和精力开专贴耐心阐述此指标的编制原理及大量实战案例，真是受益匪浅！此指标之所以被lzw077老师命名为“财务主图”，顾名思义指标中引用了部分财务数据，以后不断修正前后出了七个版本。至第六个版本止，均有分析家、飞狐等各类股软的版本，但至第七版时仅见分析家（大智慧新一代）。坦率的说，在第六个版本时，飞狐版的已放弃了财务数据的引用，个人冒昧揣测：可能是原指标中引用的“销售毛利润率”数据飞狐软件的财务数据没有体现（细查飞狐相关财务函数也未见）。
个人感觉，使用没有引用财务数据的第六版“财务主图”稍有遗憾，随产生了将lzw007老师开发的第七版大智慧分析家使用版改为飞狐版的念头。苦于水平有限，没有找到如何在飞狐中引用“销售毛利润”财务数据办法。在论坛中发求助贴，幸得kkkale老师的热心指教，采取f10数据采集的办法成功的解决了这一难题，并得到了kkkale老师慷慨相赠的提取f10数据精品指标的源码。
今将两位老师心血合二为一，提供给大家。因第七版财务主图系建立在大智慧分析家的平台上，飞狐有部分函数与之不一致，本人对此做了些修改，以便飞狐能使用。
水平有限，欢迎朋友们指出其中错误，以利进一步完善。
财务主图第七版（飞狐专用）源码如下：}
{销售毛利率-适用于wind、鹏搏}
input:n(3,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;

最新:=字符串转化为数字(条件函数(tmp=1 and f10=2 and n=3,sy[5],sy[1])),precision4,colorffffff;

drawgbk(close>0,colorrgb(0,128,128),colorrgb(25,25,112),0);
趋势:=ema(close,5);
短线:=ema(趋势,8);
中线:=ema(短线,13);
长线:=ema(中线,50);
价格中枢:=(sum(长线,0)/barpos);
g5:价格中枢*4.236,linethick2,pointdot,coloryellow;
g4:价格中枢*3.382,pointdot,colorwhite;
g3:价格中枢*2.618,pointdot,colorwhite;
g2:价格中枢*2,linethick4,color009900;
g1:价格中枢*1.191,linethick4,color009900;
fillrgn(g1,g2,g1>0),color5f5f5f;
价格中枢*1.618,linethick1,colorffbb00;
a:=(3*close+low+open+high)/6;
x:=(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)+
14*ref(a,6)+13*ref(a,7)+12*ref(a,8)+11*ref(a,9)+10*ref(a,10)+9*ref(a,11)+8*ref(a,12)
+7*ref(a,13)+6*ref(a,14)+5*ref(a,15)+4*ref(a,16)+3*ref(a,17)+2*ref(a,18)+
ref(a,20))/210;
回调认同:ema(x,13),colorff00ff;
stickline(close>open,high,low,0.3,0 ),color9933ff;
stickline(open>=close,low,high,0.3,0 ),color66cc33;
stickline(open>=close ,close ,open,8,0),color009900;
stickline(open>=close ,close ,open,2,0),color00cc00;
stickline(open>=close ,close ,open,1.5,0),color33ff00;
stickline(open>=close ,close ,open,1,0),color66ff00;
stickline(close>open,close,open,8,0),color000099;
stickline(close>open,close,open,2,0 ),color0000cc;
stickline(close>open,close,open,1.5,0 ),color0000ff;
stickline(close>open,close,open,1,0 ),color0033ff;
aa:=close/ref(close,1)>=1.09;
stickline(aa,open,close,8,0),coloryellow;
stickline(aa,low,high,0.5 ,0 ),coloryellow;
{}
x1:=(close+low+high)/3;
bb13:=atan(ema(x1,13)-ref(ema(x1,13),1))*3.1416*10;
ema8:=ema(close,8);
drawtext(filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10),
ema8,'∠45上升'),colorwhite;
{}
wr:=-100*(hhv(high,14)-close)/(hhv(high,14)-llv(low,14));
drawicon(filter(cross(wr,(0 - 81)),10),low,4);{//威廉买点↑ ↓}
drawicon(filter(cross((0 -19),wr),10),high*1.04,5);{//威廉卖点};
drawicon(count(close>ref(close,1),5)=5,high*1.01,3);
drawicon(count(close<ref(close,1),5)=5,low*0.995,1);
年认同价:=ma(close,240);
毛利润率:=最新/100;
成长价值:年认同价*(1+毛利润率),coloryellow,linethick1;
收益价值:年认同价+finance(21),colorred,linethick1;

指标公式下载地址

上一指标公式：粉色建仓绿色出货公式 飞狐建仓粉色指标 源码

下一指标公式：收银台版公式 飞狐指标 源码

相关飞狐公式推荐

指标公式下载注意

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

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

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

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

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

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

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

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

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

☉ 本文财务主图第七版公式 飞狐财务指标 源码仅供学习研究。