基本面源代码

潘婷婷 · 发表于 2019-7-15 16:40

基本面源代码

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：潘婷婷浏览：78947 回复：123

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由潘婷婷于 2019-7-16 13:28 编辑

主图的，说多了也没什么意思，反正十多年的总结，希望得到传承。用的时候记得点击，系统----专业财务数据，更新一下才能用，指标里能改的地方较少，已经是最优化了。
记得多多加分，才一会，3000多的浏览，才几个加分的。哎。这是十多年的心血，白用呢，就就加个分而已。
35楼有压缩指标，解压可以直接导入最新版本的。怎么有几个朋友说不能通过，你们能通过的朋友吱个声跟帖说一声能否通过。

新建主图指标，取名字，粘贴下面的。1到3楼合成一个指标，要全新的新建指标，否则指标过大无法通过。吃饭饭散步去了，看晚上还来不。爱各位。

NF:=0;{-20,0}
JD:=0;{0,4}
AA总市值:=(337758)+(233499){沪+深};
流通市值:=(286300)+(167736){沪+深};
最新GDP:=(827121)*(0.065/12*MONTH+1){国内生产总值*增率};
当前M1:=(517000){侠义货币};
当前M2:=(1729100){广义货币};
流%G:=(流通市值/最新GDP)*100;
总%G:=(AA总市值/最新GDP)*100{50%};
流%M2:=(流通市值/当前M2)*100{12%};
总%M2:=(AA总市值/当前M2)*100;
M2%G:=(当前M2/最新GDP)*100;
M1%G:=(当前M1/最新GDP)*100;
{流G}DRAWTEXT_FIX(1 ,0.007,0.003,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(流通市值/10000,1),' / '),STRCAT(CON2STR(AA总市值/10000,1),' 万亿 '))
,STRCAT('流G: ',STRCAT(CON2STR(流%G,1),' '))),STRCAT('总G: ',STRCAT(CON2STR(总%G,1),' '))),STRCAT('流M2: ',STRCAT(CON2STR(流%M2,1),' '))),STRCAT('总M2: ',STRCAT(CON2STR(总%M2,1),' ')))
,STRCAT('M2 G: ',STRCAT(CON2STR(M2%G,1),' '))),STRCAT('M1 G: ',CON2STR(M1%G,1)))),COLORAAAAAA;

{买1}DYNAINFO(58)*100*DYNAINFO(20)/100000000,COLOR0000EE,NODRAW;
均线:(SUM(C,4)+C)/5,COLORAAAAAA,NODRAW;
NOTEXT_均线:STICKLINE(BETWEEN(CURRBARSCOUNT,2,1),REF(均线,1),均线,12,-1),COLORBFBFBF;
PJJ:=((((C+H+L+O)/4)+((C+C+H+L)/4)+((C+H+L)/3)+((H+L)/2))/4);
X:=PJJ;
D1:=H-X;
D2:=X-L;
D3:=H-L;
HB:=X+(D3+D2);
SK:=X+D2;
BK:=X-D1;
LB:=X-(D3+D1);
DC3:=(BK-LB)/3;
底:LB,COLOR00DFDF,NODRAW;
副底:LB+DC3,COLOR00DFDF,NODRAW;
副买:BK-DC3,COLOR00DFDF,NODRAW;
买:BK,COLOR00DFDF,NODRAW;
B:BK+DC3,COLORAAAAAA,NODRAW;
%:(DC3)/2,COLORFFCA95,NODRAW;
S:SK-DC3,COLORAAAAAA,NODRAW;
卖:SK,COLOR00DF00,NODRAW;
副卖:SK+DC3,COLOR00DF00,NODRAW;
副顶:HB-DC3,COLOR00DF00,NODRAW;
顶:HB,COLOR00DF00,NODRAW;
NOTEXT_顶:IF(BETWEEN(CURRBARSCOUNT,1,3),CONST(HHV(顶+(DC3*1),55)),DRAWNULL),POINTDOT,COLOR000000,LINETHICK4;
NOTEXT_底:IF(BETWEEN(CURRBARSCOUNT,1,3),CONST(LLV(底-(DC3*1),55)),DRAWNULL),POINTDOT,COLOR000000,LINETHICK4;

MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),3);
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),3);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),3);
空:100-(DMM*50/MTR),COLORFFAA55,NODRAW;
【:空-REF(空,1),COLORFFAA55,NODRAW;
】多:DMP*50/MTR,COLORFFAA55,NODRAW;

几季:=
IF( FINONE(74,YEAR,1231)+FINONE(74,YEAR,930)+FINONE(74,YEAR,630)+FINONE(74,YEAR,331) !=DRAWNULL,4,
IF( FINONE(74,YEAR,930)+FINONE(74,YEAR,630)+FINONE(74,YEAR,331) !=DRAWNULL,3,
IF( FINONE(74,YEAR,630)+FINONE(74,YEAR,331) !=DRAWNULL,2,
IF( FINONE(74,YEAR,331) !=DRAWNULL,1,FINANCE(37) ))));
季值:=IF(几季=4,1231,IF(几季=3,930,IF(几季=2,630,331)));
JJ:=IF(PERIOD=11,4,IF(JD=0,几季,JD));
J{值}:=IF(PERIOD=11,1231,IF(JD=0,季值,IF(JD=4,1231,IF(JD=3,930,IF(JD=2,630,331)))));
{年}N:=IF(FINONE(40,YEAR+NF,季值)=DRAWNULL,YEAR+NF-1,YEAR+NF);
W:=DRAWNULL;

{收利比};
C0:=FINONE(40,N-0,J);
C1:=FINONE(40,N-1,J);
C2:=FINONE(40,N-2,J);
C3:=FINONE(40,N-3,J);
C4:=FINONE(40,N-4,J);
C5:=FINONE(40,N-5,J);
C6:=FINONE(40,N-6,J);
C7:=FINONE(40,N-7,J);
C8:=FINONE(40,N-8,J);
C9:=FINONE(40,N-9,J);
C10:=FINONE(40,N-10,J);

S0:=FINONE(74,N-0,J);
S1:=FINONE(74,N-1,J);
S2:=FINONE(74,N-2,J);
S3:=FINONE(74,N-3,J);
S4:=FINONE(74,N-4,J);
S5:=FINONE(74,N-5,J);
S6:=FINONE(74,N-6,J);
S7:=FINONE(74,N-7,J);
S8:=FINONE(74,N-8,J);
S9:=FINONE(74,N-9,J);

YY0:=S0/ABS(FINONE(74,N-0,1231));
YY1:=S1/ABS(FINONE(74,N-1,1231));
YY2:=S2/ABS(FINONE(74,N-2,1231));
YY3:=S3/ABS(FINONE(74,N-3,1231));
YY4:=S4/ABS(FINONE(74,N-4,1231));
YY5:=S5/ABS(FINONE(74,N-5,1231));
YY6:=S6/ABS(FINONE(74,N-6,1231));
YY7:=S7/ABS(FINONE(74,N-7,1231));
YY8:=S8/ABS(FINONE(74,N-8,1231));
YY9:=S9/ABS(FINONE(74,N-9,1231));
SR0:=IF(YY0=W OR  YY0<0,0,YY0);
SR1:=IF(YY1=W OR  YY1<0,0,YY1);
SR2:=IF(YY2=W OR  YY2<0,0,YY2);
SR3:=IF(YY3=W OR  YY3<0,0,YY3);
SR4:=IF(YY4=W OR  YY4<0,0,YY4);
SR5:=IF(YY5=W OR  YY5<0,0,YY5);
SR6:=IF(YY6=W OR  YY6<0,0,YY6);
SR7:=IF(YY7=W OR  YY7<0,0,YY7);
SR8:=IF(YY8=W OR  YY8<0,0,YY8);
SR9:=IF(YY9=W OR  YY9<0,0,YY9);
YXS:=IF(SR1=0,0,1)+IF(SR2=0,0,1)+IF(SR3=0,0,1)+IF(SR4=0,0,1)+IF(SR5=0,0,1)+IF(SR6=0,0,1)+IF(SR7=0,0,1)+IF(SR8=0,0,1)+IF(SR9=0,0,1);
JS:=(SR1+SR2+SR3+SR4+SR5+SR6+SR7+SR8+SR9)/YXS;
SB:=IF(JS=W OR JS=0,(JJ/4),JS);

MG0:=FINONE(96,N-0,J)/ABS(FINONE(96,N-0,1231));
MG1:=FINONE(96,N-1,J)/ABS(FINONE(96,N-1,1231));
MG2:=FINONE(96,N-2,J)/ABS(FINONE(96,N-2,1231));
MG3:=FINONE(96,N-3,J)/ABS(FINONE(96,N-3,1231));
MG4:=FINONE(96,N-4,J)/ABS(FINONE(96,N-4,1231));
MG5:=FINONE(96,N-5,J)/ABS(FINONE(96,N-5,1231));
MG6:=FINONE(96,N-6,J)/ABS(FINONE(96,N-6,1231));
MG7:=FINONE(96,N-7,J)/ABS(FINONE(96,N-7,1231));
MG8:=FINONE(96,N-8,J)/ABS(FINONE(96,N-8,1231));
MG9:=FINONE(96,N-9,J)/ABS(FINONE(96,N-9,1231));
LR0:=IF(MG0=W OR  MG0<0,0,MG0);
LR1:=IF(MG1=W OR  MG1<0,0,MG1);
LR2:=IF(MG2=W OR  MG2<0,0,MG2);
LR3:=IF(MG3=W OR  MG3<0,0,MG3);
LR4:=IF(MG4=W OR  MG4<0,0,MG4);
LR5:=IF(MG5=W OR  MG5<0,0,MG5);
LR6:=IF(MG6=W OR  MG6<0,0,MG6);
LR7:=IF(MG7=W OR  MG7<0,0,MG7);
LR8:=IF(MG8=W OR  MG8<0,0,MG8);
LR9:=IF(MG9=W OR  MG9<0,0,MG9);
YXL:=IF(LR1=0,0,1)+IF(LR2=0,0,1)+IF(LR3=0,0,1)+IF(LR4=0,0,1)+IF(LR5=0,0,1)+IF(LR6=0,0,1)+IF(LR7=0,0,1)+IF(LR8=0,0,1)+IF(LR9=0,0,1);
JL:=(LR1+LR2+LR3+LR4+LR5+LR6+LR7+LR8+LR9)/YXL;
LBB:=IF(JL=W OR JL=0,(JJ/4),JL);

债:=FINONE(210,0,0), NODRAW;
利:=IF(FINONE(40,0,0)>=0,FINONE(96,0,0)/ SB /FINONE(40,N,J)*100,DRAWNULL);
收:=利*( 1 / ABS(FINONE(271,0,0)/FINONE(40,N,J)) );
PB:IF(CLOSE>=0,CLOSE/FINANCE(34),DRAWNULL), COLOR00D500,NODRAW;
PE:100/IF(CLOSE>=0,FINONE(96,0,0)/ SB /CONST(FINANCE(1))/CLOSE*100,DRAWNULL), COLOR00D500,NODRAW;

{转本费主}
DZ0:=S0/SB/FINONE(40,N,季值)*100;
DZ1:=S1/SB/FINONE(40,N,季值)*100;
DZ2:=S2/SB/FINONE(40,N,季值)*100;
DZ3:=S3/SB/FINONE(40,N,季值)*100;
DZ4:=S4/SB/FINONE(40,N,季值)*100;
DZ5:=S5/SB/FINONE(40,N,季值)*100;
DZ6:=S6/SB/FINONE(40,N,季值)*100;
DZ7:=S7/SB/FINONE(40,N,季值)*100;
DZ8:=S8/SB/FINONE(40,N,季值)*100;
DZ9:=S9/SB/FINONE(40,N,季值)*100;

ZZ0:=S0/SB/C0*100;
ZZ1:=S1/SB/C1*100;
ZZ2:=S2/SB/C2*100;
ZZ3:=S3/SB/C3*100;
ZZ4:=S4/SB/C4*100;
ZZ5:=S5/SB/C5*100;
ZZ6:=S6/SB/C6*100;
ZZ7:=S7/SB/C7*100;
ZZ8:=S8/SB/C8*100;
ZZ9:=S9/SB/C9*100;

复0:=(POW(DZ0/DZ2,1/2)-1)*100;
复1:=(POW(DZ1/DZ3,1/2)-1)*100;
复2:=(POW(DZ2/DZ4,1/2)-1)*100;
复3:=(POW(DZ3/DZ5,1/2)-1)*100;
复4:=(POW(DZ4/DZ6,1/2)-1)*100;
复5:=(POW(DZ5/DZ7,1/2)-1)*100;
复6:=(POW(DZ6/DZ8,1/2)-1)*100;
复7:=(POW(DZ7/DZ9,1/2)-1)*100;

B0:=FINONE(196,N-0,J);
B1:=FINONE(196,N-1,J);
B2:=FINONE(196,N-2,J);
B3:=FINONE(196,N-3,J);
B4:=FINONE(196,N-4,J);
B5:=FINONE(196,N-5,J);
B6:=FINONE(196,N-6,J);
B7:=FINONE(196,N-7,J);
B8:=FINONE(196,N-8,J);
B9:=FINONE(196,N-9,J);

JS0:=FINONE(81,N-0,J)/S0*100;
JS1:=FINONE(81,N-1,J)/S1*100;
JS2:=FINONE(81,N-2,J)/S2*100;
JS3:=FINONE(81,N-3,J)/S3*100;
JS4:=FINONE(81,N-4,J)/S4*100;
JS5:=FINONE(81,N-5,J)/S5*100;
JS6:=FINONE(81,N-6,J)/S6*100;
JS7:=FINONE(81,N-7,J)/S7*100;
JS8:=FINONE(81,N-8,J)/S8*100;
JS9:=FINONE(81,N-9,J)/S9*100;

F0:=FINONE(195,N-0,J)+FINONE(203,N-0,J)+JS0;
F1:=FINONE(195,N-1,J)+FINONE(203,N-1,J)+JS1;
F2:=FINONE(195,N-2,J)+FINONE(203,N-2,J)+JS2;
F3:=FINONE(195,N-3,J)+FINONE(203,N-3,J)+JS3;
F4:=FINONE(195,N-4,J)+FINONE(203,N-4,J)+JS4;
F5:=FINONE(195,N-5,J)+FINONE(203,N-5,J)+JS5;
F6:=FINONE(195,N-6,J)+FINONE(203,N-6,J)+JS6;
F7:=FINONE(195,N-7,J)+FINONE(203,N-7,J)+JS7;
F8:=FINONE(195,N-8,J)+FINONE(203,N-8,J)+JS8;
F9:=FINONE(195,N-9,J)+FINONE(203,N-9,J)+JS9;

CF0:=FINONE(80,N-0,J)/S0*100;
CF1:=FINONE(80,N-1,J)/S1*100;
CF2:=FINONE(80,N-2,J)/S2*100;
CF3:=FINONE(80,N-3,J)/S3*100;
CF4:=FINONE(80,N-4,J)/S4*100;
CF5:=FINONE(80,N-5,J)/S5*100;
CF6:=FINONE(80,N-6,J)/S6*100;
CF7:=FINONE(80,N-7,J)/S7*100;
CF8:=FINONE(80,N-8,J)/S8*100;
CF9:=FINONE(80,N-9,J)/S9*100;

GF0:=FINONE(78,N-0,J)/S0*100;
GF1:=FINONE(78,N-1,J)/S1*100;
GF2:=FINONE(78,N-2,J)/S2*100;
GF3:=FINONE(78,N-3,J)/S3*100;
GF4:=FINONE(78,N-4,J)/S4*100;
GF5:=FINONE(78,N-5,J)/S5*100;
GF6:=FINONE(78,N-6,J)/S6*100;
GF7:=FINONE(78,N-7,J)/S7*100;
GF8:=FINONE(78,N-8,J)/S8*100;
GF9:=FINONE(78,N-9,J)/S9*100;

XF0:=FINONE(77,N-0,J)/S0*100;
XF1:=FINONE(77,N-1,J)/S1*100;
XF2:=FINONE(77,N-2,J)/S2*100;
XF3:=FINONE(77,N-3,J)/S3*100;
XF4:=FINONE(77,N-4,J)/S4*100;
XF5:=FINONE(77,N-5,J)/S5*100;
XF6:=FINONE(77,N-6,J)/S6*100;
XF7:=FINONE(77,N-7,J)/S7*100;
XF8:=FINONE(77,N-8,J)/S8*100;
XF9:=FINONE(77,N-9,J)/S9*100;
{Z剔除公允投资汇兑}
Z0:=100-B0-F0;
Z1:=100-B1-F1;
Z2:=100-B2-F2;
Z3:=100-B3-F3;
Z4:=100-B4-F4;
Z5:=100-B5-F5;
Z6:=100-B6-F6;
Z7:=100-B7-F7;
Z8:=100-B8-F8;
Z9:=100-B9-F9;

BFZ0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B0,0),' .'),STRCAT(CON2STR(B0+XF0,0),'    ')),STRCAT(CON2STR(F0,0),' / ')),STRCAT(CON2STR(JS0,1),' | ')),STRCAT(CON2STR(CF0,1),' / ')),STRCAT(CON2STR(GF0,0),' / ')),STRCAT(CON2STR(XF0,0),'    ')),STRCAT(CON2STR(Z0,0),'【'));
BFZ1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B1,0),' .'),STRCAT(CON2STR(B1+XF1,0),'    ')),STRCAT(CON2STR(F1,0),' / ')),STRCAT(CON2STR(JS1,1),' | ')),STRCAT(CON2STR(CF1,1),' / ')),STRCAT(CON2STR(GF1,0),' / ')),STRCAT(CON2STR(XF1,0),'    ')),STRCAT(CON2STR(Z1,0),'【'));
BFZ2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B2,0),' .'),STRCAT(CON2STR(B2+XF2,0),'    ')),STRCAT(CON2STR(F2,0),' / ')),STRCAT(CON2STR(JS2,1),' | ')),STRCAT(CON2STR(CF2,1),' / ')),STRCAT(CON2STR(GF2,0),' / ')),STRCAT(CON2STR(XF2,0),'    ')),STRCAT(CON2STR(Z2,0),'【'));
BFZ3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B3,0),' .'),STRCAT(CON2STR(B3+XF3,0),'    ')),STRCAT(CON2STR(F3,0),' / ')),STRCAT(CON2STR(JS3,1),' | ')),STRCAT(CON2STR(CF3,1),' / ')),STRCAT(CON2STR(GF3,0),' / ')),STRCAT(CON2STR(XF3,0),'    ')),STRCAT(CON2STR(Z3,0),'【'));
BFZ4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B4,0),' .'),STRCAT(CON2STR(B4+XF4,0),'    ')),STRCAT(CON2STR(F4,0),' / ')),STRCAT(CON2STR(JS4,1),' | ')),STRCAT(CON2STR(CF4,1),' / ')),STRCAT(CON2STR(GF4,0),' / ')),STRCAT(CON2STR(XF4,0),'    ')),STRCAT(CON2STR(Z4,0),'【'));
BFZ5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B5,0),' .'),STRCAT(CON2STR(B5+XF5,0),'    ')),STRCAT(CON2STR(F5,0),' / ')),STRCAT(CON2STR(JS5,1),' | ')),STRCAT(CON2STR(CF5,1),' / ')),STRCAT(CON2STR(GF5,0),' / ')),STRCAT(CON2STR(XF5,0),'    ')),STRCAT(CON2STR(Z5,0),'【'));
BFZ6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B6,0),' .'),STRCAT(CON2STR(B6+XF6,0),'    ')),STRCAT(CON2STR(F6,0),' / ')),STRCAT(CON2STR(JS6,1),' | ')),STRCAT(CON2STR(CF6,1),' / ')),STRCAT(CON2STR(GF6,0),' / ')),STRCAT(CON2STR(XF6,0),'    ')),STRCAT(CON2STR(Z6,0),'【'));
BFZ7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B7,0),' .'),STRCAT(CON2STR(B7+XF7,0),'    ')),STRCAT(CON2STR(F7,0),' / ')),STRCAT(CON2STR(JS7,1),' | ')),STRCAT(CON2STR(CF7,1),' / ')),STRCAT(CON2STR(GF7,0),' / ')),STRCAT(CON2STR(XF7,0),'    ')),STRCAT(CON2STR(Z7,0),'【'));
BFZ8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B8,0),' .'),STRCAT(CON2STR(B8+XF8,0),'    ')),STRCAT(CON2STR(F8,0),' / ')),STRCAT(CON2STR(JS8,1),' | ')),STRCAT(CON2STR(CF8,1),' / ')),STRCAT(CON2STR(GF8,0),' / ')),STRCAT(CON2STR(XF8,0),'    ')),STRCAT(CON2STR(Z8,0),'【'));
BFZ9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(B9,0),' .'),STRCAT(CON2STR(B9+XF9,0),'    ')),STRCAT(CON2STR(F9,0),' / ')),STRCAT(CON2STR(JS9,1),' | ')),STRCAT(CON2STR(CF9,1),' / ')),STRCAT(CON2STR(GF9,0),' / ')),STRCAT(CON2STR(XF9,0),'    ')),STRCAT(CON2STR(Z9,0),'【'));

DL0:=Z0/100*DZ0;
DL1:=Z1/100*DZ1;
DL2:=Z2/100*DZ2;
DL3:=Z3/100*DZ3;
DL4:=Z4/100*DZ4;
DL5:=Z5/100*DZ5;
DL6:=Z6/100*DZ6;
DL7:=Z7/100*DZ7;
DL8:=Z8/100*DZ8;
DL9:=Z9/100*DZ9;

ZL0:=Z0/100*ZZ0;
ZL1:=Z1/100*ZZ1;
ZL2:=Z2/100*ZZ2;
ZL3:=Z3/100*ZZ3;
ZL4:=Z4/100*ZZ4;
ZL5:=Z5/100*ZZ5;
ZL6:=Z6/100*ZZ6;
ZL7:=Z7/100*ZZ7;
ZL8:=Z8/100*ZZ8;
ZL9:=Z9/100*ZZ9;

ML0:=FINONE(96,N-0,J)/SB/C0*100;
ML1:=FINONE(96,N-1,J)/SB/C1*100;
ML2:=FINONE(96,N-2,J)/SB/C2*100;
ML3:=FINONE(96,N-3,J)/SB/C3*100;
ML4:=FINONE(96,N-4,J)/SB/C4*100;
ML5:=FINONE(96,N-5,J)/SB/C5*100;
ML6:=FINONE(96,N-6,J)/SB/C6*100;
ML7:=FINONE(96,N-7,J)/SB/C7*100;
ML8:=FINONE(96,N-8,J)/SB/C8*100;
ML9:=FINONE(96,N-9,J)/SB/C9*100;
{主业利润增长}
增0:=(POW(DL0/DL2,1/2)-1)*100;
增1:=(POW(DL1/DL3,1/2)-1)*100;
增2:=(POW(DL2/DL4,1/2)-1)*100;
增3:=(POW(DL3/DL5,1/2)-1)*100;
增4:=(POW(DL4/DL6,1/2)-1)*100;
增5:=(POW(DL5/DL7,1/2)-1)*100;
增6:=(POW(DL6/DL8,1/2)-1)*100;
增7:=(POW(DL7/DL9,1/2)-1)*100;

JX0:=FINONE(107,N-0,J)/SB/C0*100;
JX1:=FINONE(107,N-1,J)/SB/C1*100;
JX2:=FINONE(107,N-2,J)/SB/C2*100;
JX3:=FINONE(107,N-3,J)/SB/C3*100;
JX4:=FINONE(107,N-4,J)/SB/C4*100;
JX5:=FINONE(107,N-5,J)/SB/C5*100;
JX6:=FINONE(107,N-6,J)/SB/C6*100;
JX7:=FINONE(107,N-7,J)/SB/C7*100;
JX8:=FINONE(107,N-8,J)/SB/C8*100;
JX9:=FINONE(107,N-9,J)/SB/C9*100;

ZE0:=FINONE(92,N-0,J)/S0*100;
ZE1:=FINONE(92,N-1,J)/S1*100;
ZE2:=FINONE(92,N-2,J)/S2*100;
ZE3:=FINONE(92,N-3,J)/S3*100;
ZE4:=FINONE(92,N-4,J)/S4*100;
ZE5:=FINONE(92,N-5,J)/S5*100;
ZE6:=FINONE(92,N-6,J)/S6*100;
ZE7:=FINONE(92,N-7,J)/S7*100;
ZE8:=FINONE(92,N-8,J)/S8*100;
ZE9:=FINONE(92,N-9,J)/S9*100;
FY%0:=(ZE0-Z0)/ABS(ZE0)*100;
FY%1:=(ZE1-Z1)/ABS(ZE1)*100;
FY%2:=(ZE2-Z2)/ABS(ZE2)*100;
FY%3:=(ZE3-Z3)/ABS(ZE3)*100;
FY%4:=(ZE4-Z4)/ABS(ZE4)*100;
FY%5:=(ZE5-Z5)/ABS(ZE5)*100;
FY%6:=(ZE6-Z6)/ABS(ZE6)*100;
FY%7:=(ZE7-Z7)/ABS(ZE7)*100;
FY%8:=(ZE8-Z8)/ABS(ZE8)*100;
FY%9:=(ZE9-Z9)/ABS(ZE9)*100;

