通达信财报余博评分系统获利能力分析财务结构分析现金流分析副图源码贴-通达信公式-公式网

通达信财报余博评分系统获利能力分析财务结构分析现金流分析副图源码贴
相关简介：DRAWRECTREL(0,0,999,999,RGB(0,0,0)); N1:=0.1; YEARA:=YEAR; YEARB:=IF(MONTH4,YEARA-1,YEARA); DRAWTEXT_FIX(ISLASTBAR,0.15,0.0,0,'获利能力分析（%）'),COLORGREEN; DRAWTEXT_FIX(ISLASTBAR,0.465,0.0,0,'财务结构分析'),COLORGREEN; DRAWTEXT_FIX(ISLASTBAR,0.790,0.0,0,'现金流分析（
文章来源：公式网发布时间：2020-12-04浏览次数：下载次数：0

DRAWRECTREL(0,0,999,999,RGB(0,0,0));
N1:=0.1;
YEARA:=YEAR;
YEARB:=IF(MONTH<4,YEARA-1,YEARA);

DRAWTEXT_FIX(ISLASTBAR,0.15,0.0,0,'获利能力分析（%）'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.465,0.0,0,'财务结构分析'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.790,0.0,0,'现金流分析（亿）'),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR,0.007,N1,0,'季度'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.001,N1*2,0,IF(BH=0,'一季度','前二季')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.001,N1*3,0,IF(BH=0,'二季度','前一季')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.002,N1*4,0,IF(BH=0,'三季度','当季')),COLORYELLOW;
{DRAWTEXT_FIX(ISLASTBAR,0.005,N1*5,0,'趋势'),COLORCYAN;}
DRAWTEXT_FIX(ISLASTBAR,0.004,N1*6,0,'评分'),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0.052,N1,0,'营业毛利率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.132,N1,0,'营业利润率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.215,N1,0,'净利率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.275,N1,0,'ROE'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.325,N1,0,'资产负债比率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.415,N1,0,'流动/总资产比'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.510,N1,0,'存货周转率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.590,N1,0,'应收帐款周转率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.700,N1,0,'经营流量净额'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.800,N1,0,'投资流量净额'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.900,N1,0,'筹资流量净额'),COLORGREEN;

DATE1:=IF(BH=0,0331,IF(FINANCE(37)=1,0930,IF(FINANCE(37)=2,1231,IF(FINANCE(37)=3,0331,IF(FINANCE(37)=4,0630,DRAWNULL)))));
DATE2:=IF(BH=0,0630,IF(FINANCE(37)=1,1231,IF(FINANCE(37)=2,0331,IF(FINANCE(37)=3,0630,IF(FINANCE(37)=4,0930,DRAWNULL)))));
DATE3:=IF(BH=0,0930,IF(FINANCE(37)=1,0331,IF(FINANCE(37)=2,0630,IF(FINANCE(37)=3,0930,IF(FINANCE(37)=4,1231,DRAWNULL)))));

