财务评分排序（通达信公式排序指标源码测试图）

财务评级及选股公式源码。

可以参考财务评分排序
http://www.70822.com/soft/sort013/sort05/down-145285.html

{财务评订}

{主图显示财务评分与评级（可粘贴到自己喜欢的主图）}

净资产收益率:=FINANCE(33)/FINANCE(34)*100,NODRAW;

每股净资产:=FINANCE(34),NODRAW;

每股未分配利润:=FINANCE(32),NODRAW;

主营收入占比:=FINANCE(20)/(FINANCE(20)+FINANCE(22)+FINANCE(24)+FINANCE(25))*100,NODRAW;

每股经营现金流:=FINANCE(25)/FINANCE(1),NODRAW;

现金流利润比:=FINANCE(25)/FINANCE(29),NODRAW;

每股总现金流:=FINANCE(26)/FINANCE(1),NODRAW;

股价现金流比:=FINANCE(1)*C/FINANCE(25),NODRAW;

销售毛利率:=FINANCE(21)/FINANCE(20)*100,NODRAW;

价值估值PEG:(C/FINANCE(33))/(FINANCE(21)/FINANCE(20)+0.038)/100,NODRAW;

每股公积金:=FINANCE(18),NODRAW;

{分析家公式网 WWW.70822.COM}

AB1:=IF(现金流利润比>0.5,1+现金流利润比/1000,现金流利润比/1000),NODRAW;

AB21:=IF(主营收入占比>50,1+主营收入占比/1000,主营收入占比/1000),NODRAW;

AB31:=IF(净资产收益率>5,1+净资产收益率/1000,净资产收益率/1000),NODRAW;

A41:=IF(每股净资产>1.5,1+每股净资产/100,每股净资产/100),NODRAW;

A51:=IF(股价现金流比>0 AND 股价现金流比<80,1+股价现金流比/1000,0),NODRAW;

A61:=IF(每股未分配利润>0.2,1+每股未分配利润/1000,每股未分配利润/1000),NODRAW;

A71:=IF(销售毛利率>10,1+销售毛利率/1000,销售毛利率/1000),NODRAW;

A81:=IF(价值估值PEG<1,1,0),NODRAW;

综合得分:AB1+AB21+AB31+A41+A51+A61+A71+A81,NODRAW;

DRAWTEXT_FIX(1,0.62,0,0,' 财务评分：')COLORRED;

DRAWTEXT_FIX(1,0.68,0,0, CON2STR(综合得分,3))COLOR00FFFF;

DRAWTEXT_FIX(1,0.82,0,0,' 财务评级：')COLORRED;

DRAWTEXT_FIX( 综合得分<5 AND 综合得分<8,0.90,0,0,'差')COLOR00FFFF;

DRAWTEXT_FIX(1,0.82,0,0,' 财务评级：')COLORRED;

DRAWTEXT_FIX(综合得分>=5 AND 综合得分<8,0.90,0,0,'一般')COLOR00FFFF;

DRAWTEXT_FIX( 综合得分<8.25 AND 综合得分>=8,0.90,0,0,'良好')COLOR00FFFF;

DRAWTEXT_FIX( 综合得分>8.25,0.90,0,0,'优秀')COLOR00FFFF;

{财务优秀}

{选股}

净资产收益率:=FINANCE(33)/FINANCE(34)*100;

每股净资产:=FINANCE(34);

每股未分配利润:=FINANCE(32);

主营收入占比:=FINANCE(20)/(FINANCE(20)+FINANCE(22)+FINANCE(24)+FINANCE(25))*100;

每股经营现金流:=FINANCE(25)/FINANCE(1);

现金流利润比:=FINANCE(25)/FINANCE(29);

每股总现金流:=FINANCE(26)/FINANCE(1);

股价现金流比:=FINANCE(1)*C/FINANCE(25);

销售毛利率:=FINANCE(21)/FINANCE(20)*100;

价值估值PEG:=(C/FINANCE(33))/(FINANCE(21)/FINANCE(20)+0.038)/100;

每股公积金:=FINANCE(18);{分析家公式网 WWW.70822.COM}

AB1:=IF(现金流利润比>0.5,1+现金流利润比/1000,现金流利润比/1000);

AB21:=IF(主营收入占比>50,1+主营收入占比/1000,主营收入占比/1000);

AB31:=IF(净资产收益率>5,1+净资产收益率/1000,净资产收益率/1000);

A41:=IF(每股净资产>1.5,1+每股净资产/100,每股净资产/100);

A51:=IF(股价现金流比>0 AND 股价现金流比<80,1+股价现金流比/1000,0);

A61:=IF(每股未分配利润>0.2,1+每股未分配利润/1000,每股未分配利润/1000);

A71:=IF(销售毛利率>10,1+销售毛利率/1000,销售毛利率/1000);

A81:=IF(价值估值PEG<1,1,0);

综合得分:=AB1+AB21+AB31+A41+A51+A61+A71+A81;

优秀:综合得分>8.25;

{财务良好}