《五种灰色关联度分析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。