资产预警Z计分模型(大智慧),精品指标之KDJ+MACD综合指标(大智慧)
admin888
|资产预警Z计分模型(大智慧),精品指标之KDJ+MACD综合指标(大智慧)
资产预警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
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;
精品指标之KDJ+MACD综合指标(大智慧)
DRAWTEXTAbs(0,0,' ☆全功能kdj+maC☆'),colorgreen;}
{DRAWGBK(close>0,stRIP(RGB(25,25,112),RGB(47,79,79),0));}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK1,COLORWHITE;
D:SMA(K,3,1),LINETHICK1,COLOR00DDDD;
J:3*K-2*D,LINETHICK1,COLORred;
difF:ema(CLOSE,12)-EMA(CLOSE,26),linethick0,COLOR0099FF;
DEA :EMA(DIFF,9),linethick0,COLORD89837;
macd:2*(DIFF-DEA),COLORFF9999,linethick0;
YLZC:=if(close=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(vol+0.01)/100);
阻价:=if(close=INDEXC,YLZC+INDEXC-INDEXl,YLZC+(close-low));
支价:=if(close=INDEXC,INDEXl+INDEXC-YLZC,low+(close-YLZC));
今压:REF(阻价,1),LINETHICK0,COLORAA11BB;
今撑:REF(支价,1),LINETHICK0,COLOR009900;
明压:阻价,LINETHICK0;
明撑:支价,LINETHICK0;
rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101;
kk:=sma(rsv1,3,1);
dd:=sma(kk,3,1);
jj:=3*kk-2*dd;
买卖:=if(jj>=100,100,if(jj<=0,0,jj));
明天买:if(买卖=100,0-10,0),color00cccc;
明天卖:if(买卖=0,90,100),color00ff00;
KX:=250;
KH:=HHV(K,KX);
DH:=HHV(D,KX);
JH:=HHV(J,KX);
KL:=LLV(K,KX);
DL:=LLV(D,KX);
JL:=LLV(J,KX);
HKMAX:=MAX(KH,MAX(DH,JH));
LKMIN:=MIN(KL,MIN(DL,JL));
KHLB:=(HKMAX+LKMIN)/2;
KHLC:=HKMAX-LKMIN;
MHF:=HHV(DIFF,KX);
MHD:=HHV(DEA,KX);
MHM:=HHV(MacD,KX);
MLF:=LLV(DIFF,KX);
MLD:=LLV(DEA,KX);
MLM:=LLV(MACD,KX);
HMAX:=MAX(MHF,MAX(MHD,MHM));
LMIN:=MIN(MLF,MIN(MLD,MLM));
FHLB:=(HMAX-LMIN)/100;
FHLC:=HMAX-LMIN;
SH:=(0-FHLB)*(KHLC/FHLC)+KHLB;
DIFFA:(DIFF-FHLB)*(KHLC/FHLC)+KHLB,linethick2;
DEAA:(DEA-FHLB)*(KHLC/FHLC)+KHLB,linethick2;
MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB;
CDA:=MACD0;
CDB:=MACD>=ref(MACD,1) and MACD>0;
CDC:=MACD>ref(MACD,1) and MACD<0;
CDD:=MACD<=ref(MACD,1) and MACD<0;
STICKLINE(CDA,SH,macda,6,0),COLOR00AAFF;{黄色段}
STICKLINE(CDA,SH,macda,6.6,0),COLOR0066AA;
STICKLINE(CDA,SH,macda,4.4,0),COLOR0099DD;
STICKLINE(CDA,SH,macda,3.3,0),COLOR00BBEE;
STICKLINE(CDA,SH,macda,2.2,0),COLOR00ddfF;
STICKLINE(CDA,SH,macda,1.1,0),COLOR00FFFF;
STICKLINE(CDB,SH,macda,6,0),COLOR0000AA; {红色段}
STICKLINE(CDB,SH,macda,6.6,0),COLOR0011BB;
STICKLINE(CDB,SH,macda,4.4,0),COLOr0022CC;
STICKLINE(CDB,SH,macda,3.3,0),COLOR0033DD;
STICKLINE(CDB,SH,macda,2.2,0),COLOR0044EE;
STICKLINE(CDB,SH,macda,1.1,0),COLOR0055FF;
STICKLINE(CDC,SH,macda,6,0),COLORAA00BB;{向上粉红}
STICKLINE(CDC,SH,macda,6.6,0),COLORBB1177;
STICKLINE(CDC,SH,macda,4.4,0),COLORCC2299;
STICKLINE(CDC,SH,macda,3.3,0),COLORDD33AA;
STICKLINE(CDC,SH,macda,2.2,0),COLOREE44BB;
STICKLINE(CDC,SH,macda,1.1,0),COLORFF55BB;
STICKLINE(CDD,SH,macda,6,0),COLORFF7700;
STICKLINE(CDD,SH,macda,6.6,0),COLORAA7711;
STICKLINE(CDD,SH,macda,4.4,0),COLORCC9922;
STICKLINE(CDD,SH,macda,3.3,0),COLOREEBB33;
STICKLINE(CDD,SH,macda,2.2,0),COLORFFCC44;
STICKLINE(CDD,SH,macda,1.1,0),COLORFFDD55;
PARTLINE(DIFFA,DIFF>0,RGB(255,153,153),DIFF<0,RGB(255,153,153));
PARTLINE(DEAA,DEA>0,RGB(65,105,225),DEA<0,RGB(65,105,225));
DRAWTEXT(BARSTATUS=2,SH,' 0'),color00aaaa;
TYP:=(HIGH+LOW+CLOSE)/3;
STICKLINE(diff>ref(diff,1),20,20,2,0),COLORRED;
STICKLINE(K>=ref(K,1) or k>d and diff>ref(diff,1),80,80,2,1),COLORRED;
牛市通网是一个牛股推荐网与低风险投资知识网,可以在线联系客服领取牛股。牛市通网从权威的投资专家、金融分析师等投资信息中挑选优质的文章进行发布。牛市通网主要为投资者提供股票知识、股票观点、股票分析和明智金融投资讨论等信息。