资产安全表财务报表公式指标-其他软件公式 -程序化交易(grahamobil.com) - 365bet送体验金
您现在的位置:程序化交易>> 股票公式>> 其他>> 其他软件公式>>正文内容

365bet送体验金

相关标签:资产流动性指标 、 国有资产保值增值指标 、 资产负债率指标 、 固定资产绩效考核指标 、 资产负债率是什么指标 、 固定资产考核指标 、 资产管理公司监管指标 、 资产运营指标 、 固定资产指标 、 资产结构指标 、 资产负债表财务指标 、 资产负债表指标 、 银行资产质量分析指标 、

 

资产安全表{资产预警表㊣----以年报为准 ----仅适应Wind资讯(万得资讯)}
{查寻F10}

 

原理解析:


 

 来源:程序化99( WWW.grahamobil.com )

源码:

 

 


DRAWutf-8((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
GDW0:=F10FIND('`财务分析`',1),LINETHICK;
GDW1:=F10FIND('主营业务收入(万元)',GDW0);
GDT1A:=F10TEXT(GDW1+22,2+9); GDT1B:=F10TEXT(GDW1+58,2+9);
GDW2:=F10FIND('营业利润(万元)',GDW0);
GDT2A:=F10TEXT(GDW2+22,2+9); GDT2B:=F10TEXT(GDW2+34,2+9);
GDW3:=F10FIND('资产总额(万元)',GDW0);
GDT3A:=F10TEXT(GDW3+22,2+9); GDT3B:=F10TEXT(GDW3+34,2+9);
GDW4:=F10FIND('负债总额(万元)',GDW0);
GDT4A:=F10TEXT(GDW4+22,2+9); GDT4B:=F10TEXT(GDW4+34,2+9);
GDW5:=F10FIND('流动负债(万元)',GDW0);
GDT5A:=F10TEXT(GDW5+22,2+9); GDT5B:=F10TEXT(GDW5+34,2+9);
GDW6:=F10FIND('销售商品收到的现金',GDW0);
GDT6A:=F10TEXT(GDW6+22,2+9); GDT6B:=F10TEXT(GDW6+34,2+9);
GDW7:=F10FIND('股东权益(万元)',GDW0);
GDT7A:=F10TEXT(GDW7+22,2+9); GDT7B:=F10TEXT(GDW7+34,2+9);
GDW8:=F10FIND('每股未分配利润(元)',GDW0);
GDT8A:=F10TEXT(GDW8+22,2+9); GDT8B:=F10TEXT(GDW8+34,2+9);
GDW9:=F10FIND('货币资金(万元)',GDW0);
GDT9A:=F10TEXT(GDW9+22,2+9); GDT9B:=F10TEXT(GDW9+34,2+9);
{换成数据}
x1k:=STRTONUM(GDT9A)/STRTONUM(GDT3A)*100; x1上:=STRTONUM(GDT9B)/STRTONUM(GDT3B)*100;
x2k:=STRTONUM(GDT8A)*FINANCE(1)/STRTONUM(GDT3A)*100; x2上:=STRTONUM(GDT8B)*FINANCE(1)/STRTONUM(GDT3B)*100;
x3k:=STRTONUM(GDT2A)/STRTONUM(GDT3A)*100; x3上:=STRTONUM(GDT2B)/STRTONUM(GDT3B)*100;
x4k:=STRTONUM(GDT1A)/STRTONUM(GDT3A)*100; x4上:=STRTONUM(GDT1B)/STRTONUM(GDT3B)*100;
x5k:=STRTONUM(GDT7A)/STRTONUM(GDT4A)*100; x5上:=STRTONUM(GDT7B)/STRTONUM(GDT4B)*100;
zk:=(1.2*x1k/100)+1.4*x2k/100+3.3*x3k/100+0.6*x4k/100+0.995*x5k/100;
z上:=(1.2*x1上/100)+1.4*x2上/100+3.3*x3上/100+0.6*x4上/100+0.995*x5上/100;
//表格
s1:=SYSPARAM(1); s2:=SYSPARAM(2); s3:=SYSPARAM(3); KS:=SYSPARAM(3)-SYSPARAM(2);
Z:=ks/80; X:=barpos=s2; x1:=barpos=s2+ROUND(z*10); x2:=barpos=s2+ROUND(z*32);
x3:=barpos=s2+ROUND(z*50); x4:=barpos=s2+ROUND(z*70); x5:=barpos=s2+ROUND(z*80);
//横线
PARTLINE(1,100),COLORWHITE;
PARTLINE(1,80),POINTDOT,COLORGRAY; PARTLINE(1,70),POINTDOT,COLORGRAY;
PARTLINE(1,50),POINTDOT,COLORGRAY; PARTLINE(1,60),POINTDOT,COLORGRAY;
PARTLINE(1,40),POINTDOT,COLORGRAY; PARTLINE(1,30),POINTDOT,COLORGRAY; PARTLINE(1,20),POINTDOT,COLORGRAY;
PARTLINE(1,0),COLORWHITE;
{竖线}
STICKLINE(x,100,0,0,0),COLORWHITE;
STICKLINE(x1,100,20,0,0),LINEDOT,COLORGRAY; STICKLINE(x2,100,20,0,0),LINEDOT,COLORGRAY;
STICKLINE(x3,100,20,0,0),LINEDOT,COLORGRAY; STICKLINE(x4,100,20,0,0),LINEDOT,COLORGRAY;
STICKLINE(x5,100,0,0,0),COLORWHITE;
{填表}
drawtext(x,90,' 序号:'),Color00E9C7;
drawtext(x,76,' X1'),Color00BBA9;
drawtext(x,66,' X2'),Color00BBA9;
drawtext(x,56,' X3'),Color00BBA9;
drawtext(x,46,' X4'),Color00BBA9;
drawtext(x,36,' X5'),Color00BBA9;
{}
drawtext(x1,90,' 指标说明'),Color00E9C7;
drawtext(x1,76,' 销售现金/资产总额'),Color00BBA9;
drawtext(x1,66,' 未分利润/资产总额'),Color00BBA9;
drawtext(x1,56,' 税前收益/资产总额'),Color00BBA9;
drawtext(x1,46,' 主营收入/资产总额'),Color00BBA9;
drawtext(x1,36,' 股东权益/负债总额'),Color00BBA9;
drawtext(x1,26,' Z值'),COLORWHITE;
{}
drawtext(x2,90,' 上年数'),Color00E9C7;
drawtext(x2,76,' '+NUMTOSTR(x1上,2)),Color00BBA9;
drawtext(x2,66,' '+NUMTOSTR(x2上,2)),Color00BBA9;
drawtext(x2,56,' '+NUMTOSTR(x3上,2)),Color00BBA9;
drawtext(x2,46,' '+NUMTOSTR(x4上,2)),Color00BBA9;
drawtext(x2,36,' '+NUMTOSTR(x5上,2)),Color00BBA9;
drawtext(x2,26,' '+NUMTOSTR(z上,4)),COLORWHITE;
{}
drawtext(x3,90,' 本年数'),Color00E9C7;
drawtext(x3,76,' '+NUMTOSTR(x1k,2)),Color00BBA9;
drawtext(x3,66,' '+NUMTOSTR(x2k,2)),Color00BBA9;
drawtext(x3,56,' '+NUMTOSTR(x3k,2)),Color00BBA9;
drawtext(x3,46,' '+NUMTOSTR(x4k,2)),Color00BBA9;
drawtext(x3,36,' '+NUMTOSTR(x5k,2)),Color00BBA9;
drawtext(x3,26,' '+NUMTOSTR(zk,4)),COLORWHITE;
{}
drawtext(x4,90,' 结果'),Color00E9C7;
drawtext(x4 and x1k>x1上,76,' 提高'),ColorFF6AFF;
drawtext(x4 and x2k>x2上,66,' 提高'),ColorFF6AFF;
drawtext(x4 and x3k>x3上,56,' 提高'),ColorFF6AFF;
drawtext(x4 and x4k>x4上,46,' 提高'),ColorFF6AFF;
drawtext(x4 and x5k>x5上,36,' 提高'),ColorFF6AFF;
drawtext(x4 and zk>z上,26,' 提高'),COLORRED;
{}
drawtext(x4 and x1k<x1上,76,' 下降'),COLORGREEN;
drawtext(x4 and x2k<x2上,66,' 下降'),COLORGREEN;
drawtext(x4 and x3k<x3上,56,' 下降'),COLORGREEN;
drawtext(x4 and x4k<x4上,46,' 下降'),COLORGREEN;
drawtext(x4 and x5k<x5上,36,' 下降'),COLORGREEN;
drawtext(x4 and zk<z上,26,' 下降')COLORCYAN;
{}
drawtext(x1 and zk>=0.6685,10,' 若Z≥0.6685 则表明企业的财务状况良好,发生破产的可能性较小'),ColorFFA8FF;
drawtext(x1 and zk<=0.4525,10,' 若Z≤0.4525 则企业存在很大的破产危险'),colorccffcc;
drawtext(x1 and BETWEEN(zk,0.6685,0.4525),10,' 若Z大于0.4525或者小于0.6685 则表明企业财务是极为不稳定的。 '),colorccffcc;
安全排序:zk,PRECISION4,LINETHICK,COLORWHITE;
//

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程

 

 

有思路,想编写各种指标公式,程序化交易模型,选股公式,预警公式的朋友

可联系技术人员 QQ: 511411198  有需要帮忙请点击这里留言!!!进行 有偿 编写!不贵!点击查看价格!

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容