请老师帮助把公式改成通达信的公式

[通达信]
设置
1556 1 自然醒2008 Lv.4 发表于 · 2020-12-6 01:48 举报 显示全部楼层 复制 正序浏览 |
跳转到指定楼层
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:='沪深A股';
LTSZ:HORCALC(BK,103,0,4)/100; {亿元}
{
DRAWTEXT_FIX(ISLASTBAR,0.785,N1*7+0.02,0,STRCAT('大顶参考指标: ',CON2STR(LTSZ,2))),COLORYELLOW;
};

举报

扔鸡蛋(0) 回复

注册111
Lv.6
发表于 2020-12-6 08:34 复制 查看全部楼层
DRAWRECTREL(0,0,999,999,RGB(0,0,0));
N1:=0.1;
YEARA:=YEAR;
YEARB:=IF(MONTH<4,YEARA-1,YEARA);
BH:=0;
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:='沪深A股';
LTSZ:HORCALC(BK,103,0,4)/100; {亿元}
{
DRAWTEXT_FIX(ISLASTBAR,0.785,N1*7+0.02,0,STRCAT('大顶参考指标: ',CON2STR(LTSZ,2))),COLORYELLOW;};
查看全部打赏
  • 自然醒2008+20理想币 : 理想精神:感谢老师,互助,友善,传递正能量!

举报

点亮(1) 扔鸡蛋(0) 回复

您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

论坛问题
微信扫一扫,添加好友咨询
驿站问题
微信扫一扫,添加好友咨询
广告投放
微信扫一扫,添加好友咨询
回顶部 到页底
快速回复 返回顶部 返回列表