ROE0:=FINONE(96,N-0,J)/SB/ABS(FINONE(271,N-0,J))*100;
ROE1:=FINONE(96,N-1,J)/SB/ABS(FINONE(271,N-1,J))*100;
ROE2:=FINONE(96,N-2,J)/SB/ABS(FINONE(271,N-2,J))*100;
ROE3:=FINONE(96,N-3,J)/SB/ABS(FINONE(271,N-3,J))*100;
ROE4:=FINONE(96,N-4,J)/SB/ABS(FINONE(271,N-4,J))*100;
ROE5:=FINONE(96,N-5,J)/SB/ABS(FINONE(271,N-5,J))*100;
ROE6:=FINONE(96,N-6,J)/SB/ABS(FINONE(271,N-6,J))*100;
ROE7:=FINONE(96,N-7,J)/SB/ABS(FINONE(271,N-7,J))*100;
ROE8:=FINONE(96,N-8,J)/SB/ABS(FINONE(271,N-8,J))*100;
ROE9:=FINONE(96,N-9,J)/SB/ABS(FINONE(271,N-9,J))*100;

DML0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL0,1),' /  '),STRCAT(CON2STR(ZL0,1),' /  ')),STRCAT(CON2STR(ML0,1),'】')),STRCAT(CON2STR(JX0,1),'/ ')),STRCAT(CON2STR(FY%0,0),'  (')),STRCAT(CON2STR(ROE0,1),')'));
DML1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL1,1),' /  '),STRCAT(CON2STR(ZL1,1),' /  ')),STRCAT(CON2STR(ML1,1),'】')),STRCAT(CON2STR(JX1,1),'/ ')),STRCAT(CON2STR(FY%1,0),'  (')),STRCAT(CON2STR(ROE1,1),')'));
DML2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL2,1),' /  '),STRCAT(CON2STR(ZL2,1),' /  ')),STRCAT(CON2STR(ML2,1),'】')),STRCAT(CON2STR(JX2,1),'/ ')),STRCAT(CON2STR(FY%2,0),'  (')),STRCAT(CON2STR(ROE2,1),')'));
DML3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL3,1),' /  '),STRCAT(CON2STR(ZL3,1),' /  ')),STRCAT(CON2STR(ML3,1),'】')),STRCAT(CON2STR(JX3,1),'/ ')),STRCAT(CON2STR(FY%3,0),'  (')),STRCAT(CON2STR(ROE3,1),')'));
DML4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL4,1),' /  '),STRCAT(CON2STR(ZL4,1),' /  ')),STRCAT(CON2STR(ML4,1),'】')),STRCAT(CON2STR(JX4,1),'/ ')),STRCAT(CON2STR(FY%4,0),'  (')),STRCAT(CON2STR(ROE4,1),')'));
DML5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL5,1),' /  '),STRCAT(CON2STR(ZL5,1),' /  ')),STRCAT(CON2STR(ML5,1),'】')),STRCAT(CON2STR(JX5,1),'/ ')),STRCAT(CON2STR(FY%5,0),'  (')),STRCAT(CON2STR(ROE5,1),')'));
DML6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL6,1),' /  '),STRCAT(CON2STR(ZL6,1),' /  ')),STRCAT(CON2STR(ML6,1),'】')),STRCAT(CON2STR(JX6,1),'/ ')),STRCAT(CON2STR(FY%6,0),'  (')),STRCAT(CON2STR(ROE6,1),')'));
DML7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL7,1),' /  '),STRCAT(CON2STR(ZL7,1),' /  ')),STRCAT(CON2STR(ML7,1),'】')),STRCAT(CON2STR(JX7,1),'/ ')),STRCAT(CON2STR(FY%7,0),'  (')),STRCAT(CON2STR(ROE7,1),')'));
DML8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL8,1),' /  '),STRCAT(CON2STR(ZL8,1),' /  ')),STRCAT(CON2STR(ML8,1),'】')),STRCAT(CON2STR(JX8,1),'/ ')),STRCAT(CON2STR(FY%8,0),'  (')),STRCAT(CON2STR(ROE8,1),')'));
DML9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DL9,1),' /  '),STRCAT(CON2STR(ZL9,1),' /  ')),STRCAT(CON2STR(ML9,1),'】')),STRCAT(CON2STR(JX9,1),'/ ')),STRCAT(CON2STR(FY%9,0),'  (')),STRCAT(CON2STR(ROE9,1),')'));

{流资}
HJ0:=(FINONE(8,N-0,J)+FINONE(9,N-0,J))/C0*100;
HJ1:=(FINONE(8,N-1,J)+FINONE(9,N-1,J))/C1*100;
HJ2:=(FINONE(8,N-2,J)+FINONE(9,N-2,J))/C2*100;
HJ3:=(FINONE(8,N-3,J)+FINONE(9,N-3,J))/C3*100;
HJ4:=(FINONE(8,N-4,J)+FINONE(9,N-4,J))/C4*100;
HJ5:=(FINONE(8,N-5,J)+FINONE(9,N-5,J))/C5*100;
HJ6:=(FINONE(8,N-6,J)+FINONE(9,N-6,J))/C6*100;
HJ7:=(FINONE(8,N-7,J)+FINONE(9,N-7,J))/C7*100;
HJ8:=(FINONE(8,N-8,J)+FINONE(9,N-8,J))/C8*100;
HJ9:=(FINONE(8,N-9,J)+FINONE(9,N-9,J))/C9*100;

PJ0:=FINONE(10,N-0,J)/C0*100;
PJ1:=FINONE(10,N-1,J)/C1*100;
PJ2:=FINONE(10,N-2,J)/C2*100;
PJ3:=FINONE(10,N-3,J)/C3*100;
PJ4:=FINONE(10,N-4,J)/C4*100;
PJ5:=FINONE(10,N-5,J)/C5*100;
PJ6:=FINONE(10,N-6,J)/C6*100;
PJ7:=FINONE(10,N-7,J)/C7*100;
PJ8:=FINONE(10,N-8,J)/C8*100;
PJ9:=FINONE(10,N-9,J)/C9*100;

ZK0:=FINONE(11,N-0,J)/C0*100;
ZK1:=FINONE(11,N-1,J)/C1*100;
ZK2:=FINONE(11,N-2,J)/C2*100;
ZK3:=FINONE(11,N-3,J)/C3*100;
ZK4:=FINONE(11,N-4,J)/C4*100;
ZK5:=FINONE(11,N-5,J)/C5*100;
ZK6:=FINONE(11,N-6,J)/C6*100;
ZK7:=FINONE(11,N-7,J)/C7*100;
ZK8:=FINONE(11,N-8,J)/C8*100;
ZK9:=FINONE(11,N-9,J)/C9*100;

CH0:=FINONE(17,N-0,J)/C0*100;
CH1:=FINONE(17,N-1,J)/C1*100;
CH2:=FINONE(17,N-2,J)/C2*100;
CH3:=FINONE(17,N-3,J)/C3*100;
CH4:=FINONE(17,N-4,J)/C4*100;
CH5:=FINONE(17,N-5,J)/C5*100;
CH6:=FINONE(17,N-6,J)/C6*100;
CH7:=FINONE(17,N-7,J)/C7*100;
CH8:=FINONE(17,N-8,J)/C8*100;
CH9:=FINONE(17,N-9,J)/C9*100;
{预付款项}
YF0:=FINONE(12,N-0,J)/C0*100;
YF1:=FINONE(12,N-1,J)/C1*100;
YF2:=FINONE(12,N-2,J)/C2*100;
YF3:=FINONE(12,N-3,J)/C3*100;
YF4:=FINONE(12,N-4,J)/C4*100;
YF5:=FINONE(12,N-5,J)/C5*100;
YF6:=FINONE(12,N-6,J)/C6*100;
YF7:=FINONE(12,N-7,J)/C7*100;
YF8:=FINONE(12,N-8,J)/C8*100;
YF9:=FINONE(12,N-9,J)/C9*100;
{应收利息股利}
LG0:=(FINONE(15,N-0,J)+FINONE(16,N-0,J))/C0*100;
LG1:=(FINONE(15,N-1,J)+FINONE(16,N-1,J))/C1*100;
LG2:=(FINONE(15,N-2,J)+FINONE(16,N-2,J))/C2*100;
LG3:=(FINONE(15,N-3,J)+FINONE(16,N-3,J))/C3*100;
LG4:=(FINONE(15,N-4,J)+FINONE(16,N-4,J))/C4*100;
LG5:=(FINONE(15,N-5,J)+FINONE(16,N-5,J))/C5*100;
LG6:=(FINONE(15,N-6,J)+FINONE(16,N-6,J))/C6*100;
LG7:=(FINONE(15,N-7,J)+FINONE(16,N-7,J))/C7*100;
LG8:=(FINONE(15,N-8,J)+FINONE(16,N-8,J))/C8*100;
LG9:=(FINONE(15,N-9,J)+FINONE(16,N-9,J))/C9*100;
{其他应收关联}
QG0:=(FINONE(13,N-0,J)+FINONE(14,N-0,J))/C0*100;
QG1:=(FINONE(13,N-1,J)+FINONE(14,N-1,J))/C1*100;
QG2:=(FINONE(13,N-2,J)+FINONE(14,N-2,J))/C2*100;
QG3:=(FINONE(13,N-3,J)+FINONE(14,N-3,J))/C3*100;
QG4:=(FINONE(13,N-4,J)+FINONE(14,N-4,J))/C4*100;
QG5:=(FINONE(13,N-5,J)+FINONE(14,N-5,J))/C5*100;
QG6:=(FINONE(13,N-6,J)+FINONE(14,N-6,J))/C6*100;
QG7:=(FINONE(13,N-7,J)+FINONE(14,N-7,J))/C7*100;
QG8:=(FINONE(13,N-8,J)+FINONE(14,N-8,J))/C8*100;
QG9:=(FINONE(13,N-9,J)+FINONE(14,N-9,J))/C9*100;
{年内到期非流资}
YN0:=FINONE(19,N-0,J)/C0*100;
YN1:=FINONE(19,N-1,J)/C1*100;
YN2:=FINONE(19,N-2,J)/C2*100;
YN3:=FINONE(19,N-3,J)/C3*100;
YN4:=FINONE(19,N-4,J)/C4*100;
YN5:=FINONE(19,N-5,J)/C5*100;
YN6:=FINONE(19,N-6,J)/C6*100;
YN7:=FINONE(19,N-7,J)/C7*100;
YN8:=FINONE(19,N-8,J)/C8*100;
YN9:=FINONE(19,N-9,J)/C9*100;
{其他流资}
QT0:=FINONE(20,N-0,J)/C0*100;
QT1:=FINONE(20,N-1,J)/C1*100;
QT2:=FINONE(20,N-2,J)/C2*100;
QT3:=FINONE(20,N-3,J)/C3*100;
QT4:=FINONE(20,N-4,J)/C4*100;
QT5:=FINONE(20,N-5,J)/C5*100;
QT6:=FINONE(20,N-6,J)/C6*100;
QT7:=FINONE(20,N-7,J)/C7*100;
QT8:=FINONE(20,N-8,J)/C8*100;
QT9:=FINONE(20,N-9,J)/C9*100;
{流资比率}
LD0:=FINONE(211,N-0,J);
LD1:=FINONE(211,N-1,J);
LD2:=FINONE(211,N-2,J);
LD3:=FINONE(211,N-3,J);
LD4:=FINONE(211,N-4,J);
LD5:=FINONE(211,N-5,J);
LD6:=FINONE(211,N-6,J);
LD7:=FINONE(211,N-7,J);
LD8:=FINONE(211,N-8,J);
LD9:=FINONE(211,N-9,J);
{衍生金融资产买入返售金融资产划分为持有待售的资产待摊费用待处理流动资产损益}
YM0:=ROUND(LD0-HJ0-PJ0-ZK0-CH0-YF0-(LG0+QG0)-YN0-QT0);
YM1:=ROUND(LD1-HJ1-PJ1-ZK1-CH1-YF1-(LG1+QG1)-YN1-QT1);
YM2:=ROUND(LD2-HJ2-PJ2-ZK2-CH2-YF2-(LG2+QG2)-YN2-QT2);
YM3:=ROUND(LD3-HJ3-PJ3-ZK3-CH3-YF3-(LG3+QG3)-YN3-QT3);
YM4:=ROUND(LD4-HJ4-PJ4-ZK4-CH4-YF4-(LG4+QG4)-YN4-QT4);
YM5:=ROUND(LD5-HJ5-PJ5-ZK5-CH5-YF5-(LG5+QG5)-YN5-QT5);
YM6:=ROUND(LD6-HJ6-PJ6-ZK6-CH6-YF6-(LG6+QG6)-YN6-QT6);
YM7:=ROUND(LD7-HJ7-PJ7-ZK7-CH7-YF7-(LG7+QG7)-YN7-QT7);
YM8:=ROUND(LD8-HJ8-PJ8-ZK8-CH8-YF8-(LG8+QG8)-YN8-QT8);
YM9:=ROUND(LD9-HJ9-PJ9-ZK9-CH9-YF9-(LG9+QG9)-YN9-QT9);

LH0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ0,0),' '),STRCAT(CON2STR(PJ0,0),' ')),STRCAT(CON2STR(ZK0,0),' ')),STRCAT(CON2STR(CH0,0),'  / ')),STRCAT(CON2STR(YF0,0),' ')),STRCAT(CON2STR(LG0,0),' ')),STRCAT(CON2STR(QG0,0),'  /  ')),STRCAT(CON2STR(YM0,0),' ')),STRCAT(CON2STR(YN0,0),' ')),STRCAT(CON2STR(QT0,0),' ( ')),STRCAT(CON2STR(LD0,0),' ) '));
LH1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ1,0),' '),STRCAT(CON2STR(PJ1,0),' ')),STRCAT(CON2STR(ZK1,0),' ')),STRCAT(CON2STR(CH1,0),'  / ')),STRCAT(CON2STR(YF1,0),' ')),STRCAT(CON2STR(LG1,0),' ')),STRCAT(CON2STR(QG1,0),'  /  ')),STRCAT(CON2STR(YM1,0),' ')),STRCAT(CON2STR(YN1,0),' ')),STRCAT(CON2STR(QT1,0),' ( ')),STRCAT(CON2STR(LD1,0),' ) '));
LH2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ2,0),' '),STRCAT(CON2STR(PJ2,0),' ')),STRCAT(CON2STR(ZK2,0),' ')),STRCAT(CON2STR(CH2,0),'  / ')),STRCAT(CON2STR(YF2,0),' ')),STRCAT(CON2STR(LG2,0),' ')),STRCAT(CON2STR(QG2,0),'  /  ')),STRCAT(CON2STR(YM2,0),' ')),STRCAT(CON2STR(YN2,0),' ')),STRCAT(CON2STR(QT2,0),' ( ')),STRCAT(CON2STR(LD2,0),' ) '));
LH3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ3,0),' '),STRCAT(CON2STR(PJ3,0),' ')),STRCAT(CON2STR(ZK3,0),' ')),STRCAT(CON2STR(CH3,0),'  / ')),STRCAT(CON2STR(YF3,0),' ')),STRCAT(CON2STR(LG3,0),' ')),STRCAT(CON2STR(QG3,0),'  /  ')),STRCAT(CON2STR(YM3,0),' ')),STRCAT(CON2STR(YN3,0),' ')),STRCAT(CON2STR(QT3,0),' ( ')),STRCAT(CON2STR(LD3,0),' ) '));
LH4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ4,0),' '),STRCAT(CON2STR(PJ4,0),' ')),STRCAT(CON2STR(ZK4,0),' ')),STRCAT(CON2STR(CH4,0),'  / ')),STRCAT(CON2STR(YF4,0),' ')),STRCAT(CON2STR(LG4,0),' ')),STRCAT(CON2STR(QG4,0),'  /  ')),STRCAT(CON2STR(YM4,0),' ')),STRCAT(CON2STR(YN4,0),' ')),STRCAT(CON2STR(QT4,0),' ( ')),STRCAT(CON2STR(LD4,0),' ) '));
LH5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ5,0),' '),STRCAT(CON2STR(PJ5,0),' ')),STRCAT(CON2STR(ZK5,0),' ')),STRCAT(CON2STR(CH5,0),'  / ')),STRCAT(CON2STR(YF5,0),' ')),STRCAT(CON2STR(LG5,0),' ')),STRCAT(CON2STR(QG5,0),'  /  ')),STRCAT(CON2STR(YM5,0),' ')),STRCAT(CON2STR(YN5,0),' ')),STRCAT(CON2STR(QT5,0),' ( ')),STRCAT(CON2STR(LD5,0),' ) '));
LH6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ6,0),' '),STRCAT(CON2STR(PJ6,0),' ')),STRCAT(CON2STR(ZK6,0),' ')),STRCAT(CON2STR(CH6,0),'  / ')),STRCAT(CON2STR(YF6,0),' ')),STRCAT(CON2STR(LG6,0),' ')),STRCAT(CON2STR(QG6,0),'  /  ')),STRCAT(CON2STR(YM6,0),' ')),STRCAT(CON2STR(YN6,0),' ')),STRCAT(CON2STR(QT6,0),' ( ')),STRCAT(CON2STR(LD6,0),' ) '));
LH7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ7,0),' '),STRCAT(CON2STR(PJ7,0),' ')),STRCAT(CON2STR(ZK7,0),' ')),STRCAT(CON2STR(CH7,0),'  / ')),STRCAT(CON2STR(YF7,0),' ')),STRCAT(CON2STR(LG7,0),' ')),STRCAT(CON2STR(QG7,0),'  /  ')),STRCAT(CON2STR(YM7,0),' ')),STRCAT(CON2STR(YN7,0),' ')),STRCAT(CON2STR(QT7,0),' ( ')),STRCAT(CON2STR(LD7,0),' ) '));
LH8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ8,0),' '),STRCAT(CON2STR(PJ8,0),' ')),STRCAT(CON2STR(ZK8,0),' ')),STRCAT(CON2STR(CH8,0),'  / ')),STRCAT(CON2STR(YF8,0),' ')),STRCAT(CON2STR(LG8,0),' ')),STRCAT(CON2STR(QG8,0),'  /  ')),STRCAT(CON2STR(YM8,0),' ')),STRCAT(CON2STR(YN8,0),' ')),STRCAT(CON2STR(QT8,0),' ( ')),STRCAT(CON2STR(LD8,0),' ) '));
LH9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(HJ9,0),' '),STRCAT(CON2STR(PJ9,0),' ')),STRCAT(CON2STR(ZK9,0),' ')),STRCAT(CON2STR(CH9,0),'  / ')),STRCAT(CON2STR(YF9,0),' ')),STRCAT(CON2STR(LG9,0),' ')),STRCAT(CON2STR(QG9,0),'  /  ')),STRCAT(CON2STR(YM9,0),' ')),STRCAT(CON2STR(YN9,0),' ')),STRCAT(CON2STR(QT9,0),' ( ')),STRCAT(CON2STR(LD9,0),' ) '));

潘婷婷 · 发表于 2019-7-15 16:44

本帖最后由潘婷婷于 2019-7-16 08:28 编辑

{非流资}
JR0:=FINONE(22,N-0,J)/C0*100;
JR1:=FINONE(22,N-1,J)/C1*100;
JR2:=FINONE(22,N-2,J)/C2*100;
JR3:=FINONE(22,N-3,J)/C3*100;
JR4:=FINONE(22,N-4,J)/C4*100;
JR5:=FINONE(22,N-5,J)/C5*100;
JR6:=FINONE(22,N-6,J)/C6*100;
JR7:=FINONE(22,N-7,J)/C7*100;
JR8:=FINONE(22,N-8,J)/C8*100;
JR9:=FINONE(22,N-9,J)/C9*100;

DQ0:=FINONE(23,N-0,J)/C0*100;
DQ1:=FINONE(23,N-1,J)/C1*100;
DQ2:=FINONE(23,N-2,J)/C2*100;
DQ3:=FINONE(23,N-3,J)/C3*100;
DQ4:=FINONE(23,N-4,J)/C4*100;
DQ5:=FINONE(23,N-5,J)/C5*100;
DQ6:=FINONE(23,N-6,J)/C6*100;
DQ7:=FINONE(23,N-7,J)/C7*100;
DQ8:=FINONE(23,N-8,J)/C8*100;
DQ9:=FINONE(23,N-9,J)/C9*100;

GQ0:=FINONE(25,N-0,J)/C0*100;
GQ1:=FINONE(25,N-1,J)/C1*100;
GQ2:=FINONE(25,N-2,J)/C2*100;
GQ3:=FINONE(25,N-3,J)/C3*100;
GQ4:=FINONE(25,N-4,J)/C4*100;
GQ5:=FINONE(25,N-5,J)/C5*100;
GQ6:=FINONE(25,N-6,J)/C6*100;
GQ7:=FINONE(25,N-7,J)/C7*100;
GQ8:=FINONE(25,N-8,J)/C8*100;
GQ9:=FINONE(25,N-9,J)/C9*100;

FD0:=FINONE(26,N-0,J)/C0*100;
FD1:=FINONE(26,N-1,J)/C1*100;
FD2:=FINONE(26,N-2,J)/C2*100;
FD3:=FINONE(26,N-3,J)/C3*100;
FD4:=FINONE(26,N-4,J)/C4*100;
FD5:=FINONE(26,N-5,J)/C5*100;
FD6:=FINONE(26,N-6,J)/C6*100;
FD7:=FINONE(26,N-7,J)/C7*100;
FD8:=FINONE(26,N-8,J)/C8*100;
FD9:=FINONE(26,N-9,J)/C9*100;
TH0:=IF(JR0=W,0,JR0)+IF(DQ0=W,0,DQ0)+IF(GQ0=W,0,GQ0)+IF(FD0=W,0,FD0);
TH1:=IF(JR1=W,0,JR1)+IF(DQ1=W,0,DQ1)+IF(GQ1=W,0,GQ1)+IF(FD1=W,0,FD1);
TH2:=IF(JR2=W,0,JR2)+IF(DQ2=W,0,DQ2)+IF(GQ2=W,0,GQ2)+IF(FD2=W,0,FD2);
TH3:=IF(JR3=W,0,JR3)+IF(DQ3=W,0,DQ3)+IF(GQ3=W,0,GQ3)+IF(FD3=W,0,FD3);
TH4:=IF(JR4=W,0,JR4)+IF(DQ4=W,0,DQ4)+IF(GQ4=W,0,GQ4)+IF(FD4=W,0,FD4);
TH5:=IF(JR5=W,0,JR5)+IF(DQ5=W,0,DQ5)+IF(GQ5=W,0,GQ5)+IF(FD5=W,0,FD5);
TH6:=IF(JR6=W,0,JR6)+IF(DQ6=W,0,DQ6)+IF(GQ6=W,0,GQ6)+IF(FD6=W,0,FD6);
TH7:=IF(JR7=W,0,JR7)+IF(DQ7=W,0,DQ7)+IF(GQ7=W,0,GQ7)+IF(FD7=W,0,FD7);
TH8:=IF(JR8=W,0,JR8)+IF(DQ8=W,0,DQ8)+IF(GQ8=W,0,GQ8)+IF(FD8=W,0,FD8);
TH9:=IF(JR9=W,0,JR9)+IF(DQ9=W,0,DQ9)+IF(GQ9=W,0,GQ9)+IF(FD9=W,0,FD9);

GD0:=FINONE(27,N-0,J)/C0*100;
GD1:=FINONE(27,N-1,J)/C1*100;
GD2:=FINONE(27,N-2,J)/C2*100;
GD3:=FINONE(27,N-3,J)/C3*100;
GD4:=FINONE(27,N-4,J)/C4*100;
GD5:=FINONE(27,N-5,J)/C5*100;
GD6:=FINONE(27,N-6,J)/C6*100;
GD7:=FINONE(27,N-7,J)/C7*100;
GD8:=FINONE(27,N-8,J)/C8*100;
GD9:=FINONE(27,N-9,J)/C9*100;

