五种灰色关联度分析matlab代码

1、灰色邓关联分析% p12-the study on the grey relational degree and its applicationfunction r1=gld_deng(x)s=size(x)；len=s(2)；num=s(1)；ro=0.5for i=1: numx(i，)=x(i，)。/x(i，1)；enddx(num，len)=0；for i=2 : numfor k=1 : lendx(i，k)=abs(x(1，k)-x(i，k)；endendmax _ dx=max(max(dx)；min _ dx=min(min(dx)；r(1，1: len-1)=1；for i=

2、2 : numfor k=1 : lenr (i，k)=(min _ dxro * max _ dx)/(dx (i，k)ro * max _ dx)；endendr1=sum (r (23360num，)，2)/(len)；灰色绝对相关分析的改进% p11-the study on the grey relational degree and its applicationfunction r1=gld_gjjd(x)s=size(x)；len=s(2)；num=s(1)；for i=1: numx(i，)=x(i，)。/x(i，1)；enddx(num，len-1)=0；for i=1 :

3、 numfor j=1 : len-1dx(i，j)=x(i，j 1)-x(i，j)；endendc=1；beta(1，1: len-1)=0；w(1，1: len-1)=0；for i=2 : numtemp=sum (abs (x (i，)-x (1，)2)；for k=1 : len-1beta(i，k)=atan (dx (i，k)-dx (1，k)/(1dx (i，k) * dx (1，k)if beta(i，k) 0beta(i，k)=pi beta(i，k)；endw (i，k)=1-abs (x (i，k)-x (1，k)/temp；endendr=c ./(c tan(bet

4、a ./2)；wr=w . * r；r1=sum (wr (2330num，)，2)/(len-1)；灰色绝对相关分析% p18-the study on the grey relational degree and its applicationfunction r1=gld_jd(x)s=size(x)；len=s(2)；num=s(1)；for i=1: numx(i，)=x(i，)。/x(i，1)；enddx(num，len-1)=0；for i=1 : numfor j=1 : len-1dx(i，j)=x(i，j 1)-x(i，j)；endendr(1，1: len-1)=1；fo

5、r i=2 : numfor k=1 : len-1r(i，k)=1/(1 abs(dx(1，k)-dx(i，k)；endendr1=sum (r (23360num，)，2)/(len-1)；灰色t型关联分析% p19-the study on the grey relational degree and its applicationfunction r1=gld_t(x)s=size(x)；len=s(2)；num=s(1)；dx(num，len-1)=0；for i=1 : numfor j=1 : len-1dx(i，j)=abs(x(i，j 1)-x(i，j)；endd_x=sum

6、(dx(i，)，2)/(len-1)；x(i，)=x(i，)。/d _ x；enddx(num，len-1)=0；for i=1 : numfor j=1 : len-1dx(i，j)=x(i，j 1)-x(i，j)；endendr(1，1: len-1)=1；for i=2 : numfor k=1 : len-1if dx(1，k)*dx(i，k)=0r(i，k)=sign(dx(1，k)*dx(i，k)；elser (i，k)=sign (dx (1，k) * dx (i，k) * min (abs (dx (1，k)，abs (dx)endendendr1=sum (r (23360num，)，2)/(len-1)；灰色梯度相关分析% p20-the study on the grey relational degree and its applicationfunction r1=gld_xl(x)s=size(x)；len=s(2)；num=s(1)；for i=1: numx(i，)=x(i，)。/x(i，1)；enddx(num，len-1)=0；for i=1 : numfor j=1 : len-1dx(i，j)=x(i，j 1)-x(i，j)；endendr(1，1: len-1)=1；for i=2 : num