《五种灰色关联度分析matlab代码》由会员分享，可在线阅读，更多相关《五种灰色关联度分析matlab代码(3页珍藏版)》请在人人文库网上搜索。

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 (23360n。

7、um，)，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 : numFor k=1 : len-1R (I，k)=1/(1 ABS (dx (1，k)/x (1，k 1)-dx (I，k)/x (I，k 1)EndEndR1=sum (r (23360num，)，2)/(len-1。