在主图上显示信息的函数

尘埃416

在主图上显示企业主要所属的类别，经营指标等信息，便于快速阅览。

效果图

安装方法：

1、打开公式管理；

2、新建；

3、用户；

4、技术指标公式；

5、其他类型；

6、将代码复制黏贴，选主图叠加，文件命名；

7、测试通过保存，在主图上调出可配合其他主图函数一起使用。

8、函数：

AAA1:=STRCAT('沪深总上涨家数:',CON2STR(DYNAINFO(60),0));

AAA2:=STRCAT('沪深总下跌家数:',CON2STR(DYNAINFO(61),0));

DRAWTEXT_FIX(ISLASTBAR,0,0,0,AAA1),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,AAA2),COLORGREEN;

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0.10,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0,0.14,0,ZSBLOCK),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0,0.18,0,FGBLOCK),COLORYELLOW;

市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));

市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));

市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));

净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));

毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));

净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));

主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));

当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));

X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;

X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};

X3:=FINANCE(23)/FINANCE(10)*3.3;

X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}

X5:=FINANCE(20)/FINANCE(15)*0.999;

Z值:=X1+X2+X3+X4+X5;

预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警'));

财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3))));

优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};

现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额，理论上越大越好但不同行业有不同标准};

资本公积金:=STRCAT('资本公积金: ',CON2STR(FINANCE(18),2));

未分配利润:=STRCAT('未分配利润: ',CON2STR(FINANCE(32),2));

财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(STRCAT(STRCAT(财务预警,优质资产率),现金负债比),资本公积金),未分配利润));

DRAWTEXT_FIX(ISLASTBAR,0.15,0,0,当前业绩),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR,0.15,0.05,0,财务系数),COLORGREEN;

9、如有问题可在评论区提出，抽空解答。