ZJ0:=FINONE(28,N-0,J)/C0*100;
ZJ1:=FINONE(28,N-1,J)/C1*100;
ZJ2:=FINONE(28,N-2,J)/C2*100;
ZJ3:=FINONE(28,N-3,J)/C3*100;
ZJ4:=FINONE(28,N-4,J)/C4*100;
ZJ5:=FINONE(28,N-5,J)/C5*100;
ZJ6:=FINONE(28,N-6,J)/C6*100;
ZJ7:=FINONE(28,N-7,J)/C7*100;
ZJ8:=FINONE(28,N-8,J)/C8*100;
ZJ9:=FINONE(28,N-9,J)/C9*100;

WZ0:=FINONE(29,N-0,J)/C0*100;
WZ1:=FINONE(29,N-1,J)/C1*100;
WZ2:=FINONE(29,N-2,J)/C2*100;
WZ3:=FINONE(29,N-3,J)/C3*100;
WZ4:=FINONE(29,N-4,J)/C4*100;
WZ5:=FINONE(29,N-5,J)/C5*100;
WZ6:=FINONE(29,N-6,J)/C6*100;
WZ7:=FINONE(29,N-7,J)/C7*100;
WZ8:=FINONE(29,N-8,J)/C8*100;
WZ9:=FINONE(29,N-9,J)/C9*100;

QL0:=FINONE(30,N-0,J)/C0*100;
QL1:=FINONE(30,N-1,J)/C1*100;
QL2:=FINONE(30,N-2,J)/C2*100;
QL3:=FINONE(30,N-3,J)/C3*100;
QL4:=FINONE(30,N-4,J)/C4*100;
QL5:=FINONE(30,N-5,J)/C5*100;
QL6:=FINONE(30,N-6,J)/C6*100;
QL7:=FINONE(30,N-7,J)/C7*100;
QL8:=FINONE(30,N-8,J)/C8*100;
QL9:=FINONE(30,N-9,J)/C9*100;

SW0:=FINONE(31,N-0,J)/C0*100;
SW1:=FINONE(31,N-1,J)/C1*100;
SW2:=FINONE(31,N-2,J)/C2*100;
SW3:=FINONE(31,N-3,J)/C3*100;
SW4:=FINONE(31,N-4,J)/C4*100;
SW5:=FINONE(31,N-5,J)/C5*100;
SW6:=FINONE(31,N-6,J)/C6*100;
SW7:=FINONE(31,N-7,J)/C7*100;
SW8:=FINONE(31,N-8,J)/C8*100;
SW9:=FINONE(31,N-9,J)/C9*100;

QZ0:=FINONE(32,N-0,J)/C0*100;
QZ1:=FINONE(32,N-1,J)/C1*100;
QZ2:=FINONE(32,N-2,J)/C2*100;
QZ3:=FINONE(32,N-3,J)/C3*100;
QZ4:=FINONE(32,N-4,J)/C4*100;
QZ5:=FINONE(32,N-5,J)/C5*100;
QZ6:=FINONE(32,N-6,J)/C6*100;
QZ7:=FINONE(32,N-7,J)/C7*100;
QZ8:=FINONE(32,N-8,J)/C8*100;
QZ9:=FINONE(32,N-9,J)/C9*100;
GH0:=IF(GD0=W,0,GD0)+IF(ZJ0=W,0,ZJ0)+IF(WZ0=W,0,WZ0)+IF(QL0=W,0,QL0)+IF(SW0=W,0,SW0)+IF(QZ0=W,0,QZ0);
GH1:=IF(GD1=W,0,GD1)+IF(ZJ1=W,0,ZJ1)+IF(WZ1=W,0,WZ1)+IF(QL1=W,0,QL1)+IF(SW1=W,0,SW1)+IF(QZ1=W,0,QZ1);
GH2:=IF(GD2=W,0,GD2)+IF(ZJ2=W,0,ZJ2)+IF(WZ2=W,0,WZ2)+IF(QL2=W,0,QL2)+IF(SW2=W,0,SW2)+IF(QZ2=W,0,QZ2);
GH3:=IF(GD3=W,0,GD3)+IF(ZJ3=W,0,ZJ3)+IF(WZ3=W,0,WZ3)+IF(QL3=W,0,QL3)+IF(SW3=W,0,SW3)+IF(QZ3=W,0,QZ3);
GH4:=IF(GD4=W,0,GD4)+IF(ZJ4=W,0,ZJ4)+IF(WZ4=W,0,WZ4)+IF(QL4=W,0,QL4)+IF(SW4=W,0,SW4)+IF(QZ4=W,0,QZ4);
GH5:=IF(GD5=W,0,GD5)+IF(ZJ5=W,0,ZJ5)+IF(WZ5=W,0,WZ5)+IF(QL5=W,0,QL5)+IF(SW5=W,0,SW5)+IF(QZ5=W,0,QZ5);
GH6:=IF(GD6=W,0,GD6)+IF(ZJ6=W,0,ZJ6)+IF(WZ6=W,0,WZ6)+IF(QL6=W,0,QL6)+IF(SW6=W,0,SW6)+IF(QZ6=W,0,QZ6);
GH7:=IF(GD7=W,0,GD7)+IF(ZJ7=W,0,ZJ7)+IF(WZ7=W,0,WZ7)+IF(QL7=W,0,QL7)+IF(SW7=W,0,SW7)+IF(QZ7=W,0,QZ7);
GH8:=IF(GD8=W,0,GD8)+IF(ZJ8=W,0,ZJ8)+IF(WZ8=W,0,WZ8)+IF(QL8=W,0,QL8)+IF(SW8=W,0,SW8)+IF(QZ8=W,0,QZ8);
GH9:=IF(GD9=W,0,GD9)+IF(ZJ9=W,0,ZJ9)+IF(WZ9=W,0,WZ9)+IF(QL9=W,0,QL9)+IF(SW9=W,0,SW9)+IF(QZ9=W,0,QZ9);

XH0:=(IF(FINONE(33,N-0,J)=W,0,FINONE(33,N-0,J))+IF(FINONE(34,N-0,J)=W,0,FINONE(34,N-0,J))+IF(FINONE(36,N-0,J)=W,0,FINONE(36,N-0,J)))/C0*100;
XH1:=(IF(FINONE(33,N-1,J)=W,0,FINONE(33,N-1,J))+IF(FINONE(34,N-1,J)=W,0,FINONE(34,N-1,J))+IF(FINONE(36,N-1,J)=W,0,FINONE(36,N-1,J)))/C1*100;
XH2:=(IF(FINONE(33,N-2,J)=W,0,FINONE(33,N-2,J))+IF(FINONE(34,N-2,J)=W,0,FINONE(34,N-2,J))+IF(FINONE(36,N-2,J)=W,0,FINONE(36,N-2,J)))/C2*100;
XH3:=(IF(FINONE(33,N-3,J)=W,0,FINONE(33,N-3,J))+IF(FINONE(34,N-3,J)=W,0,FINONE(34,N-3,J))+IF(FINONE(36,N-3,J)=W,0,FINONE(36,N-3,J)))/C3*100;
XH4:=(IF(FINONE(33,N-4,J)=W,0,FINONE(33,N-4,J))+IF(FINONE(34,N-4,J)=W,0,FINONE(34,N-4,J))+IF(FINONE(36,N-4,J)=W,0,FINONE(36,N-4,J)))/C4*100;
XH5:=(IF(FINONE(33,N-5,J)=W,0,FINONE(33,N-5,J))+IF(FINONE(34,N-5,J)=W,0,FINONE(34,N-5,J))+IF(FINONE(36,N-5,J)=W,0,FINONE(36,N-5,J)))/C5*100;
XH6:=(IF(FINONE(33,N-6,J)=W,0,FINONE(33,N-6,J))+IF(FINONE(34,N-6,J)=W,0,FINONE(34,N-6,J))+IF(FINONE(36,N-6,J)=W,0,FINONE(36,N-6,J)))/C6*100;
XH7:=(IF(FINONE(33,N-7,J)=W,0,FINONE(33,N-7,J))+IF(FINONE(34,N-7,J)=W,0,FINONE(34,N-7,J))+IF(FINONE(36,N-7,J)=W,0,FINONE(36,N-7,J)))/C7*100;
XH8:=(IF(FINONE(33,N-8,J)=W,0,FINONE(33,N-8,J))+IF(FINONE(34,N-8,J)=W,0,FINONE(34,N-8,J))+IF(FINONE(36,N-8,J)=W,0,FINONE(36,N-8,J)))/C8*100;
XH9:=(IF(FINONE(33,N-9,J)=W,0,FINONE(33,N-9,J))+IF(FINONE(34,N-9,J)=W,0,FINONE(34,N-9,J))+IF(FINONE(36,N-9,J)=W,0,FINONE(36,N-9,J)))/C9*100;

TFL0:=(IF(FINONE(37,N-0,J)=W,0,FINONE(37,N-0,J))+IF(FINONE(38,N-0,J)=W,0,FINONE(38,N-0,J)))/C0*100;
TFL1:=(IF(FINONE(37,N-1,J)=W,0,FINONE(37,N-1,J))+IF(FINONE(38,N-1,J)=W,0,FINONE(38,N-1,J)))/C1*100;
TFL2:=(IF(FINONE(37,N-2,J)=W,0,FINONE(37,N-2,J))+IF(FINONE(38,N-2,J)=W,0,FINONE(38,N-2,J)))/C2*100;
TFL3:=(IF(FINONE(37,N-3,J)=W,0,FINONE(37,N-3,J))+IF(FINONE(38,N-3,J)=W,0,FINONE(38,N-3,J)))/C3*100;
TFL4:=(IF(FINONE(37,N-4,J)=W,0,FINONE(37,N-4,J))+IF(FINONE(38,N-4,J)=W,0,FINONE(38,N-4,J)))/C4*100;
TFL5:=(IF(FINONE(37,N-5,J)=W,0,FINONE(37,N-5,J))+IF(FINONE(38,N-5,J)=W,0,FINONE(38,N-5,J)))/C5*100;
TFL6:=(IF(FINONE(37,N-6,J)=W,0,FINONE(37,N-6,J))+IF(FINONE(38,N-6,J)=W,0,FINONE(38,N-6,J)))/C6*100;
TFL7:=(IF(FINONE(37,N-7,J)=W,0,FINONE(37,N-7,J))+IF(FINONE(38,N-7,J)=W,0,FINONE(38,N-7,J)))/C7*100;
TFL8:=(IF(FINONE(37,N-8,J)=W,0,FINONE(37,N-8,J))+IF(FINONE(38,N-8,J)=W,0,FINONE(38,N-8,J)))/C8*100;
TFL9:=(IF(FINONE(37,N-9,J)=W,0,FINONE(37,N-9,J))+IF(FINONE(38,N-9,J)=W,0,FINONE(38,N-9,J)))/C9*100;

SY0:=IF(FINONE(35,N-0,J)=W,0,FINONE(35,N-0,J))/C0*100;
SY1:=IF(FINONE(35,N-1,J)=W,0,FINONE(35,N-1,J))/C1*100;
SY2:=IF(FINONE(35,N-2,J)=W,0,FINONE(35,N-2,J))/C2*100;
SY3:=IF(FINONE(35,N-3,J)=W,0,FINONE(35,N-3,J))/C3*100;
SY4:=IF(FINONE(35,N-4,J)=W,0,FINONE(35,N-4,J))/C4*100;
SY5:=IF(FINONE(35,N-5,J)=W,0,FINONE(35,N-5,J))/C5*100;
SY6:=IF(FINONE(35,N-6,J)=W,0,FINONE(35,N-6,J))/C6*100;
SY7:=IF(FINONE(35,N-7,J)=W,0,FINONE(35,N-7,J))/C7*100;
SY8:=IF(FINONE(35,N-8,J)=W,0,FINONE(35,N-8,J))/C8*100;
SY9:=IF(FINONE(35,N-9,J)=W,0,FINONE(35,N-9,J))/C9*100;

FL0:=IF(FINONE(39,N-0,J)=W,0,FINONE(39,N-0,J))/C0*100;
FL1:=IF(FINONE(39,N-1,J)=W,0,FINONE(39,N-1,J))/C1*100;
FL2:=IF(FINONE(39,N-2,J)=W,0,FINONE(39,N-2,J))/C2*100;
FL3:=IF(FINONE(39,N-3,J)=W,0,FINONE(39,N-3,J))/C3*100;
FL4:=IF(FINONE(39,N-4,J)=W,0,FINONE(39,N-4,J))/C4*100;
FL5:=IF(FINONE(39,N-5,J)=W,0,FINONE(39,N-5,J))/C5*100;
FL6:=IF(FINONE(39,N-6,J)=W,0,FINONE(39,N-6,J))/C6*100;
FL7:=IF(FINONE(39,N-7,J)=W,0,FINONE(39,N-7,J))/C7*100;
FL8:=IF(FINONE(39,N-8,J)=W,0,FINONE(39,N-8,J))/C8*100;
FL9:=IF(FINONE(39,N-9,J)=W,0,FINONE(39,N-9,J))/C9*100;

D长0:=ROUND(FL0-TH0-GH0-XH0-TFL0-SY0);
D长1:=ROUND(FL1-TH1-GH1-XH1-TFL1-SY1);
D长2:=ROUND(FL2-TH2-GH2-XH2-TFL2-SY2);
D长3:=ROUND(FL3-TH3-GH3-XH3-TFL3-SY3);
D长4:=ROUND(FL4-TH4-GH4-XH4-TFL4-SY4);
D长5:=ROUND(FL5-TH5-GH5-XH5-TFL5-SY5);
D长6:=ROUND(FL6-TH6-GH6-XH6-TFL6-SY6);
D长7:=ROUND(FL7-TH7-GH7-XH7-TFL7-SY7);
D长8:=ROUND(FL8-TH8-GH8-XH8-TFL8-SY8);
D长9:=ROUND(FL9-TH9-GH9-XH9-TFL9-SY9);

{账损/(转/SB)}
ZS0:=(ZK0+CH0)/ZZ0*100;
ZS1:=(ZK1+CH1)/ZZ1*100;
ZS2:=(ZK2+CH2)/ZZ2*100;
ZS3:=(ZK3+CH3)/ZZ3*100;
ZS4:=(ZK4+CH4)/ZZ4*100;
ZS5:=(ZK5+CH5)/ZZ5*100;
ZS6:=(ZK6+CH6)/ZZ6*100;
ZS7:=(ZK7+CH7)/ZZ7*100;
ZS8:=(ZK8+CH8)/ZZ8*100;
ZS9:=(ZK9+CH9)/ZZ9*100;

{虚拟资产=应收账款+预付款项+其他应收款+应收关联公司款+长期应收款+垫款+无形资产+开发支出+长期待摊费用+商誉}
XN0:=ZK0+YF0+QG0+D长0+XH0+SY0;
XN1:=ZK1+YF1+QG1+D长1+XH1+SY1;
XN2:=ZK2+YF2+QG2+D长2+XH2+SY2;
XN3:=ZK3+YF3+QG3+D长3+XH3+SY3;
XN4:=ZK4+YF4+QG4+D长4+XH4+SY4;
XN5:=ZK5+YF5+QG5+D长5+XH5+SY5;
XN6:=ZK6+YF6+QG6+D长6+XH6+SY6;
XN7:=ZK7+YF7+QG7+D长7+XH7+SY7;
XN8:=ZK8+YF8+QG8+D长8+XH8+SY8;
XN9:=ZK9+YF9+QG9+D长9+XH9+SY9;

FLH0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长0,0),' '),STRCAT(CON2STR(TH0,0),'  /  ')),STRCAT(CON2STR(GH0,0),' ')),STRCAT(CON2STR(XH0,0),' ')),STRCAT(CON2STR(TFL0,0),' ')),STRCAT(CON2STR(SY0,0),' ( ')),STRCAT(CON2STR(FL0,0),' ) '));
FLH1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长1,0),' '),STRCAT(CON2STR(TH1,0),'  /  ')),STRCAT(CON2STR(GH1,0),' ')),STRCAT(CON2STR(XH1,0),' ')),STRCAT(CON2STR(TFL1,0),' ')),STRCAT(CON2STR(SY1,0),' ( ')),STRCAT(CON2STR(FL1,0),' ) '));
FLH2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长2,0),' '),STRCAT(CON2STR(TH2,0),'  /  ')),STRCAT(CON2STR(GH2,0),' ')),STRCAT(CON2STR(XH2,0),' ')),STRCAT(CON2STR(TFL2,0),' ')),STRCAT(CON2STR(SY2,0),' ( ')),STRCAT(CON2STR(FL2,0),' ) '));
FLH3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长3,0),' '),STRCAT(CON2STR(TH3,0),'  /  ')),STRCAT(CON2STR(GH3,0),' ')),STRCAT(CON2STR(XH3,0),' ')),STRCAT(CON2STR(TFL3,0),' ')),STRCAT(CON2STR(SY3,0),' ( ')),STRCAT(CON2STR(FL3,0),' ) '));
FLH4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长4,0),' '),STRCAT(CON2STR(TH4,0),'  /  ')),STRCAT(CON2STR(GH4,0),' ')),STRCAT(CON2STR(XH4,0),' ')),STRCAT(CON2STR(TFL4,0),' ')),STRCAT(CON2STR(SY4,0),' ( ')),STRCAT(CON2STR(FL4,0),' ) '));
FLH5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长5,0),' '),STRCAT(CON2STR(TH5,0),'  /  ')),STRCAT(CON2STR(GH5,0),' ')),STRCAT(CON2STR(XH5,0),' ')),STRCAT(CON2STR(TFL5,0),' ')),STRCAT(CON2STR(SY5,0),' ( ')),STRCAT(CON2STR(FL5,0),' ) '));
FLH6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长6,0),' '),STRCAT(CON2STR(TH6,0),'  /  ')),STRCAT(CON2STR(GH6,0),' ')),STRCAT(CON2STR(XH6,0),' ')),STRCAT(CON2STR(TFL6,0),' ')),STRCAT(CON2STR(SY6,0),' ( ')),STRCAT(CON2STR(FL6,0),' ) '));
FLH7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长7,0),' '),STRCAT(CON2STR(TH7,0),'  /  ')),STRCAT(CON2STR(GH7,0),' ')),STRCAT(CON2STR(XH7,0),' ')),STRCAT(CON2STR(TFL7,0),' ')),STRCAT(CON2STR(SY7,0),' ( ')),STRCAT(CON2STR(FL7,0),' ) '));
FLH8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长8,0),' '),STRCAT(CON2STR(TH8,0),'  /  ')),STRCAT(CON2STR(GH8,0),' ')),STRCAT(CON2STR(XH8,0),' ')),STRCAT(CON2STR(TFL8,0),' ')),STRCAT(CON2STR(SY8,0),' ( ')),STRCAT(CON2STR(FL8,0),' ) '));
FLH9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(D长9,0),' '),STRCAT(CON2STR(TH9,0),'  /  ')),STRCAT(CON2STR(GH9,0),' ')),STRCAT(CON2STR(XH9,0),' ')),STRCAT(CON2STR(TFL9,0),' ')),STRCAT(CON2STR(SY9,0),' ( ')),STRCAT(CON2STR(FL9,0),' ) '));

潘婷婷 · 发表于 2019-7-15 16:45

本帖最后由潘婷婷于 2019-7-16 08:30 编辑

FY0:=(FINONE(68,N-0,J)+FINONE(66,N-0,J))/C0*100;
FY1:=(FINONE(68,N-1,J)+FINONE(66,N-1,J))/C1*100;
FY2:=(FINONE(68,N-2,J)+FINONE(66,N-2,J))/C2*100;
FY3:=(FINONE(68,N-3,J)+FINONE(66,N-3,J))/C3*100;
FY4:=(FINONE(68,N-4,J)+FINONE(66,N-4,J))/C4*100;
FY5:=(FINONE(68,N-5,J)+FINONE(66,N-5,J))/C5*100;
FY6:=(FINONE(68,N-6,J)+FINONE(66,N-6,J))/C6*100;
FY7:=(FINONE(68,N-7,J)+FINONE(66,N-7,J))/C7*100;
FY8:=(FINONE(68,N-8,J)+FINONE(66,N-8,J))/C8*100;
FY9:=(FINONE(68,N-9,J)+FINONE(66,N-9,J))/C9*100;

ZB0:=FINONE(64,N-0,J)/C0*100;
ZB1:=FINONE(64,N-1,J)/C1*100;
ZB2:=FINONE(64,N-2,J)/C2*100;
ZB3:=FINONE(64,N-3,J)/C3*100;
ZB4:=FINONE(64,N-4,J)/C4*100;
ZB5:=FINONE(64,N-5,J)/C5*100;
ZB6:=FINONE(64,N-6,J)/C6*100;
ZB7:=FINONE(64,N-7,J)/C7*100;
ZB8:=FINONE(64,N-8,J)/C8*100;
ZB9:=FINONE(64,N-9,J)/C9*100;

GJ0:=FINONE(65,N-0,J)/C0*100;
GJ1:=FINONE(65,N-1,J)/C1*100;
GJ2:=FINONE(65,N-2,J)/C2*100;
GJ3:=FINONE(65,N-3,J)/C3*100;
GJ4:=FINONE(65,N-4,J)/C4*100;
GJ5:=FINONE(65,N-5,J)/C5*100;
GJ6:=FINONE(65,N-6,J)/C6*100;
GJ7:=FINONE(65,N-7,J)/C7*100;
GJ8:=FINONE(65,N-8,J)/C8*100;
GJ9:=FINONE(65,N-9,J)/C9*100;

QY0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY0,0),'  '),STRCAT(CON2STR(ZB0,0),'  ')),STRCAT(CON2STR(GJ0,0),' ')),STRCAT(CON2STR(FY0+ZB0+GJ0,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-0,J),0),' (')),STRCAT(CON2STR(ZS0,0),'/')),STRCAT(CON2STR(XN0,0),') '));
QY1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY1,0),'  '),STRCAT(CON2STR(ZB1,0),'  ')),STRCAT(CON2STR(GJ1,0),' ')),STRCAT(CON2STR(FY1+ZB1+GJ1,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-1,J),0),' (')),STRCAT(CON2STR(ZS1,0),'/')),STRCAT(CON2STR(XN1,0),') '));
QY2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY2,0),'  '),STRCAT(CON2STR(ZB2,0),'  ')),STRCAT(CON2STR(GJ2,0),' ')),STRCAT(CON2STR(FY2+ZB2+GJ2,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-2,J),0),' (')),STRCAT(CON2STR(ZS2,0),'/')),STRCAT(CON2STR(XN2,0),') '));
QY3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY3,0),'  '),STRCAT(CON2STR(ZB3,0),'  ')),STRCAT(CON2STR(GJ3,0),' ')),STRCAT(CON2STR(FY3+ZB3+GJ3,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-3,J),0),' (')),STRCAT(CON2STR(ZS3,0),'/')),STRCAT(CON2STR(XN3,0),') '));
QY4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY4,0),'  '),STRCAT(CON2STR(ZB4,0),'  ')),STRCAT(CON2STR(GJ4,0),' ')),STRCAT(CON2STR(FY4+ZB4+GJ4,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-4,J),0),' (')),STRCAT(CON2STR(ZS4,0),'/')),STRCAT(CON2STR(XN4,0),') '));
QY5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY5,0),'  '),STRCAT(CON2STR(ZB5,0),'  ')),STRCAT(CON2STR(GJ5,0),' ')),STRCAT(CON2STR(FY5+ZB5+GJ5,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-5,J),0),' (')),STRCAT(CON2STR(ZS5,0),'/')),STRCAT(CON2STR(XN5,0),') '));
QY6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY6,0),'  '),STRCAT(CON2STR(ZB6,0),'  ')),STRCAT(CON2STR(GJ6,0),' ')),STRCAT(CON2STR(FY6+ZB6+GJ6,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-6,J),0),' (')),STRCAT(CON2STR(ZS6,0),'/')),STRCAT(CON2STR(XN6,0),') '));
QY7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY7,0),'  '),STRCAT(CON2STR(ZB7,0),'  ')),STRCAT(CON2STR(GJ7,0),' ')),STRCAT(CON2STR(FY7+ZB7+GJ7,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-7,J),0),' (')),STRCAT(CON2STR(ZS7,0),'/')),STRCAT(CON2STR(XN7,0),') '));
QY8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY8,0),'  '),STRCAT(CON2STR(ZB8,0),'  ')),STRCAT(CON2STR(GJ8,0),' ')),STRCAT(CON2STR(FY8+ZB8+GJ8,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-8,J),0),' (')),STRCAT(CON2STR(ZS8,0),'/')),STRCAT(CON2STR(XN8,0),') '));
QY9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(FY9,0),'  '),STRCAT(CON2STR(ZB9,0),'  ')),STRCAT(CON2STR(GJ9,0),' ')),STRCAT(CON2STR(FY9+ZB9+GJ9,0),'/ ')),STRCAT(CON2STR(FINONE(210,N-9,J),0),' (')),STRCAT(CON2STR(ZS9,0),'/')),STRCAT(CON2STR(XN9,0),') '));

