熵权法(matlab实现)(共2页).doc

clearclcx=;a=min(x);b=max(x);n,m=size(x);k=1/log(n);for i=1:n for j=1:m x(i,j)=(x(i,j)-a(j)/(b(j)-a(j)*100; %高优指标处理 endendfor i=1:n for j=1:m x(i,j)=(b(j)-x(i,j)/(b(j)-a(j)*100; %低优指标处理 endendhe=sum(x);for i=1:n for j=1:m p(i,j)=x(i,j)/he(j); endend %指标归一化for i=1:n for j=1:m if p(i,j)=0 z(i,j)=0; else z(i,j)=lo