{----------------营业毛利率---------------}
YYML2011:=FINONE(202,YEARB,DATE1);
YYML2012:=FINONE(202,YEARB,DATE2);
YYML2013:=FINONE(202,YEARB,DATE3);
MLS:=IF(YYML2011YYML2012 AND YYML2012>YYML2013,0,1));
MLF:=IF(FINVALUE(202)>50,15,IF(FINVALUE(202)>40,12,IF(FINVALUE(202)>30,9,IF(FINVALUE(202)>20,6,IF(FINVALUE(202)>10,3,0)))));
YYML2017:=CON2STR(MLF,0);
NYY:=0.065;
DRAWTEXT_FIX(ISLASTBAR,NYY,N1*2,0,CON2STR(YYML2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYY,N1*3,0,CON2STR(YYML2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYY,N1*4,0,CON2STR(YYML2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYY+0.01,N1*5,0,IF(MLS=0,'降',IF(MLS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NYY+0.01,N1*6,0,YYML2017),COLORYELLOW;
{----------------营业利润率---------------}
YYLRL2011:=FINONE(194,YEARB,DATE1);
YYLRL2012:=FINONE(194,YEARB,DATE2);
YYLRL2013:=FINONE(194,YEARB,DATE3);
LYS:=IF(YYLRL2011YYLRL2012 AND YYLRL2012>YYLRL2013,0,1));
LYF:=IF(FINVALUE(194)>40,15,IF(FINVALUE(194)>20,12,IF(FINVALUE(194)>10,9,IF(FINVALUE(194)>5,6,IF(FINVALUE(194)>0,3,0)))));
YYLRL2017:=CON2STR(LYF,0);
NLRL:=0.14;
DRAWTEXT_FIX(ISLASTBAR,NLRL,N1*2,0,CON2STR(YYLRL2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NLRL,N1*3,0,CON2STR(YYLRL2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NLRL,N1*4,0,CON2STR(YYLRL2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NLRL+0.01,N1*5,0,IF(LYS=0,'降',IF(LYS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NLRL+0.01,N1*6,0,YYLRL2017),COLORYELLOW;

{----------------净利率---------------}
JLN2011:=FINONE(199,YEARB,DATE1);
JLN2012:=FINONE(199,YEARB,DATE2);
JLN2013:=FINONE(199,YEARB,DATE3);
JLS:=IF(JLN2011JLN2012 AND JLN2012>JLN2013,0,1));
JLF:=IF(FINVALUE(199)>30,15,IF(FINVALUE(199)>15,12,IF(FINVALUE(199)>10,9,IF(FINVALUE(199)>5,6,IF(FINVALUE(199)>0,3,0)))));
JLN2017:=CON2STR(JLF,0);
NJLN:=0.215;
DRAWTEXT_FIX(ISLASTBAR,NJLN,N1*2,0,CON2STR(JLN2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLN,N1*3,0,CON2STR(JLN2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLN,N1*4,0,CON2STR(JLN2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLN+0.01,N1*5,0,IF(JLS=0,'降',IF(JLS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NJLN+0.01,N1*6,0,JLN2017),COLORYELLOW;

{------------------ROE-----------------------}
ROE2011:=FINONE(6,YEARB,DATE1);
ROE2012:=FINONE(6,YEARB,DATE2);
ROE2013:=FINONE(6,YEARB,DATE3);
ROES:=IF(ROE2011ROE2012 AND ROE2012>ROE2013,0,1));
ROEF:=IF(FINVALUE(6)>15,15,IF(FINVALUE(6)>10,12,IF(FINVALUE(6)>6,9,IF(FINVALUE(6)>3,6,IF(FINVALUE(6)>0,3,0)))));
ROE2017:=CON2STR(ROEF,0);
NROE:=0.27;
DRAWTEXT_FIX(ISLASTBAR,NROE,N1*2,0,CON2STR(ROE2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NROE,N1*3,0,CON2STR(ROE2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NROE,N1*4,0,CON2STR(ROE2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NROE+0.01,N1*5,0,IF(ROES=0,'降',IF(ROES=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NROE+0.01,N1*6,0,ROE2017),COLORYELLOW;

{-----------------资产负债比率------------------}
YESR2011:=FINONE(63,YEARB,DATE1)/FINONE(40,YEARB,DATE1)*100;
YESR2012:=FINONE(63,YEARB,DATE2)/FINONE(40,YEARB,DATE2)*100;
YESR2013:=FINONE(63,YEARB,DATE3)/FINONE(40,YEARB,DATE3)*100;
ZFS:=IF(YESR2011YESR2012 AND YESR2012>YESR2013,0,1));
ZFF:=IF(FINVALUE(63)/FINVALUE(40)*100>90,1,
IF(FINVALUE(63)/FINVALUE(40)*100>60,2,
IF(FINVALUE(63)/FINVALUE(40)*100>40,3,
IF(FINVALUE(63)/FINVALUE(40)*100>20,4,
IF(FINVALUE(63)/FINVALUE(40)*100>0,5,0)))));
YESR2017:=CON2STR(ZFF,0);
NYE:=0.34;
DRAWTEXT_FIX(ISLASTBAR,NYE,N1*2,0,CON2STR(YESR2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYE,N1*3,0,CON2STR(YESR2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYE,N1*4,0,CON2STR(YESR2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYE+0.01,N1*5,0,IF(ZFS=0,'降',IF(ZFS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NYE+0.01,N1*6,0,YESR2017),COLORYELLOW;

{-----------------流动/总资产比------------------}
YSZZ2011:=FINONE(21,YEARB,DATE1)/FINONE(40,YEARB,DATE1)*100;
YSZZ2012:=FINONE(21,YEARB,DATE2)/FINONE(40,YEARB,DATE2)*100;
YSZZ2013:=FINONE(21,YEARB,DATE3)/FINONE(40,YEARB,DATE3)*100;
LZS:=IF(YSZZ2011YSZZ2012 AND YSZZ2012>YSZZ2013,0,1));
LZB:=IF(FINVALUE(21)/FINVALUE(40)*100>70,5,
IF(FINVALUE(21)/FINVALUE(40)*100>50,4,
IF(FINVALUE(21)/FINVALUE(40)*100>30,3,
IF(FINVALUE(21)/FINVALUE(40)*100>20,2,
IF(FINVALUE(21)/FINVALUE(40)*100>10,1,0)))));
YSZZ2017:=CON2STR(LZB,0);
NYS:=0.43;
DRAWTEXT_FIX(ISLASTBAR,NYS,N1*2,0,CON2STR(YSZZ2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYS,N1*3,0,CON2STR(YSZZ2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYS,N1*4,0,CON2STR(YSZZ2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYS+0.01,N1*5,0,IF(LZS=0,'降',IF(LZS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NYS+0.01,N1*6,0,YSZZ2017),COLORYELLOW;

{-----------------存货周转率------------------}
JLRL2011:=FINONE(173,YEARB,DATE1);
JLRL2012:=FINONE(173,YEARB,DATE2);
JLRL2013:=FINONE(173,YEARB,DATE3);
CHS:=IF(JLRL2011JLRL2012 AND JLRL2012>JLRL2013,0,1));
CHF:=IF(FINVALUE(173)>2,10,IF(FINVALUE(173)>1.5,8,IF(FINVALUE(173)>1,6,IF(FINVALUE(173)>0.5,4,IF(FINVALUE(173)>0,2,0)))));
JLRL2017:=CON2STR(CHF,0);
NJL:=0.52;
DRAWTEXT_FIX(ISLASTBAR,NJL,N1*2,0,CON2STR(JLRL2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJL,N1*3,0,CON2STR(JLRL2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJL,N1*4,0,CON2STR(JLRL2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJL+0.01,N1*5,0,IF(CHS=0,'降',IF(CHS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NJL+0.01,N1*6,0,JLRL2017),COLORYELLOW;

{---

上一篇：通达信历年财报副图指标修改参数自由选择起始年份源码下一篇：通达信神鱼筹码副图指标源码

☞公式网提供公式解密、改选股服务联系点击查看详情（有偿服务,非诚勿扰）...

☞公式网公式指标安装帮助说明，新手必读，好好学习天天向上！...

☞公式网注册、登录、下载问题说明，如遇问题请查阅。...

　☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

上传会员:

公式网

文件大小:

Bytes

上传时间:

2020-12-04

下载积分:

下载地址: 点击下载

免责声明:

请仔细阅读并同意后才能下载

本附件为用户分享上传，公式网没有对文件进行验证，不能保证下载资源的准确性、安全性和完整性，也不保证下载资源能正常安装和使用，且下载后扣除的积分无法退还，除非您充分理解并完全接受本声明，否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利，其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用，不得用于商业或者非法用途，如有侵犯您的版权，请参看《公式网侵权处理流程》《公式网免责声明条款》。
点击下载无反应时，更换主流浏览器重新登录操作，如360浏览器、Edge浏览器、谷歌浏览器，个别浏览器有不兼容现象。

勾选以下表示您已经阅读并同意以上声明才能下载本文件，扣除积分无法退还！

√ 我已阅读所有条款规定， 请点我同意 所有条款内容！我自愿下载！ ←

提示：如下载失败，请点关闭刷新此页面或提交问题反馈给管理员→

关闭