{净资增}
JZ0:=(FINONE(72,N-0,J)-FINONE(72,N-1,J))/FINONE(72,N-1,J)*100;
JZ1:=(FINONE(72,N-1,J)-FINONE(72,N-2,J))/FINONE(72,N-2,J)*100;
JZ2:=(FINONE(72,N-2,J)-FINONE(72,N-3,J))/FINONE(72,N-3,J)*100;
JZ3:=(FINONE(72,N-3,J)-FINONE(72,N-4,J))/FINONE(72,N-4,J)*100;
JZ4:=(FINONE(72,N-4,J)-FINONE(72,N-5,J))/FINONE(72,N-5,J)*100;
JZ5:=(FINONE(72,N-5,J)-FINONE(72,N-6,J))/FINONE(72,N-6,J)*100;
JZ6:=(FINONE(72,N-6,J)-FINONE(72,N-7,J))/FINONE(72,N-7,J)*100;
JZ7:=(FINONE(72,N-7,J)-FINONE(72,N-8,J))/FINONE(72,N-8,J)*100;
JZ8:=(FINONE(72,N-8,J)-FINONE(72,N-9,J))/FINONE(72,N-9,J)*100;
JZ9:=(FINONE(72,N-9,J)-FINONE(72,N-10,J))/FINONE(72,N-10,J)*100;
增H:=IF(JZ0=W,0,JZ0)+IF(JZ1=W,0,JZ1)+IF(JZ2=W,0,JZ2)+IF(JZ3=W,0,JZ3)+IF(JZ4=W,0,JZ4)+IF(JZ5=W,0,JZ5)+IF(JZ6=W,0,JZ6)+IF(JZ7=W,0,JZ7)+IF(JZ8=W,0,JZ8)+IF(JZ9=W,0,JZ9);

{产增}
CZ0:=(C0-C1)/C1*100;
CZ1:=(C1-C2)/C2*100;
CZ2:=(C2-C3)/C3*100;
CZ3:=(C3-C4)/C4*100;
CZ4:=(C4-C5)/C5*100;
CZ5:=(C5-C6)/C6*100;
CZ6:=(C6-C7)/C7*100;
CZ7:=(C7-C8)/C8*100;
CZ8:=(C8-C9)/C9*100;
CZ9:=(C9-C10)/C10*100;
{股本增}
G0:=FINONE(238,N-0,J);
G1:=FINONE(238,N-1,J);
G2:=FINONE(238,N-2,J);
G3:=FINONE(238,N-3,J);
G4:=FINONE(238,N-4,J);
G5:=FINONE(238,N-5,J);
G6:=FINONE(238,N-6,J);
G7:=FINONE(238,N-7,J);
G8:=FINONE(238,N-8,J);
G9:=FINONE(238,N-9,J);
G10:=FINONE(238,N-10,J);
GZ0:=(G0-G1)/G1*100;
GZ1:=(G1-G2)/G2*100;
GZ2:=(G2-G3)/G3*100;
GZ3:=(G3-G4)/G4*100;
GZ4:=(G4-G5)/G5*100;
GZ5:=(G5-G6)/G6*100;
GZ6:=(G6-G7)/G7*100;
GZ7:=(G7-G8)/G8*100;
GZ8:=(G8-G9)/G9*100;
GZ9:=(G9-G10)/G10*100;
{受限}
SX0:=IF(FINONE(267,N-0,J)=W,0,FINONE(267,N-0,J))/G0*100;
SX1:=IF(FINONE(267,N-1,J)=W,0,FINONE(267,N-1,J))/G1*100;
SX2:=IF(FINONE(267,N-2,J)=W,0,FINONE(267,N-2,J))/G2*100;
SX3:=IF(FINONE(267,N-3,J)=W,0,FINONE(267,N-3,J))/G3*100;
SX4:=IF(FINONE(267,N-4,J)=W,0,FINONE(267,N-4,J))/G4*100;
SX5:=IF(FINONE(267,N-5,J)=W,0,FINONE(267,N-5,J))/G5*100;
SX6:=IF(FINONE(267,N-6,J)=W,0,FINONE(267,N-6,J))/G6*100;
SX7:=IF(FINONE(267,N-7,J)=W,0,FINONE(267,N-7,J))/G7*100;
SX8:=IF(FINONE(267,N-8,J)=W,0,FINONE(267,N-8,J))/G8*100;
SX9:=IF(FINONE(267,N-9,J)=W,0,FINONE(267,N-9,J))/G9*100;

KG0:=IF(FINONE(243,N-0,J)=W,0,FINONE(243,N-0,J))/G0*100;
KG1:=IF(FINONE(243,N-1,J)=W,0,FINONE(243,N-1,J))/G1*100;
KG2:=IF(FINONE(243,N-2,J)=W,0,FINONE(243,N-2,J))/G2*100;
KG3:=IF(FINONE(243,N-3,J)=W,0,FINONE(243,N-3,J))/G3*100;
KG4:=IF(FINONE(243,N-4,J)=W,0,FINONE(243,N-4,J))/G4*100;
SD0:=IF(FINONE(245,N-0,J)=W,0,FINONE(245,N-0,J))/G0*100;
SD1:=IF(FINONE(245,N-1,J)=W,0,FINONE(245,N-1,J))/G1*100;
SD2:=IF(FINONE(245,N-2,J)=W,0,FINONE(245,N-2,J))/G2*100;
SD3:=IF(FINONE(245,N-3,J)=W,0,FINONE(245,N-3,J))/G3*100;
SD4:=IF(FINONE(245,N-4,J)=W,0,FINONE(245,N-4,J))/G4*100;

CG0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ0,0),' _'),STRCAT(CON2STR(CZ0,0),' _')),STRCAT(CON2STR(GZ0,0),' || ')),STRCAT(CON2STR(SX0,0),'_')),STRCAT(CON2STR(KG0,1),''));
CG1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ1,0),' _'),STRCAT(CON2STR(CZ1,0),' _')),STRCAT(CON2STR(GZ1,0),' || ')),STRCAT(CON2STR(SX1,0),'_')),STRCAT(CON2STR(KG1,1),''));
CG2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ2,0),' _'),STRCAT(CON2STR(CZ2,0),' _')),STRCAT(CON2STR(GZ2,0),' || ')),STRCAT(CON2STR(SX2,0),'_')),STRCAT(CON2STR(KG2,1),''));
CG3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ3,0),' _'),STRCAT(CON2STR(CZ3,0),' _')),STRCAT(CON2STR(GZ3,0),' || ')),STRCAT(CON2STR(SX3,0),'_')),STRCAT(CON2STR(KG3,1),''));
CG4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ4,0),' _'),STRCAT(CON2STR(CZ4,0),' _')),STRCAT(CON2STR(GZ4,0),' || ')),STRCAT(CON2STR(SX4,0),'_')),STRCAT(CON2STR(KG4,1),''));
CG5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ5,0),' _'),STRCAT(CON2STR(CZ5,0),' _')),STRCAT(CON2STR(GZ5,0),' || ')),STRCAT(CON2STR(SX5,0),'_(')),STRCAT(CON2STR(SD0,1),')'));
CG6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ6,0),' _'),STRCAT(CON2STR(CZ6,0),' _')),STRCAT(CON2STR(GZ6,0),' || ')),STRCAT(CON2STR(SX6,0),'_(')),STRCAT(CON2STR(SD1,1),')'));
CG7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ7,0),' _'),STRCAT(CON2STR(CZ7,0),' _')),STRCAT(CON2STR(GZ7,0),' || ')),STRCAT(CON2STR(SX7,0),'_(')),STRCAT(CON2STR(SD2,1),')'));
CG8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ8,0),' _'),STRCAT(CON2STR(CZ8,0),' _')),STRCAT(CON2STR(GZ8,0),' || ')),STRCAT(CON2STR(SX8,0),'_(')),STRCAT(CON2STR(SD3,1),')'));
CG9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(JZ9,0),' _'),STRCAT(CON2STR(CZ9,0),' _')),STRCAT(CON2STR(GZ9,0),' || ')),STRCAT(CON2STR(SX9,0),'_(')),STRCAT(CON2STR(SD4,1),')'));

JG0:=FINONE(247,N-0,J)/FINONE(238,N-0,J)*100;
JG1:=FINONE(247,N-1,J)/FINONE(238,N-1,J)*100;
JG2:=FINONE(247,N-2,J)/FINONE(238,N-2,J)*100;
{机构持比}DRAWTEXT_FIX(1 ,0.366,0.035,1,STRCAT(STRCAT(STRCAT('J构 : ',STRCAT(CON2STR(JG0,0),' ')),STRCAT(CON2STR(JG1,0),' ')),STRCAT(CON2STR(JG2,0),' ')) ),COLOR969696;

SRZ:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT('复增 : ',CON2STR(复0,0)),STRCAT(' ',CON2STR(复1,0))),STRCAT(' ',CON2STR(复2,0))),STRCAT(' ',CON2STR(复3,0))),STRCAT(' ',CON2STR(复4,0))),STRCAT(' ',CON2STR(复5,0))),STRCAT(' ',CON2STR(复6,0))),STRCAT(' ',CON2STR(复7,0)));
DLZ:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT('',CON2STR(增0,0)),STRCAT(' ',CON2STR(增1,0))),STRCAT(' ',CON2STR(增2,0))),STRCAT(' ',CON2STR(增3,0))),STRCAT(' ',CON2STR(增4,0))),STRCAT(' ',CON2STR(增5,0))),STRCAT(' ',CON2STR(增6,0))),STRCAT(' ',CON2STR(增7,0)));
DRAWTEXT_FIX(1 ,0.002,0.035,0,STRCAT(STRCAT(SRZ,'    【净Z  '),STRCAT(CON2STR(增H,0),'】') ) ),COLOR969696;{142}
DRAWTEXT_FIX(1 ,0.028,0.056,0,DLZ),COLOR969696;{142}
DRAWTEXT_FIX(1 ,-0.01,0.083,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-0,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR( SB*100,0),'  ')),STRCAT(CON2STR(LBB*100,0),'【')),STRCAT(CON2STR(DZ0,0),' /  ')),STRCAT(CON2STR(ZZ0,0),'】')),BFZ0),DML0) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.111,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-1,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR1*100,0),'  ')),STRCAT(CON2STR(LR1*100,0),'【')),STRCAT(CON2STR(DZ1,0),' /  ')),STRCAT(CON2STR(ZZ1,0),'】')),BFZ1),DML1) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.139,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-2,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR2*100,0),'  ')),STRCAT(CON2STR(LR2*100,0),'【')),STRCAT(CON2STR(DZ2,0),' /  ')),STRCAT(CON2STR(ZZ2,0),'】')),BFZ2),DML2) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.167,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-3,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR3*100,0),'  ')),STRCAT(CON2STR(LR3*100,0),'【')),STRCAT(CON2STR(DZ3,0),' /  ')),STRCAT(CON2STR(ZZ3,0),'】')),BFZ3),DML3) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.195,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-4,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR4*100,0),'  ')),STRCAT(CON2STR(LR4*100,0),'【')),STRCAT(CON2STR(DZ4,0),' /  ')),STRCAT(CON2STR(ZZ4,0),'】')),BFZ4),DML4) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.223,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-5,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR5*100,0),'  ')),STRCAT(CON2STR(LR5*100,0),'【')),STRCAT(CON2STR(DZ5,0),' /  ')),STRCAT(CON2STR(ZZ5,0),'】')),BFZ5),DML5) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.251,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-6,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR6*100,0),'  ')),STRCAT(CON2STR(LR6*100,0),'【')),STRCAT(CON2STR(DZ6,0),' /  ')),STRCAT(CON2STR(ZZ6,0),'】')),BFZ6),DML6) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.279,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-7,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR7*100,0),'  ')),STRCAT(CON2STR(LR7*100,0),'【')),STRCAT(CON2STR(DZ7,0),' /  ')),STRCAT(CON2STR(ZZ7,0),'】')),BFZ7),DML7) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.307,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-8,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR8*100,0),'  ')),STRCAT(CON2STR(LR8*100,0),'【')),STRCAT(CON2STR(DZ8,0),' /  ')),STRCAT(CON2STR(ZZ8,0),'】')),BFZ8),DML8) ),COLOR969696;
DRAWTEXT_FIX(1 ,-0.01,0.335,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(N-9,0),'.'),STRCAT(CON2STR(JJ,0),' | ')),STRCAT(CON2STR(SR9*100,0),'  ')),STRCAT(CON2STR(LR9*100,0),'【')),STRCAT(CON2STR(DZ9,0),' /  ')),STRCAT(CON2STR(ZZ9,0),'】')),BFZ9),DML9) ),COLOR969696;

DRAWTEXT_FIX(1 ,0.546,0.035,0,STRCAT('币  票  账  损 / 预息应 / 衍  期  它 ( 流 )  垫  投 / 固  形  它  虚 ( 非 )',' 盈注公权 |账损/虚|  净产股58/68 | 限控') ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.083,0,STRCAT(STRCAT(STRCAT(LH0,FLH0),QY0),CG0) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.111,0,STRCAT(STRCAT(STRCAT(LH1,FLH1),QY1),CG1) ),COLOR969696;{142}
DRAWTEXT_FIX(1 ,0.546,0.139,0,STRCAT(STRCAT(STRCAT(LH2,FLH2),QY2),CG2) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.167,0,STRCAT(STRCAT(STRCAT(LH3,FLH3),QY3),CG3) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.195,0,STRCAT(STRCAT(STRCAT(LH4,FLH4),QY4),CG4) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.223,0,STRCAT(STRCAT(STRCAT(LH5,FLH5),QY5),CG5) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.251,0,STRCAT(STRCAT(STRCAT(LH6,FLH6),QY6),CG6) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.279,0,STRCAT(STRCAT(STRCAT(LH7,FLH7),QY7),CG7) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.307,0,STRCAT(STRCAT(STRCAT(LH8,FLH8),QY8),CG8) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.546,0.335,0,STRCAT(STRCAT(STRCAT(LH9,FLH9),QY9),CG9) ),COLOR969696;

{风格指数}DRAWTEXT_FIX(1 ,0.398,0.003,0,STRCAT(STRCAT(FGBLOCK,''),STRCAT(' ____ ',ZSBLOCK))),COLORAAAAAA;
{转本}DRAWTEXT_FIX(1 ,0.005,0.917,0, '25.39 30.49 40.70 50.72 60.72 70.74 80.74' ),COLOR6A6A6A;
{转本}DRAWTEXT_FIX(1 ,0.005,0.945,0, '90.76 100.78 120.80 // 20.30 15.40 13.45 12.50' ),COLOR6A6A6A;
{概念.年.公.域}DRAWTEXT_FIX(1 ,0.791,0.945,1,STRCAT(STRCAT(STRCAT(STRCAT( STRCAT('【 ',GNBLOCK ),'】 '),STRCAT(CON2STR(FINANCE(42)/365,2),' 年公 ')),CON2STR(FINONE(65,0,0)/CONST(FINONE(238,0,0)),2)),STRCAT(' ',DYBLOCK)) ),COLOR969696;
{主业}DRAWTEXT_FIX(1 ,0.005,1.000,0,EXTERNSTR(0,1)),COLORAAAAAA;

亿:=100000000;
DRAWRECTREL(999,999,478,975,RGB(1,1,1));
NOTEXT_股本:DRAWRECTREL(480+MIN(120,IF(CONST(FINANCE(1))=DRAWNULL,0,CONST(FINANCE(1)))/亿/10*120),996,480,972,RGB(0,85,160));
NOTEXT_方框:DRAWRECTREL(480,972,600,996,RGB(0,0,0));
NOTEXT_年数:DRAWRECTREL(482+MIN(120,FINANCE(42)/3650*120),981,478+MIN(120,FINANCE(42)/3650*120),972,RGB(175,175,175));
NOTEXT_市值:DRAWRECTREL(480+MIN(120,FINANCE(41)/亿/100*120),974,480,972,RGB(202,202,0));
NOTEXT_销售:DRAWRECTREL(480+MIN(120,IF(FINONE(74,0,0)/ SB =DRAWNULL,0,FINONE(74,0,0)/ SB )/亿/100*120),999,480,998,RGB(234,0,0));
NOTEXT_市净:DRAWRECTREL(483+MIN(120,MAX(1,CONST(CLOSE)/FINANCE(34)/10*120)),994,477+MIN(120,MAX(1,CONST(CLOSE)/FINANCE(34)/10*120)),982,RGB(0,159,0));
NOTEXT_净资:DRAWRECTREL(482+MIN(120,MAX(1,FINANCE(34)/10*120)),994,478+MIN(120,MAX(1,FINANCE(34)/10*120)),984,RGB(191,0,0));

NOTEXT_K线:DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
利率:=(3.0)*1;
合理市净:=  (收/ (MAX(40,债)/(40/利率)) +利/利率)/2;
最低增长:=1+(收/ (MAX(40,债)/(40/利率)) +利/利率)/2/100;
当年:=FINANCE(34)*合理市净;
未一:=FINANCE(34)*最低增长*合理市净;
未二:=FINANCE(34)*最低增长*最低增长*合理市净;
{合理PB}DRAWTEXT_FIX(1 ,0.830,0.945,0,STRCAT(STRCAT(STRCAT('PB: ',CON2STR(合理市净,2)),STRCAT('  ￥',CON2STR(当年,2))),STRCAT('  ￥',CON2STR(未一,2)) ) ),COLOR007500;

商誉A:=IF(FINONE(35,0,0)=DRAWNULL,0,FINONE(35,0,0));
商誉B:=CON2STR(商誉A/亿,IF(商誉A/亿>1000,0,IF(商誉A/亿>100,1,2)));
{商誉}DRAWTEXT_FIX(1 ,0.948,0.945,0,STRCAT('虚: ',商誉B)),COLORFFAA55;

{PBE字}DRAWTEXT_FIX(1 ,0.606,1.000,0,STRCAT(STRCAT('PBE: ',IF(PB>HYSJL*1.2,'       ','____')),IF(PE>HYSYL*1.2,'',' _____')) ),COLOR00AA00;
{PBE}DRAWTEXT_FIX(1 ,0.628,0.975,0,STRCAT(STRCAT(STRCAT(CON2STR(HYSJL,2),'    '),STRCAT(CON2STR(HYSYL,2),' / ')),STRCAT(CON2STR(100/HYSYL,2),'')) ),COLOR00AA00;

市场:=IF(FINANCE(2)=1,'沪- ',IF(FINANCE(2)=0,'深- ',DRAWNULL));
品种:=IF(FINANCE(3)=0,'指数',IF(FINANCE(3)=1,'主板',IF(FINANCE(3)=2,'中小',IF(FINANCE(3)=3,'创业',IF(FINANCE(3)=4,'三板',IF(FINANCE(3)=5,'B股',IF(FINANCE(3)=6,'债券',IF(FINANCE(3)=7,'基金',DRAWNULL))))))));
{市.品.业}DRAWTEXT_FIX(1 ,0.791,1.000,1,STRCAT(STRCAT(STRCAT(市场,品种),' '),HYBLOCK) ),COLOR969696;

{收}DRAWTEXT_FIX(1 ,0.794,1.000,0,STRCAT('收: ',CON2STR(收,1))),COLOR00AA00;
{PB}DRAWTEXT_FIX(1 ,0.830,1.000,0,STRCAT(IF( IF(INBLOCK('融资融券'),1,0)!=0 ,'★ : ','PB: '),CON2STR(PB,2))),COLOR00AA00;

货币A:=IF(FINONE(8,0,0)=DRAWNULL,0,FINONE(8,0,0));
货币B:=CON2STR(货币A/亿,IF(货币A/亿>1000,0,IF(货币A/亿>100,1,2)));
{货币}DRAWTEXT_FIX(1 ,0.870,1.000,0,STRCAT('币: ',货币B)),COLORFFAA55;

指数流通:=CON2STR(INDEXA/( INDEXV/(FINANCE(7)/100) )/亿,0);
指数市值:=CON2STR(INDEXA/( INDEXV/(FINANCE(1)/100) )/亿,0);
个股流通:=CON2STR(C*FINANCE(7)/亿, IF(C*FINANCE(7)/亿>100,0,IF(C*FINANCE(7)/亿>10,1,2)) ){智能取小数位};
个股市值:=CON2STR(C*FINANCE(1)/亿, IF(C*FINANCE(1)/亿>100,0,IF(C*FINANCE(1)/亿>10,1,2)) ){智能取小数位};
{流总市值}DRAWTEXT_FIX(1 ,0.922,1.000,0,STRCAT(STRCAT(IF(FINANCE(3)=0,指数流通,个股流通), ' ‘ '),STRCAT(IF(FINANCE(3)=0,指数市值,个股市值), ' ’') )),COLOR969696;

AA:=(EMA(PJJ,9)+EMA(PJJ,10)+EMA(PJJ,11)+EMA(PJJ,12))/4;
BB:=REF(AA,1);
{
持股区:STICKLINE(AA>BB,AA,BB,4.5,0),COLOR008080;
空心:STICKLINE(AA>BB AND (AA-BB)<REF((AA-BB),1),AA,BB,4.5,1),COLOR009595;
持币区:STICKLINE(AA<BB,AA,BB,4.5,0),COLORFF6A6A;
实心:STICKLINE(AA<BB AND (AA-BB)>REF((AA-BB),1),AA,BB,4.5,1),COLORFF6A6A;
}
NOTEXT_MA60:MA(CLOSE,55),COLORFFB56A,DOTLINE;
NOTEXT_MA30:MA(CLOSE,30),COLOR00FF00;
NOTEXT_MA9:MA(CLOSE,10)-((AA-BB)*0.06),COLOR00EAEA;
NOTEXT_MA10:MA(CLOSE,10),COLOR00EAEA;
NOTEXT_MA5:MA(CLOSE,5),COLORFFFFFF;

{
NOTEXT_紫叉:IF(L<=REF(LB,1),REF(LB,1),DRAWNULL),CROSSDOT,COLORFF00FF,LINETHICK2;
NOTEXT_绿叉:IF(H>=REF(HB,1),REF(HB,1),DRAWNULL),CROSSDOT,COLORGREEN,LINETHICK2;
}
NOTEXT_ZG:IF(BETWEEN(CURRBARSCOUNT,2,3),副顶,DRAWNULL),POINTDOT,COLORB9B9B9,LINETHICK4;
NOTEXT_卖点:IF(BETWEEN(CURRBARSCOUNT,2,3),卖,DRAWNULL),POINTDOT,COLORB9B9B9,LINETHICK4;
NOTEXT_买点:IF(BETWEEN(CURRBARSCOUNT,2,3),买,DRAWNULL),POINTDOT,COLORB9B9B9,LINETHICK4;
NOTEXT_ZD:IF(BETWEEN(CURRBARSCOUNT,2,3),副底,DRAWNULL),POINTDOT,COLORB9B9B9,LINETHICK4;

潘婷婷 · 发表于 2019-7-15 16:52

本帖最后由潘婷婷于 2019-7-15 16:54 编辑

上面是一个主图指标，因为字节数太多了，一次发不了，分了3次才

发完，各位如果没有问题就不要瞎发帖，多多加分也行，因为

我还要连载说明书图解的，记得用了就加分就行了。只是没有问题

就不要瞎发帖占楼。;

潘婷婷 · 发表于 2019-7-15 17:25

潘婷婷 · 发表于 2019-7-15 17:44

潘婷婷 · 发表于 2019-7-15 17:51

记得加分，没发完的我会继续的，新建主图指标，起个名字，如"丫头”也行，反正丫头是谁都无所谓，无欲无求，

你咋乐意咋来好了，取个名字，将1，2，3楼复制粘贴进去就能通过，无需改什么，只是别忘了每个季度要下载财务数据，

否则季度数不会更新的，季度或跨年都是自动判断的。

潘婷婷 · 发表于 2019-7-15 17:56

本帖最后由潘婷婷于 2019-7-15 22:09 编辑

看看你以前选了多少垃圾公司还来丫头这里炫耀，丫头要把你说的心服口服。

潘婷婷 · 发表于 2019-7-15 18:10

本帖最后由潘婷婷于 2019-7-15 18:36 编辑

拿东东卖钱的，丫头不再乎，这是迄今全网最全最快的基本面分析指标，希望各位版主给丫头加加分，加加分而已，想装高深莫测的丫头也不参合打搅，说不定哪天丫头就不在这了，

