指标源码
input: M(20,1,10000),M1(20,1,10000),M2(35,1,10000),M3(35,1,10000),M4(20,1,10000),M5(34,1,10000),起点(0,0,1341231),终点(0,0,1341231),N(1,1,100);
DRAWGBK(1, COLORRGB(10,0,0),COLORRGB(10,0,0),0);
流动资产:=STRTONUM(F10TEXT(F10FIND('流动资产 ',1)+m,10)),LINETHICK0;
流动负债:=STRTONUM(F10TEXT(F10FIND('流动负债 ',1)+m1,10)),LINETHICK0;
流动资产上:=STRTONUM(F10TEXT(F10FIND('流动资产 ',1)+m2,10)),LINETHICK0;
流动负债上:=STRTONUM(F10TEXT(F10FIND('流动负债 ',1)+m3,10)),LINETHICK0;
流动资金本:=流动资产-流动负债,linethick0,coloryellow;
流动资金上:=流动资产上-流动负债上,linethick0,coloryellow;
资产总额:=STRTONUM(F10TEXT(F10FIND('总资产 ',1)+m4,10)),LINETHICK0;
资产总额上:=STRTONUM(F10TEXT(F10FIND('总资产 ',1)+m5,10)),LINETHICK0;
x1k:=流动资金本/资产总额*100,linethick0;
x1上:=流动资金上/资产总额上*100,linethick0;
留存收益:=STRTONUM(F10TEXT(F10FIND('未分配利润 ',1)+m,10)),LINETHICK0;
留存收益上:=STRTONUM(F10TEXT(F10FIND('未分配利润 ',1)+m2,10)),LINETHICK0;
x2k:=留存收益/资产总额*100,linethick0;
x2上:=留存收益上/资产总额*100,linethick0;
营业利润:=STRTONUM(F10TEXT(F10FIND('营业利润 ',1)+m,10)),LINETHICK0;
营业利润上:=STRTONUM(F10TEXT(F10FIND('营业利润 ',1)+m2,10)),LINETHICK0;
x3k:=营业利润/资产总额*100,linethick0;
x3上:=营业利润上/资产总额*100,linethick0;
股东权益:=STRTONUM(F10TEXT(F10FIND('股东权益 ',1)+m,10)),LINETHICK0;
股东权益上:=STRTONUM(F10TEXT(F10FIND('股东权益 ',1)+m2,10)),LINETHICK0;
负债总额:=资产总额-股东权益,linethick0;
负债总额上:=资产总额上-股东权益上,linethick0;
x4k:=股东权益/负债总额*100,linethick0;
x4上:=股东权益上/负债总额上*100,linethick0;
销售收入:=STRTONUM(F10TEXT(F10FIND('主营业务收入 ',1)+m,10)),LINETHICK0;
销售收入上:=STRTONUM(F10TEXT(F10FIND('主营业务收入 ',1)+m2,10)),LINETHICK0;
x5k:=销售收入/资产总额*100,linethick0,colorgreen;
x5上:=销售收入上/资产总额上*100,linethick0;
zk:=(1.2*x1k/100)+1.4*x2k/100+3.3*x3k/100+0.6*x4k/100+0.995*x5k/100,linethick0,colorffef40;
z上:=(1.2*x1上/100)+1.4*x2上/100+3.3*x3上/100+0.6*x4上/100+0.995*x5上/100,linethick0,coloryellow;
//表格
s1:=SYSPARAM(1);
s2:=SYSPARAM(2);
s3:=SYSPARAM(3);
KS:=SYSPARAM(3)-SYSPARAM(2);
t1:=ref(barpos,barssince(date>=起点));//以日期定义的区间起点位置
t2:=ref(barpos,barssince(date>=终点));//以日期定义的区间终点位置
d:=t2-t1;//以日期定义的区间
qj:=if(N=1,s3-s1+1,if(N=2,s3-s2,d[s3]));//区间:N＝1,光标.N＝2,可见K线.N＝3,日期
qd:=if(N=1,s1,if(N=2,s2,t1[s3]));//起点的数据位置
zd:=if(N<3,s3,t2[s3]);//终点的数据位置
{表格}
s2:=SYSPARAM(2);
KS:=SYSPARAM(3)-SYSPARAM(2);
Z:=ks/80;
x:=barpos=s2;
x1:=barpos=s2+ROUND(z);
//横线
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;
//竖线
Z:=ks/80;
x:=barpos=s2;
STICKLINE(x,100,0,0,0),COLORwhite;
x1:=barpos=s2+ROUND(z*10);
STICKLINE(x1,100,20,0,0),LINEDOT,COLORGRAY;
x2:=barpos=s2+ROUND(z*32);
STICKLINE(x2,100,20,0,0),LINEDOT,COLORGRAY;
x3:=barpos=s2+ROUND(z*50);
STICKLINE(x3,100,20,0,0),LINEDOT,COLORGRAY;
x4:=barpos=s2+ROUND(z*70);
STICKLINE(x4,100,20,0,0),LINEDOT,COLORGRAY;
x5:=barpos=s2+ROUND(z*80);
STICKLINE(x5,100,0,0,0),COLORwhite;
drawtext(x,90,'序号:'),COLORyellow;
drawtext(x,76,' x1'),COLORyellow;
drawtext(x,66,' x2'),COLORyellow;
drawtext(x,56,' x3'),COLORyellow;
drawtext(x,46,' x4'),COLORyellow;
drawtext(x,36,' x5'),COLORyellow;
drawtext(x,26,' z值'),COLORyellow;
drawtext(x1,90,' 指标说明'),COLORyellow;
drawtext(x1,76,' 营运资金/资产总额'),COLORyellow;
drawtext(x1,66,' 留存收益/资产总额'),COLORyellow;
drawtext(x1,56,' 息税前收益/资产总额'),COLORyellow;
drawtext(x1,46,' 权益市价/负债总额'),COLORyellow;
drawtext(x1,36,' 销售额/资产总额'),COLORyellow;
drawtext(x2,90,' 上年数'),COLORyellow;
drawtext(x2,76,' '+NUMTOSTR(x1上,3)),COLORyellow;
drawtext(x2,66,' '+NUMTOSTR(x2上,3)),COLORyellow;
drawtext(x2,56,' '+NUMTOSTR(x3上,3)),COLORyellow;
drawtext(x2,46,' '+NUMTOSTR(x4上,3)),COLORyellow;
drawtext(x2,36,' '+NUMTOSTR(x5上,3)),COLORyellow;
drawtext(x2,26,' '+NUMTOSTR(z上,3)),COLORyellow;
drawtext(x3,90,' 本年数'),COLORyellow;
drawtext(x3,76,' '+NUMTOSTR(x1k,3)),COLORyellow;
drawtext(x3,66,' '+NUMTOSTR(x2k,3)),COLORyellow;
drawtext(x3,56,' '+NUMTOSTR(x3k,3)),COLORyellow;
drawtext(x3,46,' '+NUMTOSTR(x4k,3)),COLORyellow;
drawtext(x3,36,' '+NUMTOSTR(x5k,3)),COLORyellow;
drawtext(x3,26,' '+NUMTOSTR(zk,3)),COLORyellow;
drawtext(x4,90,' 结果'),COLORyellow;//////////////////x8
drawtext(x4 and x1k>x1上,76,' 提高'),COLORyellow;
drawtext(x4 and x2k>x2上,66,' 提高'),COLORyellow;
drawtext(x4 and x3k>x3上,56,' 提高'),COLORyellow;
drawtext(x4 and x4k>x4上,46,' 提高'),COLORyellow;
drawtext(x4 and x5k>x5上,36,' 提高'),COLORyellow;
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,' 下降'),COLORBLUE;
drawtext(x1 and zk>=0.6685,10,' 若Z≥0.6685 则表明企业的财务状况良好，发生破产的可能性较小
'),colorccffcc;
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;
VARIABLE:SJ[8]='str',SY[8]='str',TT=6;
jdg:=F10FIND('财务指标-增长能力',10000),LINETHICK;
IF jdg=-1 then EXIT;
SJT:=F10TEXT(F10FIND('指标名称',jdg)+4,70);
SJ[1]:=LTRIM(STRMID(SJT,14,10));
FOR i=1 TO 4 DO BEGIN
TMP:=STRFIND(SJT,'│',1);
SJ:=LTRIM(STRMID(SJT,TMP+4,10));
SJT:=LTRIM(STRMID(SJT,TMP+2,0));
END;
WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);
//DRAWTEXT(x8,5,' 报表日期：'+SJ[1]),colorgreen;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
