灰色关联度matlab源程序

1、灰色关联度matlab源程序 最近几天一直在写算法，其实网上可以下到这些算法的源程序的，但是为了搞懂，搞清楚，还是自己一个一个的看了，写了，作为自身的积累，而且自己的的矩阵计算类库也迅速得到补充，以后关于算法方面，基本的矩阵运算不用再重复写了，挺好的，是种积累，下面把灰关联的matlab程序与大家分享。灰色关联度分析法是将研究对象及影响因素的因子值视为一条线上的点,与待识别对象及影响因素的因子值所绘制的曲线进行比较,比较它们之间的贴近度,并分别量化,计算出研究对象与待识别对象各影响因素之间的贴近程度的关联度,通过比较各关联度的大小来判断待识别对象对研究对象的影响程度。关联度计算的预处理，一般初

2、值化或者均值化，根据我的实际需要，本程序中使用的是比较序列与参考序列组成的矩阵除以参考序列的列均值等到的，当然也可以是其他方法。%注意：由于需要，均值化方法采用各组值除以样本的各列平均值clear;clc;yangben=47.924375 25.168125 827.4105438 330.08875 1045.164375 261.37437516.3372 6.62 940.2824 709.2752 962.1284 84.87455.69666667 30.80333333 885.21 275.8066667 1052.42 435.81; %样本数据fangzhen=36.27

3、14.59 836.15 420.41 1011.83 189.54 64.73 35.63 755.45 331.32 978.5 257.87 42.44 23.07 846 348.05 1025.4 296.69 59.34 39.7 794.31 334.63 1016.4 317.27 52.91 17.14 821.79 306.92 1141.94 122.04 4.21 4.86 1815.52 2584.68 963.61 0.00 6.01 2.43 1791.61 2338.17 1278.08 30.87 3.01 1.58 1220.54 956.14 1244.7

4、5 3.91 25.65 7.42 790.17 328.88 1026.01 92.82 115.80 27 926.5 350.93 1079.49 544.38 12.63 8.75 1055.50 1379.00 875.10 1.65 ; %待判数据rows,cols=size(fangzhen);p=0.5;    %分辨系数m,n=size(yangben);      R=;for irow=1:rows     yy=fangzhen(irow,:

5、);     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); 