高深的丫头不会，这个指标丫头自己写的还能解释，欢迎版主提出具有代表性质的问题。丫头尽力解答。丫头不图你们什么，装高深的对待丫头无效，包括那个什么书呆子版主以前

也玩过好多垃圾股，丫头一看就知道是专业技术形态类的人物，你要装高深了，不问的话，那咋传承，有违丫头初衷。

版主们多多加分，

还有一个主图叠加指标，

还有一个基本面选股指标，

丫头会不图你什么的发出来的。等着。

哪天丫头不啰嗦了，各位就不顶贴，让此贴下沉，贴沉了指标就只被少数人用，用不着也可以做个参考，然后哪天如果你也离开又记起了丫头，就借你手帮忙顶一顶，传承一下。

那个版主惜玉技术挺牛，盘感没的说，知道些基本面也不相矛盾的，记得用过给丫头加加分，带个头低调一下，不高深。

sieft · 发表于 2019-7-15 18:18

{PBE字}DRAWTEXT_FIX(1 ,0.606,1.000,0,STRCAT(STRCAT(48,IF(PB>HYSJL*1.2,49,50)),IF(PE>HYSYL*1.2,31,51)) ),COLOR00AA00
详细信息 : 未知字符串 (GJ5,
错误起始位置 : -15225 ; 长度: 5

潘婷婷 · 发表于 2019-7-15 18:23

本帖最后由潘婷婷于 2019-7-15 18:34 编辑

sieft 发表于 2019-7-15 18:18
{PBE字}DRAWTEXT_FIX(1 ,0.606,1.000,0,STRCAT(STRCAT(48,IF(PB>HYSJL*1.2,49,50)),IF(PE>HYSYL*1.2,31,51) ...

不会吧，直接可通过的，还有谁能过不？

这位朋友，因为这个指标较大，你一个新建指标就只能容纳丫头这一个指标，如果你加进你所用的指标里面那么就超过语句1500，或是

字节数过大无法通过。指标是有大小或语句限制的，你只有用过超大指标才知道，并且还有一个同等大的指标主图叠加才完整，我会以后发出的。

然后电脑处理器最好要够快模拟四核或原生四核的都行否则运行卡，还有屏幕要大于22寸的否则拥挤了看不清。

潘婷婷 · 发表于 2019-7-15 21:53

潘婷婷 · 发表于 2019-7-15 21:59

本帖最后由潘婷婷于 2019-7-15 22:02 编辑

也就是说，这个指标要新建幅图指标，但是幅图无法使用，要鼠标在主图上反键，然后主图指标，然后叠加其他指标，然后就选你新建指标的名称。
新建指标，幅图，取个名字，然后粘贴下面的指标。同样超级大占用3层楼，一个指标。

NF:=0;{-20,0,这地方可以设成参数-1年就是之前一年}
JD:=0;{0,4,这地方1234个季度手动回看，0默认是自动}
几季:=
IF( FINONE(74,YEAR,1231)+FINONE(74,YEAR,930)+FINONE(74,YEAR,630)+FINONE(74,YEAR,331) !=DRAWNULL,4,
IF( FINONE(74,YEAR,930)+FINONE(74,YEAR,630)+FINONE(74,YEAR,331) !=DRAWNULL,3,
IF( FINONE(74,YEAR,630)+FINONE(74,YEAR,331) !=DRAWNULL,2,
IF( FINONE(74,YEAR,331) !=DRAWNULL,1,FINANCE(37) ))));
季值:=IF(几季=4,1231,IF(几季=3,930,IF(几季=2,630,331)));
JJ:=IF(PERIOD=11,4,IF(JD=0,几季,JD));
J{值}:=IF(PERIOD=11,1231,IF(JD=0,季值,IF(JD=4,1231,IF(JD=3,930,IF(JD=2,630,331)))));
{年}N:=IF(FINONE(40,YEAR+NF,季值)=DRAWNULL,YEAR+NF-1,YEAR+NF);
W:=DRAWNULL;

{总资产}
C0:=FINONE(40,N-0,J);
C1:=FINONE(40,N-1,J);
C2:=FINONE(40,N-2,J);
C3:=FINONE(40,N-3,J);
C4:=FINONE(40,N-4,J);
C5:=FINONE(40,N-5,J);
C6:=FINONE(40,N-6,J);
C7:=FINONE(40,N-7,J);
C8:=FINONE(40,N-8,J);
C9:=FINONE(40,N-9,J);
{投现.投净额}
TX0:=FINONE(119,N-0,J)/C0*100;
TX1:=FINONE(119,N-1,J)/C1*100;
TX2:=FINONE(119,N-2,J)/C2*100;
TX3:=FINONE(119,N-3,J)/C3*100;
TX4:=FINONE(119,N-4,J)/C4*100;
TX5:=FINONE(119,N-5,J)/C5*100;
TX6:=FINONE(119,N-6,J)/C6*100;
TX7:=FINONE(119,N-7,J)/C7*100;
TX8:=FINONE(119,N-8,J)/C8*100;
TX9:=FINONE(119,N-9,J)/C9*100;
{投流入}
TR0:=FINONE(113,N-0,J)/C0*100;
TR1:=FINONE(113,N-1,J)/C1*100;
TR2:=FINONE(113,N-2,J)/C2*100;
TR3:=FINONE(113,N-3,J)/C3*100;
TR4:=FINONE(113,N-4,J)/C4*100;
TR5:=FINONE(113,N-5,J)/C5*100;
TR6:=FINONE(113,N-6,J)/C6*100;
TR7:=FINONE(113,N-7,J)/C7*100;
TR8:=FINONE(113,N-8,J)/C8*100;
TR9:=FINONE(113,N-9,J)/C9*100;
{投流出}
TC0:=-FINONE(118,N-0,J)/C0*100;
TC1:=-FINONE(118,N-1,J)/C1*100;
TC2:=-FINONE(118,N-2,J)/C2*100;
TC3:=-FINONE(118,N-3,J)/C3*100;
TC4:=-FINONE(118,N-4,J)/C4*100;
TC5:=-FINONE(118,N-5,J)/C5*100;
TC6:=-FINONE(118,N-6,J)/C6*100;
TC7:=-FINONE(118,N-7,J)/C7*100;
TC8:=-FINONE(118,N-8,J)/C8*100;
TC9:=-FINONE(118,N-9,J)/C9*100;
{购建取得子公司及其他营业单位}
GQ0:=-(FINONE(114,N-0,J)+FINONE(116,N-0,J))/C0*100;
GQ1:=-(FINONE(114,N-1,J)+FINONE(116,N-1,J))/C1*100;
GQ2:=-(FINONE(114,N-2,J)+FINONE(116,N-2,J))/C2*100;
GQ3:=-(FINONE(114,N-3,J)+FINONE(116,N-3,J))/C3*100;
GQ4:=-(FINONE(114,N-4,J)+FINONE(116,N-4,J))/C4*100;
GQ5:=-(FINONE(114,N-5,J)+FINONE(116,N-5,J))/C5*100;
GQ6:=-(FINONE(114,N-6,J)+FINONE(116,N-6,J))/C6*100;
GQ7:=-(FINONE(114,N-7,J)+FINONE(116,N-7,J))/C7*100;
GQ8:=-(FINONE(114,N-8,J)+FINONE(116,N-8,J))/C8*100;
GQ9:=-(FINONE(114,N-9,J)+FINONE(116,N-9,J))/C9*100;

{筹现.吸投资}
XT0:=FINONE(120,N-0,J)/C0*100;
XT1:=FINONE(120,N-1,J)/C1*100;
XT2:=FINONE(120,N-2,J)/C2*100;
XT3:=FINONE(120,N-3,J)/C3*100;
XT4:=FINONE(120,N-4,J)/C4*100;
XT5:=FINONE(120,N-5,J)/C5*100;
XT6:=FINONE(120,N-6,J)/C6*100;
XT7:=FINONE(120,N-7,J)/C7*100;
XT8:=FINONE(120,N-8,J)/C8*100;
XT9:=FINONE(120,N-9,J)/C9*100;
{取借款}
QJ0:=FINONE(121,N-0,J)/C0*100;
QJ1:=FINONE(121,N-1,J)/C1*100;
QJ2:=FINONE(121,N-2,J)/C2*100;
QJ3:=FINONE(121,N-3,J)/C3*100;
QJ4:=FINONE(121,N-4,J)/C4*100;
QJ5:=FINONE(121,N-5,J)/C5*100;
QJ6:=FINONE(121,N-6,J)/C6*100;
QJ7:=FINONE(121,N-7,J)/C7*100;
QJ8:=FINONE(121,N-8,J)/C8*100;
QJ9:=FINONE(121,N-9,J)/C9*100;
{收其他}
SQ0:=FINONE(122,N-0,J)/C0*100;
SQ1:=FINONE(122,N-1,J)/C1*100;
SQ2:=FINONE(122,N-2,J)/C2*100;
SQ3:=FINONE(122,N-3,J)/C3*100;
SQ4:=FINONE(122,N-4,J)/C4*100;
SQ5:=FINONE(122,N-5,J)/C5*100;
SQ6:=FINONE(122,N-6,J)/C6*100;
SQ7:=FINONE(122,N-7,J)/C7*100;
SQ8:=FINONE(122,N-8,J)/C8*100;
SQ9:=FINONE(122,N-9,J)/C9*100;
{筹资入计}
CR0:=FINONE(123,N-0,J)/C0*100;
CR1:=FINONE(123,N-1,J)/C1*100;
CR2:=FINONE(123,N-2,J)/C2*100;
CR3:=FINONE(123,N-3,J)/C3*100;
CR4:=FINONE(123,N-4,J)/C4*100;
CR5:=FINONE(123,N-5,J)/C5*100;
CR6:=FINONE(123,N-6,J)/C6*100;
CR7:=FINONE(123,N-7,J)/C7*100;
CR8:=FINONE(123,N-8,J)/C8*100;
CR9:=FINONE(123,N-9,J)/C9*100;

{还债务}
HZ0:=FINONE(124,N-0,J)/C0*100;
HZ1:=FINONE(124,N-1,J)/C1*100;
HZ2:=FINONE(124,N-2,J)/C2*100;
HZ3:=FINONE(124,N-3,J)/C3*100;
HZ4:=FINONE(124,N-4,J)/C4*100;
HZ5:=FINONE(124,N-5,J)/C5*100;
HZ6:=FINONE(124,N-6,J)/C6*100;
HZ7:=FINONE(124,N-7,J)/C7*100;
HZ8:=FINONE(124,N-8,J)/C8*100;
HZ9:=FINONE(124,N-9,J)/C9*100;
{分股利利润利息}
FL0:=FINONE(125,N-0,J)/C0*100;
FL1:=FINONE(125,N-1,J)/C1*100;
FL2:=FINONE(125,N-2,J)/C2*100;
FL3:=FINONE(125,N-3,J)/C3*100;
FL4:=FINONE(125,N-4,J)/C4*100;
FL5:=FINONE(125,N-5,J)/C5*100;
FL6:=FINONE(125,N-6,J)/C6*100;
FL7:=FINONE(125,N-7,J)/C7*100;
FL8:=FINONE(125,N-8,J)/C8*100;
FL9:=FINONE(125,N-9,J)/C9*100;
{支其他筹}
ZQ0:=FINONE(126,N-0,J)/C0*100;
ZQ1:=FINONE(126,N-1,J)/C1*100;
ZQ2:=FINONE(126,N-2,J)/C2*100;
ZQ3:=FINONE(126,N-3,J)/C3*100;
ZQ4:=FINONE(126,N-4,J)/C4*100;
ZQ5:=FINONE(126,N-5,J)/C5*100;
ZQ6:=FINONE(126,N-6,J)/C6*100;
ZQ7:=FINONE(126,N-7,J)/C7*100;
ZQ8:=FINONE(126,N-8,J)/C8*100;
ZQ9:=FINONE(126,N-9,J)/C9*100;

CX0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT0,0),'  '),STRCAT(CON2STR(QJ0,0),' _ ')),STRCAT(CON2STR(ROUND(CR0-XT0-QJ0-SQ0),0),'  ')),STRCAT(CON2STR(SQ0,0),' / ')),STRCAT(CON2STR(HZ0,0),'  ')),STRCAT(CON2STR(FL0,0),'  ')),CON2STR(ZQ0,0));
CX1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT1,0),'  '),STRCAT(CON2STR(QJ1,0),' _ ')),STRCAT(CON2STR(ROUND(CR1-XT1-QJ1-SQ1),0),'  ')),STRCAT(CON2STR(SQ1,0),' / ')),STRCAT(CON2STR(HZ1,0),'  ')),STRCAT(CON2STR(FL1,0),'  ')),CON2STR(ZQ1,0));
CX2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT2,0),'  '),STRCAT(CON2STR(QJ2,0),' _ ')),STRCAT(CON2STR(ROUND(CR2-XT2-QJ2-SQ2),0),'  ')),STRCAT(CON2STR(SQ2,0),' / ')),STRCAT(CON2STR(HZ2,0),'  ')),STRCAT(CON2STR(FL2,0),'  ')),CON2STR(ZQ2,0));
CX3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT3,0),'  '),STRCAT(CON2STR(QJ3,0),' _ ')),STRCAT(CON2STR(ROUND(CR3-XT3-QJ3-SQ3),0),'  ')),STRCAT(CON2STR(SQ3,0),' / ')),STRCAT(CON2STR(HZ3,0),'  ')),STRCAT(CON2STR(FL3,0),'  ')),CON2STR(ZQ3,0));
CX4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT4,0),'  '),STRCAT(CON2STR(QJ4,0),' _ ')),STRCAT(CON2STR(ROUND(CR4-XT4-QJ4-SQ4),0),'  ')),STRCAT(CON2STR(SQ4,0),' / ')),STRCAT(CON2STR(HZ4,0),'  ')),STRCAT(CON2STR(FL4,0),'  ')),CON2STR(ZQ4,0));
CX5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT5,0),'  '),STRCAT(CON2STR(QJ5,0),' _ ')),STRCAT(CON2STR(ROUND(CR5-XT5-QJ5-SQ5),0),'  ')),STRCAT(CON2STR(SQ5,0),' / ')),STRCAT(CON2STR(HZ5,0),'  ')),STRCAT(CON2STR(FL5,0),'  ')),CON2STR(ZQ5,0));
CX6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT6,0),'  '),STRCAT(CON2STR(QJ6,0),' _ ')),STRCAT(CON2STR(ROUND(CR6-XT6-QJ6-SQ6),0),'  ')),STRCAT(CON2STR(SQ6,0),' / ')),STRCAT(CON2STR(HZ6,0),'  ')),STRCAT(CON2STR(FL6,0),'  ')),CON2STR(ZQ6,0));
CX7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT7,0),'  '),STRCAT(CON2STR(QJ7,0),' _ ')),STRCAT(CON2STR(ROUND(CR7-XT7-QJ7-SQ7),0),'  ')),STRCAT(CON2STR(SQ7,0),' / ')),STRCAT(CON2STR(HZ7,0),'  ')),STRCAT(CON2STR(FL7,0),'  ')),CON2STR(ZQ7,0));
CX8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT8,0),'  '),STRCAT(CON2STR(QJ8,0),' _ ')),STRCAT(CON2STR(ROUND(CR8-XT8-QJ8-SQ8),0),'  ')),STRCAT(CON2STR(SQ8,0),' / ')),STRCAT(CON2STR(HZ8,0),'  ')),STRCAT(CON2STR(FL8,0),'  ')),CON2STR(ZQ8,0));
CX9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT( STRCAT(CON2STR(XT9,0),'  '),STRCAT(CON2STR(QJ9,0),' _ ')),STRCAT(CON2STR(ROUND(CR9-XT9-QJ9-SQ9),0),'  ')),STRCAT(CON2STR(SQ9,0),' / ')),STRCAT(CON2STR(HZ9,0),'  ')),STRCAT(CON2STR(FL9,0),'  ')),CON2STR(ZQ9,0));

DRAWTEXT_FIX(1 ,0.398,0.035,0,'|投入出  G取 | 股借  券它 / 偿分它|'),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.083,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX0,0),' '),STRCAT(CON2STR(TR0,0),'  ')),STRCAT(CON2STR(TC0,0),'  ')),STRCAT(CON2STR(GQ0,0),' |  ')),CX0) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.111,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX1,0),' '),STRCAT(CON2STR(TR1,0),'  ')),STRCAT(CON2STR(TC1,0),'  ')),STRCAT(CON2STR(GQ1,0),' |  ')),CX1) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.139,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX2,0),' '),STRCAT(CON2STR(TR2,0),'  ')),STRCAT(CON2STR(TC2,0),'  ')),STRCAT(CON2STR(GQ2,0),' |  ')),CX2) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.167,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX3,0),' '),STRCAT(CON2STR(TR3,0),'  ')),STRCAT(CON2STR(TC3,0),'  ')),STRCAT(CON2STR(GQ3,0),' |  ')),CX3) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.195,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX4,0),' '),STRCAT(CON2STR(TR4,0),'  ')),STRCAT(CON2STR(TC4,0),'  ')),STRCAT(CON2STR(GQ4,0),' |  ')),CX4) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.223,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX5,0),' '),STRCAT(CON2STR(TR5,0),'  ')),STRCAT(CON2STR(TC5,0),'  ')),STRCAT(CON2STR(GQ5,0),' |  ')),CX5) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.251,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX6,0),' '),STRCAT(CON2STR(TR6,0),'  ')),STRCAT(CON2STR(TC6,0),'  ')),STRCAT(CON2STR(GQ6,0),' |  ')),CX6) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.279,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX7,0),' '),STRCAT(CON2STR(TR7,0),'  ')),STRCAT(CON2STR(TC7,0),'  ')),STRCAT(CON2STR(GQ7,0),' |  ')),CX7) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.307,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX8,0),' '),STRCAT(CON2STR(TR8,0),'  ')),STRCAT(CON2STR(TC8,0),'  ')),STRCAT(CON2STR(GQ8,0),' |  ')),CX8) ),COLOR969696;
DRAWTEXT_FIX(1 ,0.398,0.335,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(TX9,0),' '),STRCAT(CON2STR(TR9,0),'  ')),STRCAT(CON2STR(TC9,0),'  ')),STRCAT(CON2STR(GQ9,0),' |  ')),CX9) ),COLOR969696;

{收比}
收1:=FINONE(74,N-1,季值)/ABS(FINONE(74,N-1,1231));
收2:=FINONE(74,N-2,季值)/ABS(FINONE(74,N-2,1231));
收3:=FINONE(74,N-3,季值)/ABS(FINONE(74,N-3,1231));
收4:=FINONE(74,N-4,季值)/ABS(FINONE(74,N-4,1231));
收5:=FINONE(74,N-5,季值)/ABS(FINONE(74,N-5,1231));
收6:=FINONE(74,N-6,季值)/ABS(FINONE(74,N-6,1231));
收7:=FINONE(74,N-7,季值)/ABS(FINONE(74,N-7,1231));
收8:=FINONE(74,N-8,季值)/ABS(FINONE(74,N-8,1231));
收9:=FINONE(74,N-9,季值)/ABS(FINONE(74,N-9,1231));
SR1:=IF(收1=DRAWNULL OR  收1<0,0,收1);
SR2:=IF(收2=DRAWNULL OR  收2<0,0,收2);
SR3:=IF(收3=DRAWNULL OR  收3<0,0,收3);
SR4:=IF(收4=DRAWNULL OR  收4<0,0,收4);
SR5:=IF(收5=DRAWNULL OR  收5<0,0,收5);
SR6:=IF(收6=DRAWNULL OR  收6<0,0,收6);
SR7:=IF(收7=DRAWNULL OR  收7<0,0,收7);
SR8:=IF(收8=DRAWNULL OR  收8<0,0,收8);
SR9:=IF(收9=DRAWNULL OR  收9<0,0,收9);
YX收:=IF(SR1=0,0,1)+IF(SR2=0,0,1)+IF(SR3=0,0,1)+IF(SR4=0,0,1)+IF(SR5=0,0,1)+IF(SR6=0,0,1)+IF(SR7=0,0,1)+IF(SR8=0,0,1)+IF(SR9=0,0,1);
均收:=(SR1+SR2+SR3+SR4+SR5+SR6+SR7+SR8+SR9)/YX收;
收比:=IF(均收=DRAWNULL OR 均收=0,(几季/4),均收);

{单季}
SL:=232;NL:=96;
SL14:=FINONE(SL,YEAR-1,1231)/FINONE(NL,YEAR-1,1231);
SL24:=FINONE(SL,YEAR-2,1231)/FINONE(NL,YEAR-2,1231);
SL34:=FINONE(SL,YEAR-3,1231)/FINONE(NL,YEAR-3,1231);
SL44:=FINONE(SL,YEAR-4,1231)/FINONE(NL,YEAR-4,1231);
SL54:=FINONE(SL,YEAR-5,1231)/FINONE(NL,YEAR-5,1231);
SL64:=FINONE(SL,YEAR-6,1231)/FINONE(NL,YEAR-6,1231);
SL74:=FINONE(SL,YEAR-7,1231)/FINONE(NL,YEAR-7,1231);
SL84:=FINONE(SL,YEAR-8,1231)/FINONE(NL,YEAR-8,1231);
SL94:=FINONE(SL,YEAR-9,1231)/FINONE(NL,YEAR-9,1231);
S14:=IF(SL14=DRAWNULL,0,SL14);
S24:=IF(SL24=DRAWNULL,0,SL24);
S34:=IF(SL34=DRAWNULL,0,SL34);
S44:=IF(SL44=DRAWNULL,0,SL44);
S54:=IF(SL54=DRAWNULL,0,SL54);
S64:=IF(SL64=DRAWNULL,0,SL64);
S74:=IF(SL74=DRAWNULL,0,SL74);
S84:=IF(SL84=DRAWNULL,0,SL84);
S94:=IF(SL94=DRAWNULL,0,SL94);
YX4:=IF(S14=0,0,1)+IF(S24=0,0,1)+IF(S34=0,0,1)+IF(S44=0,0,1)+IF(S54=0,0,1)+IF(S64=0,0,1)+IF(S74=0,0,1)+IF(S84=0,0,1)+IF(S94=0,0,1);
DJ4:=(S14+S24+S34+S44+S54+S64+S74+S84+S94)/YX4;

SL13:=FINONE(SL,YEAR-1,930)/FINONE(NL,YEAR-1,1231);
SL23:=FINONE(SL,YEAR-2,930)/FINONE(NL,YEAR-2,1231);
SL33:=FINONE(SL,YEAR-3,930)/FINONE(NL,YEAR-3,1231);
SL43:=FINONE(SL,YEAR-4,930)/FINONE(NL,YEAR-4,1231);
SL53:=FINONE(SL,YEAR-5,930)/FINONE(NL,YEAR-5,1231);
SL63:=FINONE(SL,YEAR-6,930)/FINONE(NL,YEAR-6,1231);
SL73:=FINONE(SL,YEAR-7,930)/FINONE(NL,YEAR-7,1231);
SL83:=FINONE(SL,YEAR-8,930)/FINONE(NL,YEAR-8,1231);
SL93:=FINONE(SL,YEAR-9,930)/FINONE(NL,YEAR-9,1231);
S13:=IF(SL13=DRAWNULL,0,SL13);
S23:=IF(SL23=DRAWNULL,0,SL23);
S33:=IF(SL33=DRAWNULL,0,SL33);
S43:=IF(SL43=DRAWNULL,0,SL43);
S53:=IF(SL53=DRAWNULL,0,SL53);
S63:=IF(SL63=DRAWNULL,0,SL63);
S73:=IF(SL73=DRAWNULL,0,SL73);
S83:=IF(SL83=DRAWNULL,0,SL83);
S93:=IF(SL93=DRAWNULL,0,SL93);
YX3:=IF(S13=0,0,1)+IF(S23=0,0,1)+IF(S33=0,0,1)+IF(S43=0,0,1)+IF(S53=0,0,1)+IF(S63=0,0,1)+IF(S73=0,0,1)+IF(S83=0,0,1)+IF(S93=0,0,1);
DJ3:=(S13+S23+S33+S43+S53+S63+S73+S83+S93)/YX3;

