【源代码】信息熵法算权重

function ww=xxs(RD,n,m)
%1、无量纲规范矩阵RD
%2、计算每个指标的熵值
k=1/log(n);

for i=1:m
    for j=1:n
        f(j,i)=RD(j,i)/sum(RD(:,i));
        temp(j,i)=f(j,i)*log(f(j,i)); 	
    end
    H(i)=-k*sum(temp(:,i));
end

%3、计算每个指标的熵权值
sum_H=0;
for i=1:m
    sum_H=sum_H+(1-H(i));
end
ww=(1-H)/sum_H; %ww为向量