五种灰色关联度分析matlab代码(共3页).docx

精选优质文档-----倾情为你奉上
精选优质文档-----倾情为你奉上
专心---专注---专业
专心---专注---专业
精选优质文档-----倾情为你奉上
专心---专注---专业
灰色邓氏关联度分析
% P12 -- T) = 0;
for i = 2 : num
temp = sum(abs(x(i,:) - x(1,:)),2);
for k = 1 : len - 1
beta(i,k) = atan((dx(i,k) - dx(1,k))/(1 + dx(i,k)*dx(1,k)));
if beta(i,k) < 0
beta(i,k) = pi + beta(i,k);
精选优质文档-----倾情为你奉上
精选优质文档-----倾情为你奉上
专心---专注---专业
专心---专注---专业
精选优质文档-----倾情为你奉上
专心---专注---专业
end
w(i,k) = 1 - abs(x(i,k) - x(1,k))/temp;
end
end
r = c./(c + tan(beta./2));
wr = w.*r;
r1 = sum(wr(2:num,:),2)/(len - 1);
灰色绝对关联度分析
% 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);
灰色T型关联度分析
% P19 -- The Study on the Grey Relational Degree and Its Application

function r1 = gld_t(x)
s = size(x);
len = s(2);
num = s(1);
dx(num,len-1) = 0;
for i = 1 : num
for j = 1 : len - 1
dx(i,j) = abs(x(i,j+1) - x(i,j));
end
d_x = sum(dx(i,:),2)/(len - 1);
x(i,:) = x