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

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(YYML2011<YYML2012 AND YYML2012<YYML2013,2,IF(YYML2011>YYML2012 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(YYLRL2011<YYLRL2012 AND YYLRL2012<YYLRL2013,2,IF(YYLRL2011>YYLRL2012 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(JLN2011<JLN2012 AND JLN2012<JLN2013,2,IF(JLN2011>JLN2012 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(ROE2011<ROE2012 AND ROE2012<ROE2013,2,IF(ROE2011>ROE2012 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(YESR2011<YESR2012 AND YESR2012<YESR2013,2,IF(YESR2011>YESR2012 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(YSZZ2011<YSZZ2012 AND YSZZ2012<YSZZ2013,2,IF(YSZZ2011>YSZZ2012 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(JLRL2011<JLRL2012 AND JLRL2012<JLRL2013,2,IF(JLRL2011>JLRL2012 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;

{----------------应收帐款周转率---------------}
JLZZ2011:=FINONE(172,YEARB,DATE1);
 JLZZ2012:=FINONE(172,YEARB,DATE2);
 JLZZ2013:=FINONE(172,YEARB,DATE3);
 YSS:=IF(JLZZ2011<JLZZ2012 AND JLZZ2012<JLZZ2013,2,IF(JLZZ2011>JLZZ2012 AND JLZZ2012>JLZZ2013,0,1));
 YSF:=IF(FINVALUE(172)>10,10,IF(FINVALUE(172)>8,8,IF(FINVALUE(172)>6,6,IF(FINVALUE(172)>4,4,IF(FINVALUE(172)>0,2,0)))));
 JLZZ2017:=CON2STR(YSF,0);
 NJLZZ:=0.62;
 DRAWTEXT_FIX(ISLASTBAR,NJLZZ,N1*2,0,CON2STR(JLZZ2011,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NJLZZ,N1*3,0,CON2STR(JLZZ2012,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NJLZZ,N1*4,0,CON2STR(JLZZ2013,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NJLZZ+0.01,N1*5,0,IF(YSS=0,'降',IF(YSS=1,'平','升'))),COLORRED;
 DRAWTEXT_FIX(ISLASTBAR,NJLZZ+0.01,N1*6,0,JLZZ2017),COLORYELLOW;
 {------------------经营现金流净额------------------}
JYXJL2011:=FINONE(107,YEARB,DATE1)/100000000;
 JYXJL2012:=FINONE(107,YEARB,DATE2)/100000000;
 JYXJL2013:=FINONE(107,YEARB,DATE3)/100000000;
 JYS:=IF(JYXJL2011<JYXJL2012 AND JYXJL2012<JYXJL2013,2,IF(JYXJL2011>JYXJL2012 AND JYXJL2012>JYXJL2013,0,1));
 JYF:=IF(FINVALUE(107)>0,5,0);
 JYXJL2017:=CON2STR(JYF,0);
 NJY:=0.72;
 DRAWTEXT_FIX(ISLASTBAR,NJY,N1*2,0,CON2STR(JYXJL2011,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NJY,N1*3,0,CON2STR(JYXJL2012,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NJY,N1*4,0,CON2STR(JYXJL2013,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NJY+0.01,N1*5,0,IF(JYS=0,'降',IF(JYS=1,'平','升'))),COLORRED;
 DRAWTEXT_FIX(ISLASTBAR,NJY+0.01,N1*6,0,JYXJL2017),COLORYELLOW;

{------------------投资现金流净额------------------}
CDFZ2011:=FINONE(119,YEARB,DATE1)/100000000;
 CDFZ2012:=FINONE(119,YEARB,DATE2)/100000000;
 CDFZ2013:=FINONE(119,YEARB,DATE3)/100000000;
 TZS:=IF(CDFZ2011<CDFZ2012 AND CDFZ2012<CDFZ2013,2,IF(CDFZ2011>CDFZ2012 AND CDFZ2012>CDFZ2013,0,1));
 TZF:=IF(FINVALUE(119)<0,3,0);
 CDFZ2017:=CON2STR(TZF,0);
 NFZ:=0.83;
 DRAWTEXT_FIX(ISLASTBAR,NFZ,N1*2,0,CON2STR(CDFZ2011,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NFZ,N1*3,0,CON2STR(CDFZ2012,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NFZ,N1*4,0,CON2STR(CDFZ2013,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NFZ+0.01,N1*5,0,IF(TZS=0,'降',IF(TZS=1,'平','升'))),COLORRED;
 DRAWTEXT_FIX(ISLASTBAR,NFZ+0.01,N1*6,0,CDFZ2017),COLORYELLOW;

{------------------筹资现金流净额------------------}
CDFZ2211:=FINONE(128,YEARB,DATE1)/100000000;
 CDFZ2212:=FINONE(128,YEARB,DATE2)/100000000;
 CDFZ2213:=FINONE(128,YEARB,DATE3)/100000000;
 CZS:=IF(CDFZ2211<CDFZ2212 AND CDFZ2212<CDFZ2213,2,IF(CDFZ2211>CDFZ2212 AND CDFZ2212>CDFZ2213,0,1));
 CZF:=IF(FINVALUE(128)>0,2,0);
 CDFZ2217:=CON2STR(CZF,0);
 NFX:=0.93;
 DRAWTEXT_FIX(ISLASTBAR,NFX,N1*2,0,CON2STR(CDFZ2211,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NFX,N1*3,0,CON2STR(CDFZ2212,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NFX,N1*4,0,CON2STR(CDFZ2213,2)),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,NFX+0.01,N1*5,0,IF(CZS=0,'降',IF(CZS=1,'平','升'))),COLORRED;
 DRAWTEXT_FIX(ISLASTBAR,NFX+0.01,N1*6,0,CDFZ2217),COLORYELLOW;

{------------------画外框-----------------}
 {DRAWRECTREL(0,680,110,999,RGB(10,60,110)); } {填充色}
 {DRAWRECTREL(5,0,990,0.1,RGB(185,120,200)); {上横线}
DRAWRECTREL(46,83,995,83.1,RGB(185,120,200)); {二横线}
DRAWRECTREL(1,182,995,182.1,RGB(185,120,200)); {三横线}
DRAWRECTREL(1,580,995,580.1,RGB(185,120,200)); {四横线}
DRAWRECTREL(1,680,995,680.1,RGB(185,120,200)); {五横线}
DRAWRECTREL(46,830,110,830.1,RGB(185,120,200)); {六横线}
DRAWRECTREL(1,480,995,480.1,RGB(185,120,200)); {趋势上横线}
DRAWRECTREL(46,0,45.9,995,RGB(185,120,200)); {左1竖线}
DRAWRECTREL(315,0,315.1,580,RGB(185,120,200)); {左2竖线}
DRAWRECTREL(690,0,690.1,580,RGB(185,120,200)); {左3竖线};
DRAWRECTREL(390,680,393,998,RGB(15,20,50)); {4竖线};
DRAWRECTREL(800,680,803,998,RGB(15,20,50)); {5竖线};
DRAWTEXT_FIX(ISLASTBAR,0.006,N1*8-0.05,0,'当季财报'),COLORGREEN;
 DRAWTEXT_FIX(ISLASTBAR,0.006,N1*9-0.05,0,'评分结果'),COLORGREEN;
 DRAWTEXT_FIX(ISLASTBAR,0.085,N1*7+0.035,0,'分'),COLORWHITE;
 ZF:=MLF+LYF+JLF+ROEF+ZFF+LZB+CHF+YSF+JYF+TZF+CZF;
 DRAWTEXT_FIX(ISLASTBAR,0.065,N1*7+0.035,0,CON2STR(ZF,0)),COLORWHITE;
 YL:=IF(ZF>59,'优等',IF(ZF>49,'中等','观望'));
DRAWTEXT_FIX(ISLASTBAR,0.065,N1*8+0.08,0,YL),COLORMAGENTA;
 DRAWTEXT_FIX(ISLASTBAR,0.18,N1*7,0,'1.优等：较不易发生财务危机'),COLORRED;
 DRAWTEXT_FIX(ISLASTBAR,0.18,N1*8,0,'2.中等：财务体质一般；'),COLORCYAN;
 DRAWTEXT_FIX(ISLASTBAR,0.18,N1*9,0,'3.观望：财务体质较弱，投资风险较高；'),COLORGREEN;

XJL:=(FINONE(107,0,1231)+FINONE(119,0,1231)+ABS(FINONE(80,0,1231)))/(C*FINONE(238,0,0000)+FINVALUE(62)-FINVALUE(8))*100;
 {XJL:=((FINVALUE(107)+FINVALUE(119))+(FINVALUE(80)))/(FINVALUE(239)*C+FINVALUE(62)-FINVALUE(8))*100;}
 DRAWTEXT_FIX(ISLASTBAR,0.535,N1*7+0.02,0,STRCAT('现金报酬率：',STRCAT(CON2STR(XJL,2),'%'))),COLORCYAN;
 DRAWTEXT_FIX(ISLASTBAR,0.430,N1*8+0.02,0,'现金报酬率不同行业高低标准不同，通常4-6可考虑介入，'),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,0.430,N1*9+0.02,0,'医药行业1左右，个股主要与前低处报酬率相比对，接近可考虑'),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR,0.820,N1*8-0.02,0,'财析密码炼金术-倡导价值投资'),COLORRED;
 {BK:='沪深Ａ股';
LTSZ:HORCALC(BK,103,0,4)/100; {亿元}
 {
DRAWTEXT_FIX(ISLASTBAR,0.785,N1*7+0.02,0,STRCAT('大顶参考指标： ',CON2STR(LTSZ,2))),COLORYELLOW;
 };