SL12:=FINONE(SL,YEAR-1,630)/FINONE(NL,YEAR-1,1231);
SL22:=FINONE(SL,YEAR-2,630)/FINONE(NL,YEAR-2,1231);
SL32:=FINONE(SL,YEAR-3,630)/FINONE(NL,YEAR-3,1231);
SL42:=FINONE(SL,YEAR-4,630)/FINONE(NL,YEAR-4,1231);
SL52:=FINONE(SL,YEAR-5,630)/FINONE(NL,YEAR-5,1231);
SL62:=FINONE(SL,YEAR-6,630)/FINONE(NL,YEAR-6,1231);
SL72:=FINONE(SL,YEAR-7,630)/FINONE(NL,YEAR-7,1231);
SL82:=FINONE(SL,YEAR-8,630)/FINONE(NL,YEAR-8,1231);
SL92:=FINONE(SL,YEAR-9,630)/FINONE(NL,YEAR-9,1231);
S12:=IF(SL12=DRAWNULL,0,SL12);
S22:=IF(SL22=DRAWNULL,0,SL22);
S32:=IF(SL32=DRAWNULL,0,SL32);
S42:=IF(SL42=DRAWNULL,0,SL42);
S52:=IF(SL52=DRAWNULL,0,SL52);
S62:=IF(SL62=DRAWNULL,0,SL62);
S72:=IF(SL72=DRAWNULL,0,SL72);
S82:=IF(SL82=DRAWNULL,0,SL82);
S92:=IF(SL92=DRAWNULL,0,SL92);
YX2:=IF(S12=0,0,1)+IF(S22=0,0,1)+IF(S32=0,0,1)+IF(S42=0,0,1)+IF(S52=0,0,1)+IF(S62=0,0,1)+IF(S72=0,0,1)+IF(S82=0,0,1)+IF(S92=0,0,1);
DJ2:=(S12+S22+S32+S42+S52+S62+S72+S82+S92)/YX2;

SL11:=FINONE(SL,YEAR-1,331)/FINONE(NL,YEAR-1,1231);
SL21:=FINONE(SL,YEAR-2,331)/FINONE(NL,YEAR-2,1231);
SL31:=FINONE(SL,YEAR-3,331)/FINONE(NL,YEAR-3,1231);
SL41:=FINONE(SL,YEAR-4,331)/FINONE(NL,YEAR-4,1231);
SL51:=FINONE(SL,YEAR-5,331)/FINONE(NL,YEAR-5,1231);
SL61:=FINONE(SL,YEAR-6,331)/FINONE(NL,YEAR-6,1231);
SL71:=FINONE(SL,YEAR-7,331)/FINONE(NL,YEAR-7,1231);
SL81:=FINONE(SL,YEAR-8,331)/FINONE(NL,YEAR-8,1231);
SL91:=FINONE(SL,YEAR-9,331)/FINONE(NL,YEAR-9,1231);
S11:=IF(SL11=DRAWNULL,0,SL11);
S21:=IF(SL21=DRAWNULL,0,SL21);
S31:=IF(SL31=DRAWNULL,0,SL31);
S41:=IF(SL41=DRAWNULL,0,SL41);
S51:=IF(SL51=DRAWNULL,0,SL51);
S61:=IF(SL61=DRAWNULL,0,SL61);
S71:=IF(SL71=DRAWNULL,0,SL71);
S81:=IF(SL81=DRAWNULL,0,SL81);
S91:=IF(SL91=DRAWNULL,0,SL91);
YX1:=IF(S11=0,0,1)+IF(S21=0,0,1)+IF(S31=0,0,1)+IF(S41=0,0,1)+IF(S51=0,0,1)+IF(S61=0,0,1)+IF(S71=0,0,1)+IF(S81=0,0,1)+IF(S91=0,0,1);
DJ1:=(S11+S21+S31+S41+S51+S61+S71+S81+S91)/YX1;

J4:=1231;
J3:=930;
J2:=630;
J1:=331;
DC:=FINONE(40,N-0,季值);
DG:=FINONE(238,N-0,季值);
{每股收益}
C04:=FINONE(40,N-0,J4); C03:=FINONE(40,N-0,J3); C02:=FINONE(40,N-0,J2); C01:=FINONE(40,N-0,J1);
C14:=FINONE(40,N-1,J4); C13:=FINONE(40,N-1,J3); C12:=FINONE(40,N-1,J2); C11:=FINONE(40,N-1,J1);
C24:=FINONE(40,N-2,J4); C23:=FINONE(40,N-2,J3); C22:=FINONE(40,N-2,J2); C21:=FINONE(40,N-2,J1);
C34:=FINONE(40,N-3,J4); C33:=FINONE(40,N-3,J3); C32:=FINONE(40,N-3,J2); C31:=FINONE(40,N-3,J1);
C44:=FINONE(40,N-4,J4); C43:=FINONE(40,N-4,J3); C42:=FINONE(40,N-4,J2); C41:=FINONE(40,N-4,J1);
C54:=FINONE(40,N-5,J4); C53:=FINONE(40,N-5,J3); C52:=FINONE(40,N-5,J2); C51:=FINONE(40,N-5,J1);
C64:=FINONE(40,N-6,J4); C63:=FINONE(40,N-6,J3); C62:=FINONE(40,N-6,J2); C61:=FINONE(40,N-6,J1);
C74:=FINONE(40,N-7,J4); C73:=FINONE(40,N-7,J3); C72:=FINONE(40,N-7,J2); C71:=FINONE(40,N-7,J1);
C84:=FINONE(40,N-8,J4); C83:=FINONE(40,N-8,J3); C82:=FINONE(40,N-8,J2); C81:=FINONE(40,N-8,J1);
C94:=FINONE(40,N-9,J4); C93:=FINONE(40,N-9,J3); C92:=FINONE(40,N-9,J2); C91:=FINONE(40,N-9,J1);

L04:=FINONE(96,N-0,J4); L03:=FINONE(96,N-0,J3); L02:=FINONE(96,N-0,J2); L01:=FINONE(96,N-0,J1);
L14:=FINONE(96,N-1,J4); L13:=FINONE(96,N-1,J3); L12:=FINONE(96,N-1,J2); L11:=FINONE(96,N-1,J1);
L24:=FINONE(96,N-2,J4); L23:=FINONE(96,N-2,J3); L22:=FINONE(96,N-2,J2); L21:=FINONE(96,N-2,J1);
L34:=FINONE(96,N-3,J4); L33:=FINONE(96,N-3,J3); L32:=FINONE(96,N-3,J2); L31:=FINONE(96,N-3,J1);
L44:=FINONE(96,N-4,J4); L43:=FINONE(96,N-4,J3); L42:=FINONE(96,N-4,J2); L41:=FINONE(96,N-4,J1);
L54:=FINONE(96,N-5,J4); L53:=FINONE(96,N-5,J3); L52:=FINONE(96,N-5,J2); L51:=FINONE(96,N-5,J1);
L64:=FINONE(96,N-6,J4); L63:=FINONE(96,N-6,J3); L62:=FINONE(96,N-6,J2); L61:=FINONE(96,N-6,J1);
L74:=FINONE(96,N-7,J4); L73:=FINONE(96,N-7,J3); L72:=FINONE(96,N-7,J2); L71:=FINONE(96,N-7,J1);
L84:=FINONE(96,N-8,J4); L83:=FINONE(96,N-8,J3); L82:=FINONE(96,N-8,J2); L81:=FINONE(96,N-8,J1);
L94:=FINONE(96,N-9,J4); L93:=FINONE(96,N-9,J3); L92:=FINONE(96,N-9,J2); L91:=FINONE(96,N-9,J1);

X04:=FINONE(107,N-0,J4); X03:=FINONE(107,N-0,J3); X02:=FINONE(107,N-0,J2); X01:=FINONE(107,N-0,J1);
X14:=FINONE(107,N-1,J4); X13:=FINONE(107,N-1,J3); X12:=FINONE(107,N-1,J2); X11:=FINONE(107,N-1,J1);
X24:=FINONE(107,N-2,J4); X23:=FINONE(107,N-2,J3); X22:=FINONE(107,N-2,J2); X21:=FINONE(107,N-2,J1);
X34:=FINONE(107,N-3,J4); X33:=FINONE(107,N-3,J3); X32:=FINONE(107,N-3,J2); X31:=FINONE(107,N-3,J1);
X44:=FINONE(107,N-4,J4); X43:=FINONE(107,N-4,J3); X42:=FINONE(107,N-4,J2); X41:=FINONE(107,N-4,J1);
X54:=FINONE(107,N-5,J4); X53:=FINONE(107,N-5,J3); X52:=FINONE(107,N-5,J2); X51:=FINONE(107,N-5,J1);
X64:=FINONE(107,N-6,J4); X63:=FINONE(107,N-6,J3); X62:=FINONE(107,N-6,J2); X61:=FINONE(107,N-6,J1);
X74:=FINONE(107,N-7,J4); X73:=FINONE(107,N-7,J3); X72:=FINONE(107,N-7,J2); X71:=FINONE(107,N-7,J1);
X84:=FINONE(107,N-8,J4); X83:=FINONE(107,N-8,J3); X82:=FINONE(107,N-8,J2); X81:=FINONE(107,N-8,J1);
X94:=FINONE(107,N-9,J4); X93:=FINONE(107,N-9,J3); X92:=FINONE(107,N-9,J2); X91:=FINONE(107,N-9,J1);

增04:=(L04-L14)/ABS(L14)*100; 增03:=(L03-L13)/ABS(L13)*100;
增14:=(L14-L24)/ABS(L24)*100; 增13:=(L13-L23)/ABS(L23)*100;
增24:=(L24-L34)/ABS(L34)*100; 增23:=(L23-L33)/ABS(L33)*100;
增34:=(L34-L44)/ABS(L44)*100; 增33:=(L33-L43)/ABS(L43)*100;
增44:=(L44-L54)/ABS(L54)*100; 增43:=(L43-L53)/ABS(L53)*100;
增54:=(L54-L64)/ABS(L64)*100; 增53:=(L53-L63)/ABS(L63)*100;
增64:=(L64-L74)/ABS(L74)*100; 增63:=(L63-L73)/ABS(L73)*100;
增74:=(L74-L84)/ABS(L84)*100; 增73:=(L73-L83)/ABS(L83)*100;
增84:=(L84-L94)/ABS(L94)*100; 增83:=(L83-L93)/ABS(L93)*100;

Z04:=MIN(67,IF(增04=DRAWNULL,0,增04));
Z14:=MIN(67,IF(增14=DRAWNULL,0,增14));
Z24:=MIN(67,IF(增24=DRAWNULL,0,增24));
Z34:=MIN(67,IF(增34=DRAWNULL,0,增34));
Z44:=MIN(67,IF(增44=DRAWNULL,0,增44));
Z54:=MIN(67,IF(增54=DRAWNULL,0,增54));
Z64:=MIN(67,IF(增64=DRAWNULL,0,增64));
Z74:=MIN(67,IF(增74=DRAWNULL,0,增74));
Z84:=MIN(67,IF(增84=DRAWNULL,0,增84));
效Z4:=IF(Z14=0,0,1)+IF(Z24=0,0,1)+IF(Z34=0,0,1)+IF(Z44=0,0,1)+IF(Z54=0,0,1)+IF(Z64=0,0,1)+IF(Z74=0,0,1);
均增4:=(Z14+Z24+Z34+Z44+Z54+Z64+Z74)/效Z4;

Z03:=MIN(67,IF(增03=DRAWNULL,0,增03));
Z13:=MIN(67,IF(增13=DRAWNULL,0,增13));
Z23:=MIN(67,IF(增23=DRAWNULL,0,增23));
Z33:=MIN(67,IF(增33=DRAWNULL,0,增33));
Z43:=MIN(67,IF(增43=DRAWNULL,0,增43));
Z53:=MIN(67,IF(增53=DRAWNULL,0,增53));
Z63:=MIN(67,IF(增63=DRAWNULL,0,增63));
Z73:=MIN(67,IF(增73=DRAWNULL,0,增73));
Z83:=MIN(67,IF(增83=DRAWNULL,0,增83));
效Z3:=IF(Z13=0,0,1)+IF(Z23=0,0,1)+IF(Z33=0,0,1)+IF(Z43=0,0,1)+IF(Z53=0,0,1)+IF(Z63=0,0,1)+IF(Z73=0,0,1);
均增3:=(Z13+Z23+Z33+Z43+Z53+Z63+Z73)/效Z3;

M04:=FINONE(1,N-0,J4); M03:=FINONE(1,N-0,J3); M02:=FINONE(1,N-0,J2); M01:=FINONE(1,N-0,J1);
M14:=FINONE(1,N-1,J4); M13:=FINONE(1,N-1,J3); M12:=FINONE(1,N-1,J2); M11:=FINONE(1,N-1,J1);
M24:=FINONE(1,N-2,J4); M23:=FINONE(1,N-2,J3); M22:=FINONE(1,N-2,J2); M21:=FINONE(1,N-2,J1);
M34:=FINONE(1,N-3,J4); M33:=FINONE(1,N-3,J3); M32:=FINONE(1,N-3,J2); M31:=FINONE(1,N-3,J1);
M44:=FINONE(1,N-4,J4); M43:=FINONE(1,N-4,J3); M42:=FINONE(1,N-4,J2); M41:=FINONE(1,N-4,J1);
M54:=FINONE(1,N-5,J4); M53:=FINONE(1,N-5,J3); M52:=FINONE(1,N-5,J2); M51:=FINONE(1,N-5,J1);
M64:=FINONE(1,N-6,J4); M63:=FINONE(1,N-6,J3); M62:=FINONE(1,N-6,J2); M61:=FINONE(1,N-6,J1);
M74:=FINONE(1,N-7,J4); M73:=FINONE(1,N-7,J3); M72:=FINONE(1,N-7,J2); M71:=FINONE(1,N-7,J1);
M84:=FINONE(1,N-8,J4); M83:=FINONE(1,N-8,J3); M82:=FINONE(1,N-8,J2); M81:=FINONE(1,N-8,J1);
M94:=FINONE(1,N-9,J4); M93:=FINONE(1,N-9,J3); M92:=FINONE(1,N-9,J2); M91:=FINONE(1,N-9,J1);

LD04:=L04/DC*100; LD03:=L03/DC*100; LD02:=L02/DC*100; LD01:=L01/DC*100;
LD14:=L14/DC*100; LD13:=L13/DC*100; LD12:=L12/DC*100; LD11:=L11/DC*100;
LD24:=L24/DC*100; LD23:=L23/DC*100; LD22:=L22/DC*100; LD21:=L21/DC*100;
LD34:=L34/DC*100; LD33:=L33/DC*100; LD32:=L32/DC*100; LD31:=L31/DC*100;
LD44:=L44/DC*100; LD43:=L43/DC*100; LD42:=L42/DC*100; LD41:=L41/DC*100;
LD54:=L54/DC*100; LD53:=L53/DC*100; LD52:=L52/DC*100; LD51:=L51/DC*100;
LD64:=L64/DC*100; LD63:=L63/DC*100; LD62:=L62/DC*100; LD61:=L61/DC*100;
LD74:=L74/DC*100; LD73:=L73/DC*100; LD72:=L72/DC*100; LD71:=L71/DC*100;
LD84:=L84/DC*100; LD83:=L83/DC*100; LD82:=L82/DC*100; LD81:=L81/DC*100;
LD94:=L94/DC*100; LD93:=L93/DC*100; LD92:=L92/DC*100; LD91:=L91/DC*100;
LDH:=IF(LD04=W,0,LD04)+IF(LD14=W,0,LD14)+IF(LD24=W,0,LD24)+IF(LD34=W,0,LD34)+IF(LD44=W,0,LD44)+IF(LD54=W,0,LD54)+IF(LD64=W,0,LD64)+IF(LD74=W,0,LD74)+IF(LD84=W,0,LD84)+IF(LD94=W,0,LD94);

XD04:=X04/DC*100; XD03:=X03/DC*100; XD02:=X02/DC*100; XD01:=X01/DC*100;
XD14:=X14/DC*100; XD13:=X13/DC*100; XD12:=X12/DC*100; XD11:=X11/DC*100;
XD24:=X24/DC*100; XD23:=X23/DC*100; XD22:=X22/DC*100; XD21:=X21/DC*100;
XD34:=X34/DC*100; XD33:=X33/DC*100; XD32:=X32/DC*100; XD31:=X31/DC*100;
XD44:=X44/DC*100; XD43:=X43/DC*100; XD42:=X42/DC*100; XD41:=X41/DC*100;
XD54:=X54/DC*100; XD53:=X53/DC*100; XD52:=X52/DC*100; XD51:=X51/DC*100;
XD64:=X64/DC*100; XD63:=X63/DC*100; XD62:=X62/DC*100; XD61:=X61/DC*100;
XD74:=X74/DC*100; XD73:=X73/DC*100; XD72:=X72/DC*100; XD71:=X71/DC*100;
XD84:=X84/DC*100; XD83:=X83/DC*100; XD82:=X82/DC*100; XD81:=X81/DC*100;
XD94:=X94/DC*100; XD93:=X93/DC*100; XD92:=X92/DC*100; XD91:=X91/DC*100;
XDH:=IF(XD04=W,0,XD04)+IF(XD14=W,0,XD14)+IF(XD24=W,0,XD24)+IF(XD34=W,0,XD34)+IF(XD44=W,0,XD44)+IF(XD54=W,0,XD54)+IF(XD64=W,0,XD64)+IF(XD74=W,0,XD74)+IF(XD84=W,0,XD84)+IF(XD94=W,0,XD94);

LC04:=L04/C04*100; LC03:=L03/C03*100; LC02:=L02/C02*100; LC01:=L01/C01*100;
LC14:=L14/C14*100; LC13:=L13/C13*100; LC12:=L12/C12*100; LC11:=L11/C11*100;
LC24:=L24/C24*100; LC23:=L23/C23*100; LC22:=L22/C22*100; LC21:=L21/C21*100;
LC34:=L34/C34*100; LC33:=L33/C33*100; LC32:=L32/C32*100; LC31:=L31/C31*100;
LC44:=L44/C44*100; LC43:=L43/C43*100; LC42:=L42/C42*100; LC41:=L41/C41*100;
LC54:=L54/C54*100; LC53:=L53/C53*100; LC52:=L52/C52*100; LC51:=L51/C51*100;
LC64:=L64/C64*100; LC63:=L63/C63*100; LC62:=L62/C62*100; LC61:=L61/C61*100;
LC74:=L74/C74*100; LC73:=L73/C73*100; LC72:=L72/C72*100; LC71:=L71/C71*100;
LC84:=L84/C84*100; LC83:=L83/C83*100; LC82:=L82/C82*100; LC81:=L81/C81*100;
LC94:=L94/C94*100; LC93:=L93/C93*100; LC92:=L92/C92*100; LC91:=L91/C91*100;

XC04:=X04/C04*100; XC03:=X03/C03*100; XC02:=X02/C02*100; XC01:=X01/C01*100;
XC14:=X14/C14*100; XC13:=X13/C13*100; XC12:=X12/C12*100; XC11:=X11/C11*100;
XC24:=X24/C24*100; XC23:=X23/C23*100; XC22:=X22/C22*100; XC21:=X21/C21*100;
XC34:=X34/C34*100; XC33:=X33/C33*100; XC32:=X32/C32*100; XC31:=X31/C31*100;
XC44:=X44/C44*100; XC43:=X43/C43*100; XC42:=X42/C42*100; XC41:=X41/C41*100;
XC54:=X54/C54*100; XC53:=X53/C53*100; XC52:=X52/C52*100; XC51:=X51/C51*100;
XC64:=X64/C64*100; XC63:=X63/C63*100; XC62:=X62/C62*100; XC61:=X61/C61*100;
XC74:=X74/C74*100; XC73:=X73/C73*100; XC72:=X72/C72*100; XC71:=X71/C71*100;
XC84:=X84/C84*100; XC83:=X83/C83*100; XC82:=X82/C82*100; XC81:=X81/C81*100;
XC94:=X94/C94*100; XC93:=X93/C93*100; XC92:=X92/C92*100; XC91:=X91/C91*100;

YL01:=L14*((均增4+均增3)/2/100+1)*ABS(DJ1);
YL02:=IF(L01=DRAWNULL,YL01/ABS(DJ1)*(DJ1+DJ2),L01/ABS(DJ1)*(DJ1+DJ2));
YL03:=IF(L02=DRAWNULL,YL02/ABS(DJ1+DJ2)*(DJ1+DJ2+DJ3),L02/ABS(DJ1+DJ2)*(DJ1+DJ2+DJ3));
YL04:=IF(L03=DRAWNULL,YL03/ABS(DJ1+DJ2+DJ3)*(DJ1+DJ2+DJ3+DJ4),L03/ABS(DJ1+DJ2+DJ3)*(DJ1+DJ2+DJ3+DJ4));
YZ04:=(YL04-L14)/ABS(L14)*100;

潘婷婷 · 发表于 2019-7-15 22:03

D04:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增04,0),STRCAT(' ( ',CON2STR(M04,2))),STRCAT(' )  ',CON2STR(LD04,1))),STRCAT('  ',CON2STR(XD04,1))),STRCAT('  / ',CON2STR(LC04,1))),STRCAT('  ',CON2STR(XC04,1)));
D14:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增14,0),STRCAT(' ( ',CON2STR(M14,2))),STRCAT(' )  ',CON2STR(LD14,1))),STRCAT('  ',CON2STR(XD14,1))),STRCAT('  / ',CON2STR(LC14,1))),STRCAT('  ',CON2STR(XC14,1)));
D24:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增24,0),STRCAT(' ( ',CON2STR(M24,2))),STRCAT(' )  ',CON2STR(LD24,1))),STRCAT('  ',CON2STR(XD24,1))),STRCAT('  / ',CON2STR(LC24,1))),STRCAT('  ',CON2STR(XC24,1)));
D34:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增34,0),STRCAT(' ( ',CON2STR(M34,2))),STRCAT(' )  ',CON2STR(LD34,1))),STRCAT('  ',CON2STR(XD34,1))),STRCAT('  / ',CON2STR(LC34,1))),STRCAT('  ',CON2STR(XC34,1)));
D44:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增44,0),STRCAT(' ( ',CON2STR(M44,2))),STRCAT(' )  ',CON2STR(LD44,1))),STRCAT('  ',CON2STR(XD44,1))),STRCAT('  / ',CON2STR(LC44,1))),STRCAT('  ',CON2STR(XC44,1)));
D54:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增54,0),STRCAT(' ( ',CON2STR(M54,2))),STRCAT(' )  ',CON2STR(LD54,1))),STRCAT('  ',CON2STR(XD54,1))),STRCAT('  / ',CON2STR(LC54,1))),STRCAT('  ',CON2STR(XC54,1)));
D64:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增64,0),STRCAT(' ( ',CON2STR(M64,2))),STRCAT(' )  ',CON2STR(LD64,1))),STRCAT('  ',CON2STR(XD64,1))),STRCAT('  / ',CON2STR(LC64,1))),STRCAT('  ',CON2STR(XC64,1)));
D74:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增74,0),STRCAT(' ( ',CON2STR(M74,2))),STRCAT(' )  ',CON2STR(LD74,1))),STRCAT('  ',CON2STR(XD74,1))),STRCAT('  / ',CON2STR(LC74,1))),STRCAT('  ',CON2STR(XC74,1)));
D84:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增84,0),STRCAT(' ( ',CON2STR(M84,2))),STRCAT(' )  ',CON2STR(LD84,1))),STRCAT('  ',CON2STR(XD84,1))),STRCAT('  / ',CON2STR(LC84,1))),STRCAT('  ',CON2STR(XC84,1)));
D94:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M94,2)),STRCAT(' )  ',CON2STR(LD94,1))),STRCAT('  ',CON2STR(XD94,1))),STRCAT('  / ',CON2STR(LC94,1))),STRCAT('  ',CON2STR(XC94,1)));

