海风机构研究报告会员

免费提供③只涨停黑马!

短线三只黑马股时时涨停

↑论坛黄金广告位招租↑

发新话题
打印

财务预警分析家2006版源码

财务预警分析家2006版源码

:
input:N(4,0,4),
Var1:=(1.2*(FINANCE(11)-FINANCE(15))/FINANCE(10)+1.4*(PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)+3.3*(PROFFIN(3025,N)+PROFFIN(3026,N)+PROFFIN(3027,N))/PROFFIN(3008,N)+0.6*c*PROFFIN(1001,0)/PROFFIN(3013,0)+0.999*PROFFIN(3019,0)/PROFFIN(3008,0));
IF BARSTATUS=2 THEN DRAWTEXTABS(300,13,'财务预警(仅供参考)'),LINETHICK2,COLORFF00FF;
IF BARSTATUS=2 THEN DRAWTEXTABS(150,33,'   序号       指标说明         上年数     本年数      结果'),LINETHICK2,COLORFFFF80;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,50,' X1      营运资金/资产总额        '+NUMTOSTRN((PROFFIN(3004,N)-PROFFIN(3011,N))/PROFFIN(3008,N)*100,1)+'%       '+NUMTOSTRN((FINANCE(11)-FINANCE(15))/FINANCE(10)*100,1)+'%   '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,67,' X2      留存收益/资产总额        '+NUMTOSTRN((PROFFIN(3031,N)+PROFFIN(3018,N))/PROFFIN(3008,N)*100,1)+'%       '+NUMTOSTRN((PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)*100,1)+'%   '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,84,' X3      息税前收益/资产总额      '+NUMTOSTRN(REF(FINANCE(23)*1000,N)/PROFFIN(3008,N)*100,1)+'%          '+NUMTOSTRN(FINANCE(23)*1000/PROFFIN(3008,0)*100,1)+'%   '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,101,' X4      权益市价/债务总额        '+NUMTOSTRN(PROFFIN(3016,N)/PROFFIN(3013,N)*100,1)+'%       '+NUMTOSTRN(PROFFIN(3016,0)/PROFFIN(3013,0)*100,1)+'%   '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,118,' X5      销售额/资产总额          '+NUMTOSTRN(PROFFIN(3019,N)/PROFFIN(3008,N)*100,1)+'%         '+NUMTOSTRN(PROFFIN(3019,0)/PROFFIN(3008,0)*100,1)+'%   '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,135,'Z值                               '+NUMTOSTRN((1.2*(PROFFIN(3004,N)-PROFFIN(3011,N))/PROFFIN(3008,N)+1.4*(PROFFIN(3031,N)+PROFFIN(3018,N))/PROFFIN(3008,N)
+3.3*REF(FINANCE(23)*1000,N)/PROFFIN(3008,N)+0.6*PROFFIN(3016,N)/PROFFIN(3013,N)+0.999*PROFFIN(3019,N)/PROFFIN(3008,N)),2)+'          '+NUMTOSTRN((1.2*(FINANCE(11)-FINANCE(15))/FINANCE(10)+1.4*(PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)+3.3*FINANCE(23)*1000/PROFFIN(3008,0)+0.6*PROFFIN(3016,0)/PROFFIN(3013,0)+0.999*PROFFIN(3019,0)/PROFFIN(3008,0)),2)+'    '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 AND (PROFFIN(3004,N)-PROFFIN(3011,N))/PROFFIN(3008,N)*100<(FINANCE(11)-FINANCE(15))/FINANCE(10)*100 THEN DRAWTEXTABS(527,50,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND (PROFFIN(3004,N)-PROFFIN(3011,N))/PROFFIN(3008,N)*100>(FINANCE(11)-FINANCE(15))/FINANCE(10)*100 THEN DRAWTEXTABS(527,50,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND (PROFFIN(3031,N)+PROFFIN(3018,N))/PROFFIN(3008,N)*100<(PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,67,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND (PROFFIN(3031,N)+PROFFIN(3018,N))/PROFFIN(3008,N)*100>(PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,67,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND (PROFFIN(3025,N)+PROFFIN(3026,N)+PROFFIN(3027,N))/PROFFIN(3008,N)*100<(PROFFIN(3025,0)+PROFFIN(3026,0)+PROFFIN(3027,0))/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,84,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND (PROFFIN(3025,N)+PROFFIN(3026,N)+PROFFIN(3027,N))/PROFFIN(3008,N)*100>(PROFFIN(3025,0)+PROFFIN(3026,0)+PROFFIN(3027,0))/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,84,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND PROFFIN(3016,N)/PROFFIN(3013,N)*100<PROFFIN(3016,0)/PROFFIN(3013,0)*100 THEN DRAWTEXTABS(527,101,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND PROFFIN(3016,N)/PROFFIN(3013,N)*100>PROFFIN(3016,0)/PROFFIN(3013,0)*100 THEN DRAWTEXTABS(527,101,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND PROFFIN(3019,N)/PROFFIN(3008,N)*100<PROFFIN(3019,0)/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,118,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND PROFFIN(3019,N)/PROFFIN(3008,N)*100>PROFFIN(3019,0)/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,118,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND 1.81<Var1 AND Var1<2.675 THEN DRAWTEXTABS(527,135,'警惕'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND Var1>2.675 THEN DRAWTEXTABS(527,135,'良好'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND Var1<1.81 THEN DRAWTEXTABS(527,135,'警惕'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND 1.81<Var1 AND Var1<2.675 THEN DRAWTEXTABS(180,150,'▲若1.81<Z<2.675 则表明企业财务是极为不稳定的。'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND Var1>2.675 THEN DRAWTEXTABS(180,150,'▲若Z≥2.675 则表明企业的财务状况良好,发生破产的可能性较小;'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND Var1<1.81 THEN DRAWTEXTABS(180,150,'▲若Z≤1.81 则企业存在很大的破产危险;'),LINETHICK1,COLOR3939FC;


DRAWTEXTABS(150,10,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,22,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,34,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,46,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,58,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,70,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,82,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,94,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,106,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,118,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,130,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,142,'│                                                                    │'),Color00FFFF;
DRAWTEXTABS(150,152,'│                                                                    │'),Color00FFFF;

DRAWTEXTABS(200,32,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,34,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,46,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,58,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,70,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,82,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,94,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,106,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,118,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,130,'│                      │           │           │'),Color00FFFF;
DRAWTEXTABS(200,136,'│                      │           │           │'),Color00FFFF;

DRAWTEXTABS(155,5,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,25,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,42,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,59,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,76,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,93,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,110,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,127,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,142,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,159,'───────────────────────────────────'),Color00FFFF;
附件: 您所在的用户组无法下载或查看附件

TOP

发新话题