www.gusucode.com > 用matlab实现了五类灰色关联度模型的计算源码程序 > grey_model/gld_jd.m
% 绝对关联度 % P18 -- The Study on the Grey Relational Degree and Its Application function r1 = gld_jd(x) s = size(x); len = s(2); num = s(1); % 无量纲化 for i = 1: num x(i,:) = x(i,:)./x(i,1); end % 求一阶差分 dx(num,len-1) = 0; for i = 1 : num for j = 1 : len - 1 dx(i,j) = x(i,j+1) - x(i,j); end end % 计算关联系数 r(1,1:len-1) = 1; for i = 2 : num for k = 1 : len - 1 r(i,k) = 1/(1 + abs(dx(1,k) - dx(i,k))); end end % 计算关联度 r1 = sum(r(2:num,:),2)/(len - 1);