D03:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增03,0),STRCAT('  ( ',CON2STR(M03,2))),STRCAT(' )  ',CON2STR(LD03,1))),STRCAT('  ',CON2STR(XD03,1))),STRCAT('  / ',CON2STR(LC03,1))),STRCAT('  ',CON2STR(XC03,1)));
D13:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增13,0),STRCAT('  ( ',CON2STR(M13,2))),STRCAT(' )  ',CON2STR(LD13,1))),STRCAT('  ',CON2STR(XD13,1))),STRCAT('  / ',CON2STR(LC13,1))),STRCAT('  ',CON2STR(XC13,1)));
D23:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增23,0),STRCAT('  ( ',CON2STR(M23,2))),STRCAT(' )  ',CON2STR(LD23,1))),STRCAT('  ',CON2STR(XD23,1))),STRCAT('  / ',CON2STR(LC23,1))),STRCAT('  ',CON2STR(XC23,1)));
D33:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增33,0),STRCAT('  ( ',CON2STR(M33,2))),STRCAT(' )  ',CON2STR(LD33,1))),STRCAT('  ',CON2STR(XD33,1))),STRCAT('  / ',CON2STR(LC33,1))),STRCAT('  ',CON2STR(XC33,1)));
D43:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增43,0),STRCAT('  ( ',CON2STR(M43,2))),STRCAT(' )  ',CON2STR(LD43,1))),STRCAT('  ',CON2STR(XD43,1))),STRCAT('  / ',CON2STR(LC43,1))),STRCAT('  ',CON2STR(XC43,1)));
D53:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增53,0),STRCAT('  ( ',CON2STR(M53,2))),STRCAT(' )  ',CON2STR(LD53,1))),STRCAT('  ',CON2STR(XD53,1))),STRCAT('  / ',CON2STR(LC53,1))),STRCAT('  ',CON2STR(XC53,1)));
D63:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增63,0),STRCAT('  ( ',CON2STR(M63,2))),STRCAT(' )  ',CON2STR(LD63,1))),STRCAT('  ',CON2STR(XD63,1))),STRCAT('  / ',CON2STR(LC63,1))),STRCAT('  ',CON2STR(XC63,1)));
D73:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增73,0),STRCAT('  ( ',CON2STR(M73,2))),STRCAT(' )  ',CON2STR(LD73,1))),STRCAT('  ',CON2STR(XD73,1))),STRCAT('  / ',CON2STR(LC73,1))),STRCAT('  ',CON2STR(XC73,1)));
D83:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(增83,0),STRCAT('  ( ',CON2STR(M83,2))),STRCAT(' )  ',CON2STR(LD83,1))),STRCAT('  ',CON2STR(XD83,1))),STRCAT('  / ',CON2STR(LC83,1))),STRCAT('  ',CON2STR(XC83,1)));
D93:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M93,2)),STRCAT(' )  ',CON2STR(LD93,1))),STRCAT('  ',CON2STR(XD93,1))),STRCAT('  / ',CON2STR(LC93,1))),STRCAT('  ',CON2STR(XC93,1)));

D02:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M02,2)),STRCAT(' )  ',CON2STR(LD02,1))),STRCAT('  ',CON2STR(XD02,1))),STRCAT('  / ',CON2STR(LC02,1))),STRCAT('  ',CON2STR(XC02,1)));
D12:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M12,2)),STRCAT(' )  ',CON2STR(LD12,1))),STRCAT('  ',CON2STR(XD12,1))),STRCAT('  / ',CON2STR(LC12,1))),STRCAT('  ',CON2STR(XC12,1)));
D22:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M22,2)),STRCAT(' )  ',CON2STR(LD22,1))),STRCAT('  ',CON2STR(XD22,1))),STRCAT('  / ',CON2STR(LC22,1))),STRCAT('  ',CON2STR(XC22,1)));
D32:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M32,2)),STRCAT(' )  ',CON2STR(LD32,1))),STRCAT('  ',CON2STR(XD32,1))),STRCAT('  / ',CON2STR(LC32,1))),STRCAT('  ',CON2STR(XC32,1)));
D42:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M42,2)),STRCAT(' )  ',CON2STR(LD42,1))),STRCAT('  ',CON2STR(XD42,1))),STRCAT('  / ',CON2STR(LC42,1))),STRCAT('  ',CON2STR(XC42,1)));
D52:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M52,2)),STRCAT(' )  ',CON2STR(LD52,1))),STRCAT('  ',CON2STR(XD52,1))),STRCAT('  / ',CON2STR(LC52,1))),STRCAT('  ',CON2STR(XC52,1)));
D62:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M62,2)),STRCAT(' )  ',CON2STR(LD62,1))),STRCAT('  ',CON2STR(XD62,1))),STRCAT('  / ',CON2STR(LC62,1))),STRCAT('  ',CON2STR(XC62,1)));
D72:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M72,2)),STRCAT(' )  ',CON2STR(LD72,1))),STRCAT('  ',CON2STR(XD72,1))),STRCAT('  / ',CON2STR(LC72,1))),STRCAT('  ',CON2STR(XC72,1)));
D82:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M82,2)),STRCAT(' )  ',CON2STR(LD82,1))),STRCAT('  ',CON2STR(XD82,1))),STRCAT('  / ',CON2STR(LC82,1))),STRCAT('  ',CON2STR(XC82,1)));
D92:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M92,2)),STRCAT(' )  ',CON2STR(LD92,1))),STRCAT('  ',CON2STR(XD92,1))),STRCAT('  / ',CON2STR(LC92,1))),STRCAT('  ',CON2STR(XC92,1)));

D01:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M01,2)),STRCAT(' )  ',CON2STR(LD01,1))),STRCAT('  ',CON2STR(XD01,1))),STRCAT('  / ',CON2STR(LC01,1))),STRCAT('  ',CON2STR(XC01,1)));
D11:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M11,2)),STRCAT(' )  ',CON2STR(LD11,1))),STRCAT('  ',CON2STR(XD11,1))),STRCAT('  / ',CON2STR(LC11,1))),STRCAT('  ',CON2STR(XC11,1)));
D21:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M21,2)),STRCAT(' )  ',CON2STR(LD21,1))),STRCAT('  ',CON2STR(XD21,1))),STRCAT('  / ',CON2STR(LC21,1))),STRCAT('  ',CON2STR(XC21,1)));
D31:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M31,2)),STRCAT(' )  ',CON2STR(LD31,1))),STRCAT('  ',CON2STR(XD31,1))),STRCAT('  / ',CON2STR(LC31,1))),STRCAT('  ',CON2STR(XC31,1)));
D41:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M41,2)),STRCAT(' )  ',CON2STR(LD41,1))),STRCAT('  ',CON2STR(XD41,1))),STRCAT('  / ',CON2STR(LC41,1))),STRCAT('  ',CON2STR(XC41,1)));
D51:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M51,2)),STRCAT(' )  ',CON2STR(LD51,1))),STRCAT('  ',CON2STR(XD51,1))),STRCAT('  / ',CON2STR(LC51,1))),STRCAT('  ',CON2STR(XC51,1)));
D61:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M61,2)),STRCAT(' )  ',CON2STR(LD61,1))),STRCAT('  ',CON2STR(XD61,1))),STRCAT('  / ',CON2STR(LC61,1))),STRCAT('  ',CON2STR(XC61,1)));
D71:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M71,2)),STRCAT(' )  ',CON2STR(LD71,1))),STRCAT('  ',CON2STR(XD71,1))),STRCAT('  / ',CON2STR(LC71,1))),STRCAT('  ',CON2STR(XC71,1)));
D81:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M81,2)),STRCAT(' )  ',CON2STR(LD81,1))),STRCAT('  ',CON2STR(XD81,1))),STRCAT('  / ',CON2STR(LC81,1))),STRCAT('  ',CON2STR(XC81,1)));
D91:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(' ( ',CON2STR(M91,2)),STRCAT(' )  ',CON2STR(LD91,1))),STRCAT('  ',CON2STR(XD91,1))),STRCAT('  / ',CON2STR(LC91,1))),STRCAT('  ',CON2STR(XC91,1)));

{流债.短借交易}
DY0:=(FINONE(41,N-0,J)+FINONE(42,N-0,J) )/C0*100;
DY1:=(FINONE(41,N-1,J)+FINONE(42,N-1,J) )/C1*100;
DY2:=(FINONE(41,N-2,J)+FINONE(42,N-2,J) )/C2*100;
DY3:=(FINONE(41,N-3,J)+FINONE(42,N-3,J) )/C3*100;
DY4:=(FINONE(41,N-4,J)+FINONE(42,N-4,J) )/C4*100;
DY5:=(FINONE(41,N-5,J)+FINONE(42,N-5,J) )/C5*100;
DY6:=(FINONE(41,N-6,J)+FINONE(42,N-6,J) )/C6*100;
DY7:=(FINONE(41,N-7,J)+FINONE(42,N-7,J) )/C7*100;
DY8:=(FINONE(41,N-8,J)+FINONE(42,N-8,J) )/C8*100;
DY9:=(FINONE(41,N-9,J)+FINONE(42,N-9,J) )/C9*100;
{应付票}
PJ0:=FINONE(43,N-0,J)/C0*100;
PJ1:=FINONE(43,N-1,J)/C1*100;
PJ2:=FINONE(43,N-2,J)/C2*100;
PJ3:=FINONE(43,N-3,J)/C3*100;
PJ4:=FINONE(43,N-4,J)/C4*100;
PJ5:=FINONE(43,N-5,J)/C5*100;
PJ6:=FINONE(43,N-6,J)/C6*100;
PJ7:=FINONE(43,N-7,J)/C7*100;
PJ8:=FINONE(43,N-8,J)/C8*100;
PJ9:=FINONE(43,N-9,J)/C9*100;
{应付账}
ZK0:=FINONE(44,N-0,J)/C0*100;
ZK1:=FINONE(44,N-1,J)/C1*100;
ZK2:=FINONE(44,N-2,J)/C2*100;
ZK3:=FINONE(44,N-3,J)/C3*100;
ZK4:=FINONE(44,N-4,J)/C4*100;
ZK5:=FINONE(44,N-5,J)/C5*100;
ZK6:=FINONE(44,N-6,J)/C6*100;
ZK7:=FINONE(44,N-7,J)/C7*100;
ZK8:=FINONE(44,N-8,J)/C8*100;
ZK9:=FINONE(44,N-9,J)/C9*100;
{预收款}
YS0:=FINONE(45,N-0,J)/C0*100;
YS1:=FINONE(45,N-1,J)/C1*100;
YS2:=FINONE(45,N-2,J)/C2*100;
YS3:=FINONE(45,N-3,J)/C3*100;
YS4:=FINONE(45,N-4,J)/C4*100;
YS5:=FINONE(45,N-5,J)/C5*100;
YS6:=FINONE(45,N-6,J)/C6*100;
YS7:=FINONE(45,N-7,J)/C7*100;
YS8:=FINONE(45,N-8,J)/C8*100;
YS9:=FINONE(45,N-9,J)/C9*100;
{付薪交税}
FX0:=(FINONE(46,N-0,J)+FINONE(47,N-0,J))/C0*100;
FX1:=(FINONE(46,N-1,J)+FINONE(47,N-1,J))/C1*100;
FX2:=(FINONE(46,N-2,J)+FINONE(47,N-2,J))/C2*100;
FX3:=(FINONE(46,N-3,J)+FINONE(47,N-3,J))/C3*100;
FX4:=(FINONE(46,N-4,J)+FINONE(47,N-4,J))/C4*100;
FX5:=(FINONE(46,N-5,J)+FINONE(47,N-5,J))/C5*100;
FX6:=(FINONE(46,N-6,J)+FINONE(47,N-6,J))/C6*100;
FX7:=(FINONE(46,N-7,J)+FINONE(47,N-7,J))/C7*100;
FX8:=(FINONE(46,N-8,J)+FINONE(47,N-8,J))/C8*100;
FX9:=(FINONE(46,N-9,J)+FINONE(47,N-9,J))/C9*100;
{付利息股利}
XL0:=(FINONE(48,N-0,J)+FINONE(49,N-0,J))/C0*100;
XL1:=(FINONE(48,N-1,J)+FINONE(49,N-1,J))/C1*100;
XL2:=(FINONE(48,N-2,J)+FINONE(49,N-2,J))/C2*100;
XL3:=(FINONE(48,N-3,J)+FINONE(49,N-3,J))/C3*100;
XL4:=(FINONE(48,N-4,J)+FINONE(49,N-4,J))/C4*100;
XL5:=(FINONE(48,N-5,J)+FINONE(49,N-5,J))/C5*100;
XL6:=(FINONE(48,N-6,J)+FINONE(49,N-6,J))/C6*100;
XL7:=(FINONE(48,N-7,J)+FINONE(49,N-7,J))/C7*100;
XL8:=(FINONE(48,N-8,J)+FINONE(49,N-8,J))/C8*100;
XL9:=(FINONE(48,N-9,J)+FINONE(49,N-9,J))/C9*100;
{其他应付应付关联}
QG0:=(FINONE(50,N-0,J)+FINONE(51,N-0,J))/C0*100;
QG1:=(FINONE(50,N-1,J)+FINONE(51,N-1,J))/C1*100;
QG2:=(FINONE(50,N-2,J)+FINONE(51,N-2,J))/C2*100;
QG3:=(FINONE(50,N-3,J)+FINONE(51,N-3,J))/C3*100;
QG4:=(FINONE(50,N-4,J)+FINONE(51,N-4,J))/C4*100;
QG5:=(FINONE(50,N-5,J)+FINONE(51,N-5,J))/C5*100;
QG6:=(FINONE(50,N-6,J)+FINONE(51,N-6,J))/C6*100;
QG7:=(FINONE(50,N-7,J)+FINONE(51,N-7,J))/C7*100;
QG8:=(FINONE(50,N-8,J)+FINONE(51,N-8,J))/C8*100;
QG9:=(FINONE(50,N-9,J)+FINONE(51,N-9,J))/C9*100;
{年内到期非债}
YN0:=FINONE(52,N-0,J)/C0*100;
YN1:=FINONE(52,N-1,J)/C1*100;
YN2:=FINONE(52,N-2,J)/C2*100;
YN3:=FINONE(52,N-3,J)/C3*100;
YN4:=FINONE(52,N-4,J)/C4*100;
YN5:=FINONE(52,N-5,J)/C5*100;
YN6:=FINONE(52,N-6,J)/C6*100;
YN7:=FINONE(52,N-7,J)/C7*100;
YN8:=FINONE(52,N-8,J)/C8*100;
YN9:=FINONE(52,N-9,J)/C9*100;
{其他流债}
QZ0:=FINONE(53,N-0,J)/C0*100;
QZ1:=FINONE(53,N-1,J)/C1*100;
QZ2:=FINONE(53,N-2,J)/C2*100;
QZ3:=FINONE(53,N-3,J)/C3*100;
QZ4:=FINONE(53,N-4,J)/C4*100;
QZ5:=FINONE(53,N-5,J)/C5*100;
QZ6:=FINONE(53,N-6,J)/C6*100;
QZ7:=FINONE(53,N-7,J)/C7*100;
QZ8:=FINONE(53,N-8,J)/C8*100;
QZ9:=FINONE(53,N-9,J)/C9*100;
{流债合}
LZ0:=FINONE(54,N-0,J)/C0*100;
LZ1:=FINONE(54,N-1,J)/C1*100;
LZ2:=FINONE(54,N-2,J)/C2*100;
LZ3:=FINONE(54,N-3,J)/C3*100;
LZ4:=FINONE(54,N-4,J)/C4*100;
LZ5:=FINONE(54,N-5,J)/C5*100;
LZ6:=FINONE(54,N-6,J)/C6*100;
LZ7:=FINONE(54,N-7,J)/C7*100;
LZ8:=FINONE(54,N-8,J)/C8*100;
LZ9:=FINONE(54,N-9,J)/C9*100;
{应付票据，应付账款，应付手续费及佣金，预提费用，一年内的递延收益，应付短期债券}
PZ0:=ROUND(LZ0-DY0-PJ0-ZK0-YS0-(FX0+XL0+QG0)-YN0-QZ0);
PZ1:=ROUND(LZ1-DY1-PJ1-ZK1-YS1-(FX1+XL1+QG1)-YN1-QZ1);
PZ2:=ROUND(LZ2-DY2-PJ2-ZK2-YS2-(FX2+XL2+QG2)-YN2-QZ2);
PZ3:=ROUND(LZ3-DY3-PJ3-ZK3-YS3-(FX3+XL3+QG3)-YN3-QZ3);
PZ4:=ROUND(LZ4-DY4-PJ4-ZK4-YS4-(FX4+XL4+QG4)-YN4-QZ4);
PZ5:=ROUND(LZ5-DY5-PJ5-ZK5-YS5-(FX5+XL5+QG5)-YN5-QZ5);
PZ6:=ROUND(LZ6-DY6-PJ6-ZK6-YS6-(FX6+XL6+QG6)-YN6-QZ6);
PZ7:=ROUND(LZ7-DY7-PJ7-ZK7-YS7-(FX7+XL7+QG7)-YN7-QZ7);
PZ8:=ROUND(LZ8-DY8-PJ8-ZK8-YS8-(FX8+XL8+QG8)-YN8-QZ8);
PZ9:=ROUND(LZ9-DY9-PJ9-ZK9-YS9-(FX9+XL9+QG9)-YN9-QZ9);

LZH0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY0,0),' '),STRCAT(CON2STR(PJ0,0),' ')),STRCAT(CON2STR(ZK0,0),' ')),STRCAT(CON2STR(YS0,0),'  /  ')),STRCAT(CON2STR(FX0,0),' ')),STRCAT(CON2STR(XL0,1),' ')),STRCAT(CON2STR(QG0,0),'  /  ')),STRCAT(CON2STR(PZ0,0),' ')),STRCAT(CON2STR(YN0,0),' ')),STRCAT(CON2STR(QZ0,0),' ( ')),STRCAT(CON2STR(LZ0,0),' )    '));
LZH1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY1,0),' '),STRCAT(CON2STR(PJ1,0),' ')),STRCAT(CON2STR(ZK1,0),' ')),STRCAT(CON2STR(YS1,0),'  /  ')),STRCAT(CON2STR(FX1,0),' ')),STRCAT(CON2STR(XL1,1),' ')),STRCAT(CON2STR(QG1,0),'  /  ')),STRCAT(CON2STR(PZ1,0),' ')),STRCAT(CON2STR(YN1,0),' ')),STRCAT(CON2STR(QZ1,0),' ( ')),STRCAT(CON2STR(LZ1,0),' )    '));
LZH2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY2,0),' '),STRCAT(CON2STR(PJ2,0),' ')),STRCAT(CON2STR(ZK2,0),' ')),STRCAT(CON2STR(YS2,0),'  /  ')),STRCAT(CON2STR(FX2,0),' ')),STRCAT(CON2STR(XL2,1),' ')),STRCAT(CON2STR(QG2,0),'  /  ')),STRCAT(CON2STR(PZ2,0),' ')),STRCAT(CON2STR(YN2,0),' ')),STRCAT(CON2STR(QZ2,0),' ( ')),STRCAT(CON2STR(LZ2,0),' )    '));
LZH3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY3,0),' '),STRCAT(CON2STR(PJ3,0),' ')),STRCAT(CON2STR(ZK3,0),' ')),STRCAT(CON2STR(YS3,0),'  /  ')),STRCAT(CON2STR(FX3,0),' ')),STRCAT(CON2STR(XL3,1),' ')),STRCAT(CON2STR(QG3,0),'  /  ')),STRCAT(CON2STR(PZ3,0),' ')),STRCAT(CON2STR(YN3,0),' ')),STRCAT(CON2STR(QZ3,0),' ( ')),STRCAT(CON2STR(LZ3,0),' )    '));
LZH4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY4,0),' '),STRCAT(CON2STR(PJ4,0),' ')),STRCAT(CON2STR(ZK4,0),' ')),STRCAT(CON2STR(YS4,0),'  /  ')),STRCAT(CON2STR(FX4,0),' ')),STRCAT(CON2STR(XL4,1),' ')),STRCAT(CON2STR(QG4,0),'  /  ')),STRCAT(CON2STR(PZ4,0),' ')),STRCAT(CON2STR(YN4,0),' ')),STRCAT(CON2STR(QZ4,0),' ( ')),STRCAT(CON2STR(LZ4,0),' )    '));
LZH5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY5,0),' '),STRCAT(CON2STR(PJ5,0),' ')),STRCAT(CON2STR(ZK5,0),' ')),STRCAT(CON2STR(YS5,0),'  /  ')),STRCAT(CON2STR(FX5,0),' ')),STRCAT(CON2STR(XL5,1),' ')),STRCAT(CON2STR(QG5,0),'  /  ')),STRCAT(CON2STR(PZ5,0),' ')),STRCAT(CON2STR(YN5,0),' ')),STRCAT(CON2STR(QZ5,0),' ( ')),STRCAT(CON2STR(LZ5,0),' )    '));
LZH6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY6,0),' '),STRCAT(CON2STR(PJ6,0),' ')),STRCAT(CON2STR(ZK6,0),' ')),STRCAT(CON2STR(YS6,0),'  /  ')),STRCAT(CON2STR(FX6,0),' ')),STRCAT(CON2STR(XL6,1),' ')),STRCAT(CON2STR(QG6,0),'  /  ')),STRCAT(CON2STR(PZ6,0),' ')),STRCAT(CON2STR(YN6,0),' ')),STRCAT(CON2STR(QZ6,0),' ( ')),STRCAT(CON2STR(LZ6,0),' )    '));
LZH7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY7,0),' '),STRCAT(CON2STR(PJ7,0),' ')),STRCAT(CON2STR(ZK7,0),' ')),STRCAT(CON2STR(YS7,0),'  /  ')),STRCAT(CON2STR(FX7,0),' ')),STRCAT(CON2STR(XL7,1),' ')),STRCAT(CON2STR(QG7,0),'  /  ')),STRCAT(CON2STR(PZ7,0),' ')),STRCAT(CON2STR(YN7,0),' ')),STRCAT(CON2STR(QZ7,0),' ( ')),STRCAT(CON2STR(LZ7,0),' )    '));
LZH8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY8,0),' '),STRCAT(CON2STR(PJ8,0),' ')),STRCAT(CON2STR(ZK8,0),' ')),STRCAT(CON2STR(YS8,0),'  /  ')),STRCAT(CON2STR(FX8,0),' ')),STRCAT(CON2STR(XL8,1),' ')),STRCAT(CON2STR(QG8,0),'  /  ')),STRCAT(CON2STR(PZ8,0),' ')),STRCAT(CON2STR(YN8,0),' ')),STRCAT(CON2STR(QZ8,0),' ( ')),STRCAT(CON2STR(LZ8,0),' )    '));
LZH9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(DY9,0),' '),STRCAT(CON2STR(PJ9,0),' ')),STRCAT(CON2STR(ZK9,0),' ')),STRCAT(CON2STR(YS9,0),'  /  ')),STRCAT(CON2STR(FX9,0),' ')),STRCAT(CON2STR(XL9,1),' ')),STRCAT(CON2STR(QG9,0),'  /  ')),STRCAT(CON2STR(PZ9,0),' ')),STRCAT(CON2STR(YN9,0),' ')),STRCAT(CON2STR(QZ9,0),' ( ')),STRCAT(CON2STR(LZ9,0),' )    '));

潘婷婷 · 发表于 2019-7-15 22:04

