求熵值法matlab程序！！！

benfifi

A=[91.45        9.8        0        0        8.125
89.98        7        5        0        7.1875
82.73        10        5        2        8.75
76.82        5        8        0        6.25
2 p/ j/ s* R' o+ k76.91        7.6        10        0        9.375
4 H3 u! m2 `1 r85.22        10        0        6        7.5
) n  O( `$ \% L* z; n' l. S80.68        5.5        8        0        8.125
: j" o+ Q) N; O; q. u0 ~8 j84.59        3        0        0        4.6875
4 D0 b) d. F6 n. P( }86.05        9.5        5        3        4.375
83.89        10        0        0        5.3125
4 \6 P9 b2 s/ e! [81.43        1        8        0        7.5
& e: E7 M# O) j  ^8 ~87.15        0.5        0        0        5.625
73.22        1        0        0        3.75
2 z7 A& y' P4 `92.82        10        5        4        9.0625];
3 T0 S1 f& G2 `, v[ma,na]=size(A);
B=zeros(1,na);
P=zeros(1,na);
G=zeros(1,na);
# V: X3 o/ d( s9 v* aS=zeros(1,ma);
" ~! v4 n; `' O3 p0 d! G; tg=0;
8 T; c5 X$ ~& p9 u3 K' Ra=0.5;
0 v  s$ H3 A8 Q3 @" i$ GMAX=max(A);
: ?; k2 O3 \$ F: d1 H/ ^MIN=min(A);
for i=1:ma     
    for j=1:na      
: b- a, V/ F# K3 A$ q1 M) O        A(i,j)=((A(i,j)-MIN(j))/(MAX(j)-MIN(j)))*a+(1-a);   %标准化矩阵A
    end
5 L4 ?6 p  z! Lend
- Q* P! ]- M9 B* q& efor j=1:na     
    for i=1:ma     
8 t3 n" \" x( D; A! c: ^! a        B(j)=B(j)+A(i,j);
& C7 b9 k, y8 M! v    end
end
for i=1:ma  
4 B0 G4 s4 l1 w7 `    for j=1:na   
        A(i,j)=A(i,j)/B(j)
9 ?4 z% `9 z0 M# ?6 x2 {    end
0 N0 u4 J) l* C1 E1 N+ Uend
for j=1:na
    for i=1:ma
3 j# d. q+ k  I7 Q: N7 j        P(j)=P(j)+A(i,j)*log(A(i,j));
. }) p  R; |" ?5 N    end
end
k=1/log(na);
P=P*(-k)
: J& S+ Y' a$ f+ {) j2 pfor j=1:na   
1 u% x% s( \" F( d    G(j)=1-P(j)
    g=g+G(j);
end
for j=1:na  
    b(j)=G(j)/g
end
for i=1:ma
    for j=1:na
        S(i)=b(j)*A(i,j)
# Y. U9 H5 I3 j- u" c4 v- T    end
end
        
4 ?. |* T3 _, s* S5 X; I9 V



% E' G  u0 C/ h3 @2 `4 l% h

Reciprocal

谢谢了楼主

逻辑学

商权法是用来做排序的