6、;        end     end          for i=2:m+1         for j=1:n             Dij(i-1,j)=abs(data_gyh(1,j)-data

7、_gyh(i,j);         end     end     Dijmax=max(max(Dij);     Dijmin=min(min(Dij);          for i=1:m         for j=1:n

8、60;            Lij(i,j)=(Dijmin+p*Dijmax)/(Dij(i,j)+p*Dijmax);         end     end          LijRowSum=sum(Lij');     

9、0;    for i=1:m         Rij(i)=LijRowSum(i)/n;     end     R=R;Rij;endR推荐精选推荐精选matlab求灰色关联度矩阵源代码 2010-12-11 22:57function greyrelationaldegree(X,c)%GRAYRELATIONALDEGREE this function is used for calculatin

10、g the gery%relation between squence%rememeber that the first column of the input matrix is the desicion%attribution squences.what 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,

11、 the value of c is 0.5firstrow = X(1,:);reci_firstrow = 1./firstrow;reci_convert = diag(reci_firstrow);initialMIRROR = X*reci_convert;% find the initial value mirror of the sequce matrixA = initialMIRROR'nrow,ncolumn = size(A);for (i=2:nrow)    C = A(i,:)-A(1,:)   

12、D=abs(C);    eval('B' num2str(i) '=D');    amax = max(eval('B' num2str(i)    amin = min(eval('B' num2str(i)    maxarray(i-1)=amax    minarray(i-1)=aminend %find the difference squence and the m

13、ax value and min value of each squencemaxmax = max(maxarray)minmin = min(minarray)for(i=2:nrow)    for(j=1:ncolumn)        eval('greyrelationdegree' num2str(i) '(j)=(minmin+c*maxmax)/(B' num2str(i) '(j)+c*maxmax)')  

14、  endend % calculate the greyralational degree of each datafor(i=2:nrow)   eval('greyrelatioanaldegree_value' num2str(i) '= mean (greyrelationdegree' num2str(i) ')'  )   end推荐精选基于matlab灰色关联度计算的实现 2006年07月28日 星期五 上午 11:06function r=incident_d

15、egree(x0,x1) %compute the incident degree for grey model. %Designed by NIXIUHUI,Dalian Fisher University. %17 August,2004,Last modified by NXH at 21 August,2004        %数据初值化处理 x0_initial=x0./x0(1); temp=size(x1); b=repmat(x1(:,1),1 temp(2); x1_initial=x1./b; %分辨系数选择 K=

16、0.1; disp('The grey interconnect degree is: '); x0_ext=repmat(x0_initial,temp(1) 1); contrast_mat=abs(x0_ext-x1_initial); delta_min=min(min(contrast_mat);%delta_min在数据初值化后实际为零 delta_max=max(max(contrast_mat); a=delta_min+K*delta_max; incidence_coefficient=a./(contrast_mat+K*delta_max);%得到关联系

17、数 r=(sum(incidence_coefficient')'/temp(2);      %得到邓氏面积关联度我们根据图1的步骤和图2的数据进行编程实现，程序如下：%清除内存空间等clear;close all;clc;推荐精选%载入源数据    %其实这里可以载入execl表格的n=15;                 &

18、#160;     %参与评价的人数m=4;                        %参与评价的指标个数X_0=zeros(n,m);             %   &#

19、160;      数据矩阵X_2=zeros(n,m);             %偏差结果的求取矩阵X_3=zeros(n,m);             %  相关系数计算矩阵a1_0=13 18 17 18 17 17 18 17 13 17 18 13 18 13 18;a2_0=18 1

20、8 17 17 18 13 17 13 18 13 17 13 13 17 17;a3_0=48.67 43.33 43.56 41.89 39.47 43.44 37.97 41.14 39.67 39.83 34.11 40.58 34.19 30.75 21.22;a4_0=10 10.7 3 5.4 5.4 0.7 4.2 0.5 9.3 0.85 2.9 5.45 4.2 2.7 6;    %指标数X_1=a1_0',a2_0',a3_0',a4_0'   %最后使用到的数据矩阵%1 寻找参考列x0=

21、max(a1_0),max(a2_0),max(a3_0),max(a4_0);   %取每列的最大值（指标的最大值）%2 计算偏差结果i=1;while(i=m+1)                                   %

22、为什么这个地方会出问题呢    for j=1:1:n        X_2(j,i)=abs(X_1(j,i)-x0(i);    end;    i=i+1;end%3 确定偏差的最值error_min=min(min(X_2);error_max=max(max(X_2);推荐精选%4 计算相关系数i=1;p=0.5;while(i=m+1)    for j=1:1:n  

23、60;     X_3(j,i)=(error_min+p*error_max)/(X_2(j,i)+p*error_max);    end;    i=i+1;end%X_3     %可以在此观察关联矩阵%5 计算各个学生的关连序a=zeros(1,n);for j=1:1:n    for i=1:1:m     a(j)=a(j)+X_3(j,i);   %

24、其实可以直接用sum    end;    a(j)=a(j)/m;           %可以改进% 推荐精选1 2 3 下一页%end%a      %在此可以观测各个学生的序 %改进:如果各个指标的所占权重不一样的话,可以添加相应的权系数%6 排序b=a'c,s=sort(b);for i=1:1:n    d(i)=i;endd=d'

25、result=d b c s%7 将结果显示出来figure(1);plot(a);figure(2)bar(a);                  %柱状图推荐精选    最后所得到的结果如图3到图5所示。 图3 程序运行结果图4 曲线图图5 柱状图    根据以上三图我们就可以判断出每个学生序列与参考序列（最大值）之间的关系，与最大值的关系越密切，那么

26、其关联度越大。根据以上的启示，我用matlab灰度关联分析的想法是：1、参考序列我可以选择已知属于某一类神经元的统计数据，我选择平均值。2、加入一个未知类的数据，与已有类中的数据一起计算他们与平均值的关联度。3、计算出来的关联度我们可以有多种处理思路，如果未知类的关联度不是排在最末，可以认为它属于这一类，或者未知类的关联度大于计算出来的关联度平均值，我们可以认为它属于这一类。推荐精选    使用关联度进行分类，计算出来的关联度如何使用还是个问题，这个东西是我琢磨出来的，我还没有见到过相关的文献，估计应该可以用，期望以后的专家学者钻研了。参考文献：1 郝海燕,王斌.

27、大学生综合素质测评的灰色关联分析法J.承德石油高等专科学校学报,2009,11(2):57-59. 上一页 1 2 3 请教一下用MATLAB实现灰色关联分析的程序初始矩阵为x=1.14 1.49 1.69 2.12 2.43 4.32 5.92 6.07 7.85;3.30 3.47 3.61 3.80 4.00 4.19 4.42 4.61 4.80;6.00 6.00 6.00 7.50 7.50 7.50 9.00 9.00 9.00;1.20 1.20 1.80 1.80 1.80 2.40 2.70 3.60 4.00;4.87 5.89 6.76 7.97 8.84 1

28、0.05 11.31 12.25 11.64我写的程序如下:x1=1.14 1.49 1.69 2.12 2.43 4.32 5.92 6.07 7.85;3.30 3.47 3.61 3.80 4.00 4.19 4.42 4.61 4.80;6.00 6.00 6.00 7.50 7.50 7.50 9.00 9.00 9.00;1.20 1.20 1.80 1.80 1.80 2.40 2.70 3.60 4.00;4.87 5.89 6.76 7.97 8.84 10.05 11.31 12.25 11.64%原始数据5行9列x1=xfor i=1:5 for j=1:9 x(i,j)

29、=x(i,j)/x1(1,j) endendx1=xfor i=1:5 for j=1:9 x(i,j)=abs(x(i,j)-x1(i,1) endendmax=x(1,1)min=x(1,1)for i=1:5 for j=1:9推荐精选 if x(i,j)>=max max=x(i,j) end endendfor i=1:5 for j=1:9 if x(i,j)<=min min=x(i,j) end endendk=0.5 %分辨系数取值l=(min+k*max)./(x+k*max)%求关联系数矩阵但是运算错误!请教一下高手问题补充： 楼下回答的不对,那样虽不会运行错

30、误,但得不到正确的答案 怎么没人再给我回答啊555555555其他回答 共1条 4.00;4.87 5.89 6.76 7.97 8.84 10.05 11.31 12.25 11.64%原始数据5行9列 x1=x %有错，应该为 x=x1for i=1:5 灰色关联matlab程序 浏览次数：170次悬赏分：5 | 提问时间：2011-5-25 19:40 | 提问者：zjon111 clear;clc;yangben=12409 15296 18743 22399 26451; %样本数据fangzhen=216314 265810 314045 340903 397983 1.5 4.8

31、 5.9 -0.7 3.3 1184 1204 1113 1102 116811759 13786 15781 17175 19109 38760 51322 61330 68518 83080 109998 137324 172828 224599 278140 推荐精选79145 93572 114830 132678 156998 161587 172534 217885 260772 303302 ; %待判数据rows,cols=size(fangzhen);p=0.5; %分辨系数m,n=size(yangben); R=;for irow=1:rows yy=fangzhen(i

32、row,:); 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);

33、 end end LijRowSum=sum(Lij'); for i=1:m Rij(i)=LijRowSum(i)/n; end R=R;Rij;endR哪里出错了，求高手解答，顺便求结果分析推荐答案 data_gyh1=mean(yangben)得到的是一个数，推荐精选而data_gyh(i,j)=data(i,j)/data_gyh1(j)中data_gyh1(j)你把data_gyh1作为一个数组使用的，所以会出错。追问怎么改合适呢回答其实我不懂灰色关联是什么，所以可能在这个上边帮不了什么忙，你看看灰色关联的原理吧，data_gyh1=mean(yangben)这一句得到的d

34、ata_gyh1就是一个定值，而data_gyh(i,j)=data(i,j)/data_gyh1(j)中需要用到的是什么值呢，你从这方面下手考虑吧。刚搜了一下，看到了跟你这个类似的源程序。他的样本数据是3*6的，所以data_gyh1=mean(yangben)得到是yangben的每一列的均值，而你的yangben是一行的，所以应该直接让data_gyh1=yangben。个人意见，仅供参考。参考资料：基于matlab的灰度关联分析法(2010-09-23 10:12:42) 标签： matlab灰度关联分类分类： matlab相关     做了四天的研究生数

35、学建模，感觉做的很一般，应该是没有很好的深入理解题意，而且对于神经元的背景信息不是很清楚，导致了后面的东西没有时间处理，最后一天的熬夜，终于把论文给赶了出来，第二天从早上十点一觉睡到晚上六点半。推荐精选    关于建模神经元这题主要是分类和聚类问题，前者是类别已知，然后判断测试样本是否为某一类。后者是无监督学习，即么有类别信息和其他先验知识，一般要求满足最大组内相似性和最小组间相似性。我想到了上学期给同学做的一个使用灰度关联分析法进行大学生综合素质评价的东西，下面主要讲一下那个东西是怎么实现的。    多指标综合测评主要有三大类方法：

36、常规数学方法、模糊数学方法、多元统计分析方法。灰色关联分析是灰色系统理论中的一个分支，其对数据的要求不是很严格，不要求数据分布具有特殊规律。下面我按照参考文献1中的内容把综合素质评价的程序给实现。下面是灰度关联法进行综合评价的步骤：图1 灰度关联分析法进行综合测评的步骤推荐精选图2 所使用的综合评价表    我们根据图1的步骤和图2的数据进行编程实现，程序如下：%清除内存空间等clear;close all;clc;%载入源数据    %其实这里可以载入execl表格的n=15;    

37、0;                  %参与评价的人数m=4;                        %参与评价的指标个数X_0=zeros(n,m);   &

38、#160;         %          数据矩阵X_2=zeros(n,m);             %偏差结果的求取矩阵X_3=zeros(n,m);            

39、%  相关系数计算矩阵a1_0=13 18 17 18 17 17 18 17 13 17 18 13 18 13 18;a2_0=18 18 17 17 18 13 17 13 18 13 17 13 13 17 17;a3_0=48.67 43.33 43.56 41.89 39.47 43.44 37.97 41.14 39.67 39.83 34.11 40.58 34.19 30.75 21.22;a4_0=10 10.7 3 5.4 5.4 0.7 4.2 0.5 9.3 0.85 2.9 5.45 4.2 2.7 6;    %指标数X_1

40、=a1_0',a2_0',a3_0',a4_0'   %最后使用到的数据矩阵%1 寻找参考列x0=max(a1_0),max(a2_0),max(a3_0),max(a4_0);   %取每列的最大值（指标的最大值）推荐精选%2 计算偏差结果i=1;while(i=m+1)                     &

41、#160;             %为什么这个地方会出问题呢    for j=1:1:n        X_2(j,i)=abs(X_1(j,i)-x0(i);    end;    i=i+1;end%3 确定偏差的最值error_min=min(min(X_2);error_max=max(max(X_2);%4 计算相关系数i=1;p=0.5;while(i=m+1)    for j=1:1:n &