{非流债长借款}
CJ0:=FINONE(55,N-0,J)/C0*100;
CJ1:=FINONE(55,N-1,J)/C1*100;
CJ2:=FINONE(55,N-2,J)/C2*100;
CJ3:=FINONE(55,N-3,J)/C3*100;
CJ4:=FINONE(55,N-4,J)/C4*100;
CJ5:=FINONE(55,N-5,J)/C5*100;
CJ6:=FINONE(55,N-6,J)/C6*100;
CJ7:=FINONE(55,N-7,J)/C7*100;
CJ8:=FINONE(55,N-8,J)/C8*100;
CJ9:=FINONE(55,N-9,J)/C9*100;
{应付债券}
FQ0:=FINONE(56,N-0,J)/C0*100;
FQ1:=FINONE(56,N-1,J)/C1*100;
FQ2:=FINONE(56,N-2,J)/C2*100;
FQ3:=FINONE(56,N-3,J)/C3*100;
FQ4:=FINONE(56,N-4,J)/C4*100;
FQ5:=FINONE(56,N-5,J)/C5*100;
FQ6:=FINONE(56,N-6,J)/C6*100;
FQ7:=FINONE(56,N-7,J)/C7*100;
FQ8:=FINONE(56,N-8,J)/C8*100;
FQ9:=FINONE(56,N-9,J)/C9*100;
{长期应付款}
CY0:=FINONE(57,N-0,J)/C0*100;
CY1:=FINONE(57,N-1,J)/C1*100;
CY2:=FINONE(57,N-2,J)/C2*100;
CY3:=FINONE(57,N-3,J)/C3*100;
CY4:=FINONE(57,N-4,J)/C4*100;
CY5:=FINONE(57,N-5,J)/C5*100;
CY6:=FINONE(57,N-6,J)/C6*100;
CY7:=FINONE(57,N-7,J)/C7*100;
CY8:=FINONE(57,N-8,J)/C8*100;
CY9:=FINONE(57,N-9,J)/C9*100;
{专项应付款}
ZX0:=FINONE(58,N-0,J)/C0*100;
ZX1:=FINONE(58,N-1,J)/C1*100;
ZX2:=FINONE(58,N-2,J)/C2*100;
ZX3:=FINONE(58,N-3,J)/C3*100;
ZX4:=FINONE(58,N-4,J)/C4*100;
ZX5:=FINONE(58,N-5,J)/C5*100;
ZX6:=FINONE(58,N-6,J)/C6*100;
ZX7:=FINONE(58,N-7,J)/C7*100;
ZX8:=FINONE(58,N-8,J)/C8*100;
ZX9:=FINONE(58,N-9,J)/C9*100;
{预计负债.诉讼纠纷}
YJ0:=FINONE(59,N-0,J)/C0*100;
YJ1:=FINONE(59,N-1,J)/C1*100;
YJ2:=FINONE(59,N-2,J)/C2*100;
YJ3:=FINONE(59,N-3,J)/C3*100;
YJ4:=FINONE(59,N-4,J)/C4*100;
YJ5:=FINONE(59,N-5,J)/C5*100;
YJ6:=FINONE(59,N-6,J)/C6*100;
YJ7:=FINONE(59,N-7,J)/C7*100;
YJ8:=FINONE(59,N-8,J)/C8*100;
YJ9:=FINONE(59,N-9,J)/C9*100;
{其他非流债}
QF0:=FINONE(61,N-0,J)/C0*100;
QF1:=FINONE(61,N-1,J)/C1*100;
QF2:=FINONE(61,N-2,J)/C2*100;
QF3:=FINONE(61,N-3,J)/C3*100;
QF4:=FINONE(61,N-4,J)/C4*100;
QF5:=FINONE(61,N-5,J)/C5*100;
QF6:=FINONE(61,N-6,J)/C6*100;
QF7:=FINONE(61,N-7,J)/C7*100;
QF8:=FINONE(61,N-8,J)/C8*100;
QF9:=FINONE(61,N-9,J)/C9*100;
{非债合}
FZ0:=FINONE(62,N-0,J)/C0*100;
FZ1:=FINONE(62,N-1,J)/C1*100;
FZ2:=FINONE(62,N-2,J)/C2*100;
FZ3:=FINONE(62,N-3,J)/C3*100;
FZ4:=FINONE(62,N-4,J)/C4*100;
FZ5:=FINONE(62,N-5,J)/C5*100;
FZ6:=FINONE(62,N-6,J)/C6*100;
FZ7:=FINONE(62,N-7,J)/C7*100;
FZ8:=FINONE(62,N-8,J)/C8*100;
FZ9:=FINONE(62,N-9,J)/C9*100;
{长期应付职工薪酬递延所得税负债长期递延收益}
CD0:=ROUND(FZ0-CJ0-FQ0-CY0-ZX0-YJ0-QF0);
CD1:=ROUND(FZ1-CJ1-FQ1-CY1-ZX1-YJ1-QF1);
CD2:=ROUND(FZ2-CJ2-FQ2-CY2-ZX2-YJ2-QF2);
CD3:=ROUND(FZ3-CJ3-FQ3-CY3-ZX3-YJ3-QF3);
CD4:=ROUND(FZ4-CJ4-FQ4-CY4-ZX4-YJ4-QF4);
CD5:=ROUND(FZ5-CJ5-FQ5-CY5-ZX5-YJ5-QF5);
CD6:=ROUND(FZ6-CJ6-FQ6-CY6-ZX6-YJ6-QF6);
CD7:=ROUND(FZ7-CJ7-FQ7-CY7-ZX7-YJ7-QF7);
CD8:=ROUND(FZ8-CJ8-FQ8-CY8-ZX8-YJ8-QF8);
CD9:=ROUND(FZ9-CJ9-FQ9-CY9-ZX9-YJ9-QF9);
{有息债=短期借+交易性金融债+一年内到期+长期借+应付券+长应付款}
Y0:=DY0+YN0+CJ0+FQ0+CY0;
Y1:=DY1+YN1+CJ1+FQ1+CY1;
Y2:=DY2+YN2+CJ2+FQ2+CY2;
Y3:=DY3+YN3+CJ3+FQ3+CY3;
Y4:=DY4+YN4+CJ4+FQ4+CY4;
Y5:=DY5+YN5+CJ5+FQ5+CY5;
Y6:=DY6+YN6+CJ6+FQ6+CY6;
Y7:=DY7+YN7+CJ7+FQ7+CY7;
Y8:=DY8+YN8+CJ8+FQ8+CY8;
Y9:=DY9+YN9+CJ9+FQ9+CY9;

FZH0:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ0,0),' '),STRCAT(CON2STR(FQ0,0),' ')),STRCAT(CON2STR(CY0,0),'  /  ')),STRCAT(CON2STR(ZX0,0),' ')),STRCAT(CON2STR(YJ0,1),'  /  ')),STRCAT(CON2STR(CD0,0),' ')),STRCAT(CON2STR(QF0,0),' ( ')),STRCAT(CON2STR(FZ0,0),' ) ')),CON2STR(Y0,0));
FZH1:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ1,0),' '),STRCAT(CON2STR(FQ1,0),' ')),STRCAT(CON2STR(CY1,0),'  /  ')),STRCAT(CON2STR(ZX1,0),' ')),STRCAT(CON2STR(YJ1,1),'  /  ')),STRCAT(CON2STR(CD1,0),' ')),STRCAT(CON2STR(QF1,0),' ( ')),STRCAT(CON2STR(FZ1,0),' ) ')),CON2STR(Y1,0));
FZH2:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ2,0),' '),STRCAT(CON2STR(FQ2,0),' ')),STRCAT(CON2STR(CY2,0),'  /  ')),STRCAT(CON2STR(ZX2,0),' ')),STRCAT(CON2STR(YJ2,1),'  /  ')),STRCAT(CON2STR(CD2,0),' ')),STRCAT(CON2STR(QF2,0),' ( ')),STRCAT(CON2STR(FZ2,0),' ) ')),CON2STR(Y2,0));
FZH3:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ3,0),' '),STRCAT(CON2STR(FQ3,0),' ')),STRCAT(CON2STR(CY3,0),'  /  ')),STRCAT(CON2STR(ZX3,0),' ')),STRCAT(CON2STR(YJ3,1),'  /  ')),STRCAT(CON2STR(CD3,0),' ')),STRCAT(CON2STR(QF3,0),' ( ')),STRCAT(CON2STR(FZ3,0),' ) ')),CON2STR(Y3,0));
FZH4:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ4,0),' '),STRCAT(CON2STR(FQ4,0),' ')),STRCAT(CON2STR(CY4,0),'  /  ')),STRCAT(CON2STR(ZX4,0),' ')),STRCAT(CON2STR(YJ4,1),'  /  ')),STRCAT(CON2STR(CD4,0),' ')),STRCAT(CON2STR(QF4,0),' ( ')),STRCAT(CON2STR(FZ4,0),' ) ')),CON2STR(Y4,0));
FZH5:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ5,0),' '),STRCAT(CON2STR(FQ5,0),' ')),STRCAT(CON2STR(CY5,0),'  /  ')),STRCAT(CON2STR(ZX5,0),' ')),STRCAT(CON2STR(YJ5,1),'  /  ')),STRCAT(CON2STR(CD5,0),' ')),STRCAT(CON2STR(QF5,0),' ( ')),STRCAT(CON2STR(FZ5,0),' ) ')),CON2STR(Y5,0));
FZH6:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ6,0),' '),STRCAT(CON2STR(FQ6,0),' ')),STRCAT(CON2STR(CY6,0),'  /  ')),STRCAT(CON2STR(ZX6,0),' ')),STRCAT(CON2STR(YJ6,1),'  /  ')),STRCAT(CON2STR(CD6,0),' ')),STRCAT(CON2STR(QF6,0),' ( ')),STRCAT(CON2STR(FZ6,0),' ) ')),CON2STR(Y6,0));
FZH7:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ7,0),' '),STRCAT(CON2STR(FQ7,0),' ')),STRCAT(CON2STR(CY7,0),'  /  ')),STRCAT(CON2STR(ZX7,0),' ')),STRCAT(CON2STR(YJ7,1),'  /  ')),STRCAT(CON2STR(CD7,0),' ')),STRCAT(CON2STR(QF7,0),' ( ')),STRCAT(CON2STR(FZ7,0),' ) ')),CON2STR(Y7,0));
FZH8:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ8,0),' '),STRCAT(CON2STR(FQ8,0),' ')),STRCAT(CON2STR(CY8,0),'  /  ')),STRCAT(CON2STR(ZX8,0),' ')),STRCAT(CON2STR(YJ8,1),'  /  ')),STRCAT(CON2STR(CD8,0),' ')),STRCAT(CON2STR(QF8,0),' ( ')),STRCAT(CON2STR(FZ8,0),' ) ')),CON2STR(Y8,0));
FZH9:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(CJ9,0),' '),STRCAT(CON2STR(FQ9,0),' ')),STRCAT(CON2STR(CY9,0),'  /  ')),STRCAT(CON2STR(ZX9,0),' ')),STRCAT(CON2STR(YJ9,1),'  /  ')),STRCAT(CON2STR(CD9,0),' ')),STRCAT(CON2STR(QF9,0),' ( ')),STRCAT(CON2STR(FZ9,0),' ) ')),CON2STR(Y9,0));

JZ:=季值;{风险系数介于1.20-2.90中性,底线1.625,折中2.05,大于2.90优秀}
息04:=(FINONE(86,N-0,JZ) - FINONE(83,N-0,JZ) - FINONE(82,N-0,JZ) + FINONE(80,N-0,JZ) )/收比/DC;
息14:=(FINONE(86,N-1,J4) - FINONE(83,N-1,J4) - FINONE(82,N-1,J4) + FINONE(80,N-1,J4) )/C14;
息24:=(FINONE(86,N-2,J4) - FINONE(83,N-2,J4) - FINONE(82,N-2,J4) + FINONE(80,N-2,J4) )/C24;
息34:=(FINONE(86,N-3,J4) - FINONE(83,N-3,J4) - FINONE(82,N-3,J4) + FINONE(80,N-3,J4) )/C34;
息44:=(FINONE(86,N-4,J4) - FINONE(83,N-4,J4) - FINONE(82,N-4,J4) + FINONE(80,N-4,J4) )/C44;
息54:=(FINONE(86,N-5,J4) - FINONE(83,N-5,J4) - FINONE(82,N-5,J4) + FINONE(80,N-5,J4) )/C54;
息64:=(FINONE(86,N-6,J4) - FINONE(83,N-6,J4) - FINONE(82,N-6,J4) + FINONE(80,N-6,J4) )/C64;
息74:=(FINONE(86,N-7,J4) - FINONE(83,N-7,J4) - FINONE(82,N-7,J4) + FINONE(80,N-7,J4) )/C74;
息84:=(FINONE(86,N-8,J4) - FINONE(83,N-8,J4) - FINONE(82,N-8,J4) + FINONE(80,N-8,J4) )/C84;
息94:=(FINONE(86,N-9,J4) - FINONE(83,N-9,J4) - FINONE(82,N-9,J4) + FINONE(80,N-9,J4) )/C94;

销04:=FINONE(74,N-0,JZ)/收比/DC;
销14:=FINONE(74,N-1,J4)/C14;
销24:=FINONE(74,N-2,J4)/C24;
销34:=FINONE(74,N-3,J4)/C34;
销44:=FINONE(74,N-4,J4)/C44;
销54:=FINONE(74,N-5,J4)/C54;
销64:=FINONE(74,N-6,J4)/C64;
销74:=FINONE(74,N-7,J4)/C74;
销84:=FINONE(74,N-8,J4)/C84;
销94:=FINONE(74,N-9,J4)/C94;

留04:=(FINONE(68,N-0,JZ)+FINONE(66,N-0,JZ))/DC;
留14:=(FINONE(68,N-1,J4)+FINONE(66,N-1,J4))/C14;
留24:=(FINONE(68,N-2,J4)+FINONE(66,N-2,J4))/C24;
留34:=(FINONE(68,N-3,J4)+FINONE(66,N-3,J4))/C34;
留44:=(FINONE(68,N-4,J4)+FINONE(66,N-4,J4))/C44;
留54:=(FINONE(68,N-5,J4)+FINONE(66,N-5,J4))/C54;
留64:=(FINONE(68,N-6,J4)+FINONE(66,N-6,J4))/C64;
留74:=(FINONE(68,N-7,J4)+FINONE(66,N-7,J4))/C74;
留84:=(FINONE(68,N-8,J4)+FINONE(66,N-8,J4))/C84;
留94:=(FINONE(68,N-9,J4)+FINONE(66,N-9,J4))/C94;

营04:=(FINONE(21,N-0,JZ)-FINONE(54,N-0,JZ))/DC;
营14:=(FINONE(21,N-1,J4)-FINONE(54,N-1,J4))/C14;
营24:=(FINONE(21,N-2,J4)-FINONE(54,N-2,J4))/C24;
营34:=(FINONE(21,N-3,J4)-FINONE(54,N-3,J4))/C34;
营44:=(FINONE(21,N-4,J4)-FINONE(54,N-4,J4))/C44;
营54:=(FINONE(21,N-5,J4)-FINONE(54,N-5,J4))/C54;
营64:=(FINONE(21,N-6,J4)-FINONE(54,N-6,J4))/C64;
营74:=(FINONE(21,N-7,J4)-FINONE(54,N-7,J4))/C74;
营84:=(FINONE(21,N-8,J4)-FINONE(54,N-8,J4))/C84;
营94:=(FINONE(21,N-9,J4)-FINONE(54,N-9,J4))/C94;

所04:=FINONE(72,N-0,JZ)/FINONE(63,N-0,JZ);
所14:=FINONE(72,N-1,J4)/FINONE(63,N-1,J4);
所24:=FINONE(72,N-2,J4)/FINONE(63,N-2,J4);
所34:=FINONE(72,N-3,J4)/FINONE(63,N-3,J4);
所44:=FINONE(72,N-4,J4)/FINONE(63,N-4,J4);
所54:=FINONE(72,N-5,J4)/FINONE(63,N-5,J4);
所64:=FINONE(72,N-6,J4)/FINONE(63,N-6,J4);
所74:=FINONE(72,N-7,J4)/FINONE(63,N-7,J4);
所84:=FINONE(72,N-8,J4)/FINONE(63,N-8,J4);
所94:=FINONE(72,N-9,J4)/FINONE(63,N-9,J4);
{虚拟资产=应收账款+预付款项+其他应收款+长期应收款+无形资产+商誉}
虚04:=( FINONE(11,N-0,JZ)+FINONE(12,N-0,JZ)+FINONE(13,N-0,JZ)+FINONE(24,N-0,JZ)+FINONE(33,N-0,JZ)+FINONE(35,N-0,JZ) )/DC;
虚14:=( FINONE(11,N-1,J4)+FINONE(12,N-1,J4)+FINONE(13,N-1,J4)+FINONE(24,N-1,J4)+FINONE(33,N-1,J4)+FINONE(35,N-1,J4) )/C14;
虚24:=( FINONE(11,N-2,J4)+FINONE(12,N-2,J4)+FINONE(13,N-2,J4)+FINONE(24,N-2,J4)+FINONE(33,N-2,J4)+FINONE(35,N-2,J4) )/C24;
虚34:=( FINONE(11,N-3,J4)+FINONE(12,N-3,J4)+FINONE(13,N-3,J4)+FINONE(24,N-3,J4)+FINONE(33,N-3,J4)+FINONE(35,N-3,J4) )/C34;
虚44:=( FINONE(11,N-4,J4)+FINONE(12,N-4,J4)+FINONE(13,N-4,J4)+FINONE(24,N-4,J4)+FINONE(33,N-4,J4)+FINONE(35,N-4,J4) )/C44;
虚54:=( FINONE(11,N-5,J4)+FINONE(12,N-5,J4)+FINONE(13,N-5,J4)+FINONE(24,N-5,J4)+FINONE(33,N-5,J4)+FINONE(35,N-5,J4) )/C54;
虚64:=( FINONE(11,N-6,J4)+FINONE(12,N-6,J4)+FINONE(13,N-6,J4)+FINONE(24,N-6,J4)+FINONE(33,N-6,J4)+FINONE(35,N-6,J4) )/C64;
虚74:=( FINONE(11,N-7,J4)+FINONE(12,N-7,J4)+FINONE(13,N-7,J4)+FINONE(24,N-7,J4)+FINONE(33,N-7,J4)+FINONE(35,N-7,J4) )/C74;
虚84:=( FINONE(11,N-8,J4)+FINONE(12,N-8,J4)+FINONE(13,N-8,J4)+FINONE(24,N-8,J4)+FINONE(33,N-8,J4)+FINONE(35,N-8,J4) )/C84;
虚94:=( FINONE(11,N-9,J4)+FINONE(12,N-9,J4)+FINONE(13,N-9,J4)+FINONE(24,N-9,J4)+FINONE(33,N-9,J4)+FINONE(35,N-9,J4) )/C94;

险04:=(息04*3.11)+(销04*0.998)+(留04*0.847)+(营04*0.717)+(MIN(4,所04)*0.42)-(虚04*虚04*5)-(Y0*Y0/10000*7);{Y0随J而动}
险14:=(息14*3.11)+(销14*0.998)+(留14*0.847)+(营14*0.717)+(MIN(4,所14)*0.42)-(虚14*虚14*5)-(Y1*Y1/10000*7);{Y1随J而动}
险24:=(息24*3.11)+(销24*0.998)+(留24*0.847)+(营24*0.717)+(MIN(4,所24)*0.42)-(虚24*虚24*5)-(Y2*Y2/10000*7);{Y2随J而动}
险34:=(息34*3.11)+(销34*0.998)+(留34*0.847)+(营34*0.717)+(MIN(4,所34)*0.42)-(虚34*虚34*5)-(Y3*Y3/10000*7);
险44:=(息44*3.11)+(销44*0.998)+(留44*0.847)+(营44*0.717)+(MIN(4,所44)*0.42)-(虚44*虚44*5)-(Y4*Y4/10000*7);
险54:=(息54*3.11)+(销54*0.998)+(留54*0.847)+(营54*0.717)+(MIN(4,所54)*0.42)-(虚54*虚54*5)-(Y5*Y5/10000*7);
险64:=(息64*3.11)+(销64*0.998)+(留64*0.847)+(营64*0.717)+(MIN(4,所64)*0.42)-(虚64*虚64*5)-(Y6*Y6/10000*7);
险74:=(息74*3.11)+(销74*0.998)+(留74*0.847)+(营74*0.717)+(MIN(4,所74)*0.42)-(虚74*虚74*5)-(Y7*Y7/10000*7);
险84:=(息84*3.11)+(销84*0.998)+(留84*0.847)+(营84*0.717)+(MIN(4,所84)*0.42)-(虚84*虚84*5)-(Y8*Y8/10000*7);
险94:=(息94*3.11)+(销94*0.998)+(留94*0.847)+(营94*0.717)+(MIN(4,所94)*0.42)-(虚94*虚94*5)-(Y9*Y9/10000*7);

Q:=4;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.403,1,STRCAT(STRCAT(STRCAT(STRCAT(CON2STR(YZ04,0),'  ( '),STRCAT(CON2STR(YL04/DG,2),' )    [ LXD  ')),STRCAT(CON2STR(LDH,0),'  ')),STRCAT(CON2STR(XDH,0),' ] '))),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.445,1,D04),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.473,1,D14),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.501,1,D24),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.529,1,D34),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.557,1,D44),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.585,1,D54),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.613,1,D64),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.641,1,D74),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.669,1,D84),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.185,0.697,1,D94),COLOR969696;

DRAWTEXT_FIX(PERIOD>Q,0.330,0.403,1,STRCAT(STRCAT(STRCAT('( ',STRCAT(CON2STR(YL03/DG,2),' )    [ LZ  ')),STRCAT(CON2STR(均增4,0),'  ')),STRCAT(CON2STR(均增3,0),' ]'))),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.445,1,D03),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.473,1,D13),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.501,1,D23),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.529,1,D33),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.557,1,D43),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.585,1,D53),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.613,1,D63),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.641,1,D73),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.669,1,D83),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.330,0.697,1,D93),COLOR969696;

DRAWTEXT_FIX(PERIOD>Q,0.518,0.403,1,STRCAT(STRCAT('( ',STRCAT(CON2STR(YL02/DG,2),' )                                        ( ')),STRCAT(CON2STR(YL01/DG,2),' )')) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.445,1,D02),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.473,1,D12),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.501,1,D22),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.529,1,D32),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.557,1,D42),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.585,1,D52),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.613,1,D62),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.641,1,D72),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.669,1,D82),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.461,0.697,1,D92),COLOR969696;

DRAWTEXT_FIX(PERIOD>Q,0.652,0.445,1,STRCAT(STRCAT(D01,STRCAT('       ',CON2STR(险04,2))),STRCAT('  . ',CON2STR(N-0,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.473,1,STRCAT(STRCAT(D11,STRCAT('       ',CON2STR(险14,2))),STRCAT('  . ',CON2STR(N-1,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.501,1,STRCAT(STRCAT(D21,STRCAT('       ',CON2STR(险24,2))),STRCAT('  . ',CON2STR(N-2,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.529,1,STRCAT(STRCAT(D31,STRCAT('       ',CON2STR(险34,2))),STRCAT('  . ',CON2STR(N-3,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.557,1,STRCAT(STRCAT(D41,STRCAT('       ',CON2STR(险44,2))),STRCAT('  . ',CON2STR(N-4,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.585,1,STRCAT(STRCAT(D51,STRCAT('       ',CON2STR(险54,2))),STRCAT('  . ',CON2STR(N-5,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.613,1,STRCAT(STRCAT(D61,STRCAT('       ',CON2STR(险64,2))),STRCAT('  . ',CON2STR(N-6,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.641,1,STRCAT(STRCAT(D71,STRCAT('       ',CON2STR(险74,2))),STRCAT('  . ',CON2STR(N-7,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.669,1,STRCAT(STRCAT(D81,STRCAT('       ',CON2STR(险84,2))),STRCAT('  . ',CON2STR(N-8,0))) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>Q,0.652,0.697,1,STRCAT(STRCAT(D91,STRCAT('       ',CON2STR(险94,2))),STRCAT('  . ',CON2STR(N-9,0))) ),COLOR969696;

DRAWTEXT_FIX(PERIOD>6,0.662,0.403,0,STRCAT('借票  账预 / 薪  息  应 / 票  期  它 ( 债 )  |  借  券  账 / 项  计 / 递  它 ( 非 ) | 有','') ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.445,0,STRCAT(LZH0,FZH0) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.473,0,STRCAT(LZH1,FZH1) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.501,0,STRCAT(LZH2,FZH2) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.529,0,STRCAT(LZH3,FZH3) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.557,0,STRCAT(LZH4,FZH4) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.585,0,STRCAT(LZH5,FZH5) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.613,0,STRCAT(LZH6,FZH6) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.641,0,STRCAT(LZH7,FZH7) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.669,0,STRCAT(LZH8,FZH8) ),COLOR969696;
DRAWTEXT_FIX(PERIOD>6,0.662,0.697,0,STRCAT(LZH9,FZH9) ),COLOR969696;

潘婷婷 · 发表于 2019-7-15 22:05

本帖最后由潘婷婷于 2019-7-16 08:39 编辑

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

潘婷婷 · 发表于 2019-7-15 22:08

本帖最后由潘婷婷于 2019-7-16 08:35 编辑

晕，还有一层楼发出了在审核中，耐心等待。。。。。。等那层楼跟上来丫头再发说明图。免得楼层断开了这个幅图指标不完整。

补充，审核出来了，13，14，15楼为新建一个幅图指标，但是这个指标幅图不能用，显示不够，要叠进主图里面用，鼠标放在主图上反键，主图指标，叠加其他指标

偷偷朵朵 · 发表于 2019-7-15 22:41

感谢潘婷婷！谢谢，真心的。

虽然我坚信技术分析包容一切。

潘婷婷 · 发表于 2019-7-15 23:02

偷偷朵朵发表于 2019-7-15 22:41
感谢潘婷婷！谢谢，真心的。

虽然我坚信技术分析包容一切。

技术丫头也会一点，光会技术有个鬼用，就跟那无头苍蝇乱游荡，没有定力，没有执着。丫头并不反对纯技术，而且相当尊重。
康美咋用技术？一个带日期的截图。

补充内容 (2019-7-25 17:02):
https://bbs.macd.cn/thread-2875651-1-1.html

补充内容 (2019-7-25 17:04):
试一下补充怎么用

东方星 · 发表于 2019-7-15 23:14

顶顶更健康

[讨论] 基本面源代码

基本面源代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

		搜索
热搜: macd K线与均线飞狐分时指标共振指标分时橡胶牛股炒股入门

[讨论] 基本面 源代码

基本面 源代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

[讨论] 基本面源代码

基本面源代码