function shangquan(A)
%标准化
LA=min(min(A));
UA=max(max(A));
A=(A-LA)/(UA-LA);
%计算各指标的信息熵
[m,n]=size(A);
P=zeros(m,n);
Q=zeros(m,n);
lam=1/log(n);
H=zeros(m,1);
for i=1:m
P(i,:)=A(i,:)/sum(A(i,:));
for j=1:n
if P(i,j)~=0
Q(i,j)=P(i,j)*log(P(i,j));
end
end
H(i)=-lam*sum(Q(i,:));
end
%确定各指标的变异度
D=1-H;
%确定各指标熵权
W=D/sum(D);
disp(W);
end