灰色关联度matlab源程序.docVIP

灰色关联度matlab源程序 最近几天一直在写算法，其实网上可以下到这些算法的源程序的，但是为了搞懂，搞清楚，还是自己一个 一个的看了，写了，作为自身的积累，而且自己的的矩阵计算类库也迅速得到补充，以后关于算法方面， 基本的矩阵运算不用再重复写了，挺好的，是种积累，下面把灰关联的 matlab程序与大家分享。 灰色关联度分析法是将研究对象及影响因素的因子值视为一条线上的点 ，与待识别对象及影响因素的因子 值所绘制的曲线进行比较，比较它们之间的贴近度，并分别量化，计算岀研究对象与待识别对象各影响因素 之间的贴近程度的关联度，通过比较各关联度的大小来判断待识别对象对研究对象的影响程度。 关联度计算的预处理，一般初值化或者均值化，根据我的实际需要，本程序中使用的是比较序列与参考序 列组成的矩阵除以参考序列的列均值等到的，当然也可以是其他方法。 魁意：由于需要，均值化方法采用各组值除以样本的各列平均值 clear;clc; yangben=[ 55. 30. ]；%样本数据 fangzhen=[ 846 27 ];%待判数据 [rows,cols]=size(fangzhen); p=; %分辨系数 [m,n]=size(yangben); R=【］； for irow=1:rows yy=fangzhen(irow,:); data=[yy;yangben]; data_gyh1=mean(yangben) for i=1:m+1 for j=1:n data_gyh(i,j)=data(i,j)/data_gyh1(j); end end for i=2:m+1 for j=1:n Dij(i-1,j)=abs(data_gyh(1,j)-data_gyh(i,j)); end end Dijmax=max(max(Dij)); Dijmin=min(min(Dij)); for i=1:m for j=1:n Lij(i,j)=(Dijmin+p*Dijmax)/(Dij(i,j)+p*Dijmax); end end LijRowSum=sum(L『)； for i=1:m Rij(i)=LijRowSum(i)/n; end R=[R;Rij]; end R matlab求灰色关联度矩阵源代码 2010-12-11 22:57 function greyrelati on aldegree(X,c) %GRAYRELATIONALDEGREE this fun ctio n is used for calculat ing the gery %relati on betwee n sque nee %rememeber that the first colu mn of the in put matrix is the desici on %attribution we want to calculate is the grey ralational degree between %it and other attributions %X is the squence matrix, c is the parameter used in the function %in most of the time, the value of c is firstrow = X(1,:); reci_firstrow = 1./firstrow; reci_c onvert = diag(reci_firstrow); in itialMIRROR = X*reci_c on vert;% find the in itial value mirror of the sequce matrix A = in itialMIRROR [n row, ncolu mn] = size(A); for (i=2:n row) C = A(i,:)-A(1,:) D=abs(C); eval([B nu m2str(i) =D]); amax = max(eval([B num2str(i)])) amin = min(eval([B num2str(i)])) maxarray(i-1)=amax min array(i-1)=am in end %find the differe nce sque nce and the max value and min value of each sque nce maxmax = max(maxarray) mi nmin = min( mi narray) for(i=2: nrow) for(j=1: ncolu mn) eval([greyrelati on degree nu m2str(i)