www.gusucode.com > 用matlab实现了五类灰色关联度模型的计算源码程序 > grey_model/gld_deng.m

    % 邓氏关联度
% P12 -- The Study on the Grey Relational Degree and Its Application 

function r1 = gld_deng(x)
s = size(x);
len = s(2);
num = s(1);
ro = 0.5;
% 无量纲化
for i = 1: num
    x(i,:) = x(i,:)./x(i,1);
end
% 求差序列
dx(num,len) = 0;
for i = 2 : num
    for k = 1 : len
        dx(i,k) = abs(x(1,k) - x(i,k));
    end
end
% 求两极最大差与最小差
max_dx = max(max(dx));
min_dx = min(min(dx));
% 计算关联系数
r(1,1:len-1) = 1;
for i = 2 : num
    for k = 1 : len
        r(i,k) = (min_dx + ro*max_dx)/(dx(i,k) + ro*max_dx);
    end
end
% 计算关联度
r1 = sum(r(2:num,:),2)/(len);