资产预警Z计分模型(大智慧)

{n:2008,0,99999,1}
资产总额1:=FINANCE2(14)/10;
负债总额1:=FINANCE2(20)/10;
流动负债1:=FINANCE2(18)/10;
股东权益1:=FINANCE2(21)/10;
流动资产1:=FINANCE2(15)/10;
流动资金本1:=流动资产1-流动负债1;
每股收益1:=FINANCE2(3);
每股未分配1:=FINANCE2(8);
主营业务收入1:=FINANCE2(27)/10;
营业利润1:=FINANCE2(29)/10;
净利润1:=FINANCE2(33)/10;
留存收益1:=净利润1/每股收益1*每股未分配1;{留存收益=未分配利润=净利润/每股收益*每股未分配利润}
销售收入1:=主营业务收入1;

x1新:=流动资金本1/资产总额1*100;
x2新:=留存收益1/资产总额1*100;
x3新:=营业利润1/资产总额1*100;
x4新:=股东权益1/负债总额1*100;
x5新:=销售收入1/资产总额1*100;
z新:(1.2*x1新+1.4*x2新+3.3*x3新+0.6*x4新+0.999*x5新)/100,linethick0;

资产总额2:=PFFININ(1083 ,N ,1231 )/10000;
负债总额2:=PFFININ(1106 ,N ,1231 )/10000;
流动负债2:=PFFININ(1097 ,N ,1231 )/10000;
股东权益2:=PFFININ(1114 ,N ,1231 )/10000;
流动资产2:=PFFININ(1064 ,N ,1231 )/10000;
流动资金本2:=流动资产2-流动负债2;
主营业务收入2:=PFFININ(1251 ,N ,1231 )/10000;
营业利润2:=PFFININ(1263 ,N ,1231 )/10000;
留存收益2:=PFFININ(1111 ,N ,1231 )/10000;{留存收益=未分配利润=净利润/每股收益*每股未分配利润}
销售收入2:=主营业务收入2;

x1K:=流动资金本2/资产总额2*100;
x2K:=留存收益2/资产总额2*100;
x3K:=营业利润2/资产总额2*100;
x4K:=股东权益2/负债总额2*100;
x5K:=销售收入2/资产总额2*100;
zK:(1.2*x1K+1.4*x2K+3.3*x3K+0.6*x4K+0.999*x5K)/100,linethick0;

资产总额3:=PFFININ(1083 ,n-1,1231 )/10000;
负债总额3:=PFFININ(1106 ,n-1,1231 )/10000;
流动负债3:=PFFININ(1097 ,n-1,1231 )/10000;
股东权益3:=PFFININ(1114 ,n-1,1231 )/10000;
流动资产3:=PFFININ(1064 ,n-1,1231 )/10000;
流动资金本3:=流动资产2-流动负债2;

主营业务收入3:=PFFININ(1251 ,n-1,1231 )/10000;
营业利润3:=PFFININ(1263 ,n-1,1231 )/10000;

留存收益3:=PFFININ(1111 ,N-1 ,1231 )/10000;{留存收益=未分配利润=净利润/每股收益*每股未分配利润}
销售收入3:=主营业务收入3;
x1上:=流动资金本3/资产总额3*100;
x2上:=留存收益3/资产总额3*100;
x3上:=营业利润3/资产总额3*100;
x4上:=股东权益3/负债总额3*100;
x5上:=销售收入3/资产总额3*100;
z上:(1.2*x1上+1.4*x2上+3.3*x3上+0.6*x4上+0.999*x5上)/100,linethick0;

资产总额4:=PFFININ(1083 ,n-2,1231 )/10000;
负债总额4:=PFFININ(1106 ,n-2,1231 )/10000;
流动负债4:=PFFININ(1097 ,n-2,1231 )/10000;
股东权益4:=PFFININ(1114 ,n-2,1231 )/10000;
流动资产4:=PFFININ(1064 ,n-2,1231 )/10000;
流动资金本4:=流动资产2-流动负债2;
主营业务收入4:=PFFININ(1251 ,n-2,1231 )/10000;
营业利润4:=PFFININ(1263 ,n-2,1231 )/10000;
留存收益4:=PFFININ(1111 ,N-2 ,1231 )/10000;{留存收益=未分配利润=净利润/每股收益*每股未分配利润}
销售收入4:=主营业务收入4;
x1前:=流动资金本4/资产总额4*100;
x2前:=留存收益4/资产总额4*100;
x3前:=营业利润4/资产总额4*100;
x4前:=股东权益4/负债总额4*100;
x5前:=销售收入4/资产总额4*100;
z前:(1.2*x1前+1.4*x2前+3.3*x3前+0.6*x4前+0.999*x5前)/100,linethick0;
DRAWTEXTREL( 0, 0, '序号' ),coloryellow;
DRAWTEXTREL( 50, 0, '指标说明' ),coloryellow;
DRAWTEXTREL(250, 0,''+NUMTOSTRN(n-2,0)+'年'),coloryellow;
DRAWTEXTREL(400, 0,''+NUMTOSTRN(n-1,0)+'年'),coloryellow;
DRAWTEXTREL(550, 0,''+NUMTOSTRN(n,0)+'年'),coloryellow;
DRAWTEXTREL(700, 0,''+NUMTOSTRN(FINANCE2(1),0)),coloryellow;
DRAWTEXTREL(850, 0, '结果（用年报）'),coloryellow;

