MATLAB.rar_信息熵MATLAB_信息熵权_影响评价_权重判断_离散熵值

clear clc x=[389129.4009 410324.2036 440037.0414 139733.0287 127944.6977 125264.8684 402390.1462 342889.3714 342839.3757 ]; 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; %高优指标处理 end end for i=1:n for j=1:m x(i,j)=(b(j)-x(i,j))/(b(j)-a(j))*100; %低优指标处理 end end he=sum(x); for i=1:n for j=1:m p(i,j)=x(i,j)/he(j); end end %指标归一化 for i=1:n for j=1:m if p(i,j)==0 z(i,j)=0; else z(i,j)=log(p(i,j)); end end end e=zeros(1,m); for i=1:1n for j=1:m e(j)=e(j)+p(i,j)*z(i,j)*(-k); end end he=sum(e); for i=1:m g(i)=1-e(i)/(m-he) end for i=1:m w(i)=g(i)/sum(g); %计算权重 end s=zeros(1,n); for i=1:n %计算综合得分 for j=1:m s(i)=s(i)+w(j)*p(i,j); end end t=3; plot(t,s,'b*-')