原始数据
权重值
权重值
主函数代码:
data = xlsread(‘原始数据.xlsx’);
data1=importdata(‘权重值.txt’);
r=relation(data)
z=weight(data1,0.5)
斜率灰色关联度算法代码
function r = relation(data)
a=size(data,1);
b=size(data,2);
x0=data(:,1);
x1=rand(a,b-1);
for i=2:b
x1(:,i-1)=100-250abs(x0-data(:,i))./x0;
end
x2=nanmean(x1);
x3=zeros(a-1,b-1);
r=zeros(1,b-1);
for m=2:b
for j=1:a-1
x3(j,m-1)=1/(1+abs((x0(j+1,1)-x0(j,1))/x0(j+1,1)-(data(j+1,m)-data(j,m))/data(j+1,m)));
end
end
r=x2.(sum(x3)/(a-1));
end
综合变权函数代码
function z = weight(data1, a)
z=sum(data1.data(:,1).(data1.data(:,2).^(a))./…
sum(data1.data(:,1).(data1.data(:,2).^(a-1))))
end