DRAWTEXTREL( 10, 100, 'X1' ),coloryellow;
DRAWTEXTREL( 10, 200, 'X2' ),coloryellow;
DRAWTEXTREL( 10, 300, 'X3' ),coloryellow;
DRAWTEXTREL( 10, 400, 'X4' ),coloryellow;
DRAWTEXTREL( 10, 500, 'X5' ),coloryellow;
DRAWTEXTREL( 20, 650, 'Z计分模型' ),coloryellow;
DRAWTEXTREL( 50, 100, '营运资金/资产总额' ),coloryellow;
DRAWTEXTREL( 50, 200, '留存收益/资产总额' ),coloryellow;
DRAWTEXTREL( 50, 300, '息税前收益/资产总额' ),coloryellow;
DRAWTEXTREL( 50, 400, '权益市价/负债总额' ),coloryellow;
DRAWTEXTREL( 50, 500, '销售额/资产总额' ),coloryellow;

DRAWTEXTREL(250, 100,''+NUMTOSTRN(x1前,2)),coloryellow;
DRAWTEXTREL(400, 100,''+NUMTOSTRN(x1上,2)),coloryellow;
DRAWTEXTREL(550, 100,''+NUMTOSTRN(x1K,2)),coloryellow;
DRAWTEXTREL(700, 100,''+NUMTOSTRN(x1新,2)),coloryellow;

DRAWTEXTREL(250, 200,''+NUMTOSTRN(x2前,2)),coloryellow;
DRAWTEXTREL(400, 200,''+NUMTOSTRN(x2上,2)),coloryellow;
DRAWTEXTREL(550, 200,''+NUMTOSTRN(x2K,2)),coloryellow;
DRAWTEXTREL(700, 200,''+NUMTOSTRN(x2新,2)),coloryellow;

DRAWTEXTREL(250, 300,''+NUMTOSTRN(x3前,2)),coloryellow;
DRAWTEXTREL(400, 300,''+NUMTOSTRN(x3上,2)),coloryellow;
DRAWTEXTREL(550, 300,''+NUMTOSTRN(x3K,2)),coloryellow;
DRAWTEXTREL(700, 300,''+NUMTOSTRN(x3新,2)),coloryellow;

DRAWTEXTREL(250, 400,''+NUMTOSTRN(x4前,2)),coloryellow;
DRAWTEXTREL(400, 400,''+NUMTOSTRN(x4上,2)),coloryellow;
DRAWTEXTREL(550, 400,''+NUMTOSTRN(x4K,2)),coloryellow;
DRAWTEXTREL(700, 400,''+NUMTOSTRN(x4新,2)),coloryellow;

DRAWTEXTREL(250, 500,''+NUMTOSTRN(x5前,2)),coloryellow;
DRAWTEXTREL(400, 500,''+NUMTOSTRN(x5上,2)),coloryellow;
DRAWTEXTREL(550, 500,''+NUMTOSTRN(x5K,2)),coloryellow;
DRAWTEXTREL(700, 500,''+NUMTOSTRN(x5新,2)),coloryellow;

DRAWTEXTREL(250, 650,''+NUMTOSTRN(z前,2)),coloryellow;
DRAWTEXTREL(400, 650,''+NUMTOSTRN(z上,2)),coloryellow;
DRAWTEXTREL(550, 650,''+NUMTOSTRN(zK,2)),coloryellow;
DRAWTEXTREL(700, 650,''+NUMTOSTRN(z新,2)),coloryellow;

IF BARSTATUS=2 and zk>=2.675 THEN DRAWTEXTREL(250,800,'若Z≥2.675 则表明企业的财务状况良好，发生破产的可能性较小'),LINETHICK2,COLORFF00FF;
IF BARSTATUS=2 and zk<=1.81 THEN DRAWTEXTREL(250,800,'若Z≤1.81 则企业存在很大的破产危险'),LINETHICK2,COLORFF00FF;
IF BARSTATUS=2 and BETWEEN(zk,2.675,1.81) THEN DRAWTEXTREL(250,800,' 若1.81<Z<2.675 则表明企业财务是极为不稳定的。 '),LINETHICK2,COLORFF00FF;

IF BARSTATUS=2 and zk>z上 THEN DRAWTEXTREL(850,650,'提高 '),COLORred;
IF BARSTATUS=2 and zk<=z上 THEN DRAWTEXTREL(850,650,'下降 '),COLORgreen;

IF BARSTATUS=2 and x5k>x5上 THEN DRAWTEXTREL(850,500,'提高 '),COLORred;
IF BARSTATUS=2 and x5k<=x5上 THEN DRAWTEXTREL(850,500,'下降 '),COLORgreen;

IF BARSTATUS=2 and x4k>x4上 THEN DRAWTEXTREL(850,400,'提高 '),COLORred;
IF BARSTATUS=2 and x4k<=x4上 THEN DRAWTEXTREL(850,400,'下降 '),COLORgreen;

IF BARSTATUS=2 and x3k>x3上 THEN DRAWTEXTREL(850,300,'提高 '),COLORred;
IF BARSTATUS=2 and x3k<=x3上 THEN DRAWTEXTREL(850,300,'下降 '),COLORgreen;

IF BARSTATUS=2 and x2k>x2上 THEN DRAWTEXTREL(850,200,'提高 '),COLORred;
IF BARSTATUS=2 and x2k<=x2上 THEN DRAWTEXTREL(850,200,'下降 '),COLORgreen;

IF BARSTATUS=2 and x1k>x1上 THEN DRAWTEXTREL(850,100,'提高 '),COLORred;
IF BARSTATUS=2 and x1k<=x1上 THEN DRAWTEXTREL(850,100,'下降 '),COLORgreen;