在主图上显示信息的函数
<p>在主图上显示企业主要所属的类别，经营指标等信息，便于快速阅览。</p><p class="pgc-img-caption">效果图</p><p data-track="5">安装方法：</p><p>1、打开公式管理；</p><p>2、新建；</p><p>3、用户；</p><p>4、技术指标公式；</p><p>5、其他类型；</p><p>6、将代码复制黏贴，选主图叠加，文件命名；</p><p>7、测试通过保存，在主图上调出可配合其他主图函数一起使用。</p><p>8、函数：</p><p>AAA1:=STRCAT('沪深总上涨家数:',CON2STR(DYNAINFO(60),0));</p><p>AAA2:=STRCAT('沪深总下跌家数:',CON2STR(DYNAINFO(61),0));</p><p>DRAWTEXT_FIX(ISLASTBAR,0,0,0,AAA1),COLORRED;</p><p>DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,AAA2),COLORGREEN;</p><p>Z1:=STRCAT(HYBLOCK,' ');</p><p>Z2:=STRCAT(Z1,DYBLOCK);</p><p>Z3:=STRCAT(Z2,' ');</p><p>DRAWTEXT_FIX(ISLASTBAR,0,0.10,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;</p><p>DRAWTEXT_FIX(ISLASTBAR,0,0.14,0,ZSBLOCK),COLORYELLOW;</p><p>DRAWTEXT_FIX(ISLASTBAR,0,0.18,0,FGBLOCK),COLORYELLOW;</p><p>市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));</p><p>市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));</p><p>市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));</p><p>净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));</p><p>毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));</p><p>净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));</p><p>主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));</p><p>当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));</p><p>X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;</p><p data-track="1">X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};</p><p data-track="2">X3:=FINANCE(23)/FINANCE(10)*3.3;</p><p>X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}</p><p>X5:=FINANCE(20)/FINANCE(15)*0.999;</p><p>Z值:=X1+X2+X3+X4+X5;</p><p>预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警'));</p><p>财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3))));</p><p>优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};</p><p>现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额，理论上越大越好但不同行业有不同标准};</p><p>资本公积金:=STRCAT('资本公积金: ',CON2STR(FINANCE(18),2));</p><p>未分配利润:=STRCAT('未分配利润: ',CON2STR(FINANCE(32),2));</p><p>财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(STRCAT(STRCAT(财务预警,优质资产率),现金负债比),资本公积金),未分配利润));</p><p>DRAWTEXT_FIX(ISLASTBAR,0.15,0,0,当前业绩),COLORGREEN;</p><p>DRAWTEXT_FIX(ISLASTBAR,0.15,0.05,0,财务系数),COLORGREEN;</p><p>9、如有问题可在评论区提出，抽空解答。</p>
页:
[1]