% 熵值法确定权重

% 确定指标层权重

clear;

clc;

x=[

0.5983	0.6232	0.6473	0.6788	0.5521	0.5949	0.6498	0.6603
55234	70065	40192	30778	25391	19584	13931	17518
-0.2427	-0.0065	0.2371	0.142	0.2401	0.1124	0.0456	-0.16
0.9049	0.9153	0.8716	0.9037	0.8831	0.8752	0.8625	0.8553
177211	199599	221986	244374	266762	289149	311537	333925
1154.92	950.84	646.11	528.88	489.93	442.20	390.64	205.05

  ];

y=[]

[m,n]=size(x);

for i=1:n

    y(:,i)=x(:,i)/sum([x(:,i)])       % 原始矩阵归一化

end

for l=1:n

    s(1,l)=0;

    for j=1:m

        p(1,l)=y(j,l)*log(y(j,l))

        s(1,l)=s(1,l)+p(1,l)

    end

end

k=(log(m))^(-1)

e=-k*s

h=ones(1,n)-e

w=h/sum(h)            % 指标权重值

sum(w)

% 计算综合评价值

g=y*w'