求熵值法matlab程序！！！

benfifi

A=[91.45        9.8        0        0        8.125
3 M) c1 p+ l: M( {! u/ ?5 U! X89.98        7        5        0        7.1875
' C% v7 E+ V( f. l5 O6 k82.73        10        5        2        8.75
76.82        5        8        0        6.25
! z& k- C7 {( ?76.91        7.6        10        0        9.375
85.22        10        0        6        7.5
( y% Z/ D) |: e4 D6 w80.68        5.5        8        0        8.125
84.59        3        0        0        4.6875
- E; {2 V9 i5 P' @86.05        9.5        5        3        4.375
8 @; m" u( R& t  b: X0 P83.89        10        0        0        5.3125
81.43        1        8        0        7.5
" p% ], N# F3 y# \5 ^) g( h, T87.15        0.5        0        0        5.625
. N8 p: u' J0 w/ j, T) ~73.22        1        0        0        3.75
+ m6 ?7 R, P4 o9 B! N; L$ P92.82        10        5        4        9.0625];
[ma,na]=size(A);
+ Y" P2 y" }9 f9 \* i1 @B=zeros(1,na);
1 X9 O$ X- p: C. l/ e% T, BP=zeros(1,na);
% }* b0 j( O: }2 |3 W, gG=zeros(1,na);
S=zeros(1,ma);
* b+ K2 |5 o) h0 j) X0 }; Ug=0;
- O) @0 X. _9 wa=0.5;
. H/ H% F' F& n* ?" QMAX=max(A);
MIN=min(A);
; o5 ]( w% ~$ `9 \2 U. w' cfor i=1:ma     
    for j=1:na      
        A(i,j)=((A(i,j)-MIN(j))/(MAX(j)-MIN(j)))*a+(1-a);   %标准化矩阵A
    end
end
' ]/ |) B+ I. [$ a& p- ~for j=1:na     
    for i=1:ma     
        B(j)=B(j)+A(i,j);
0 O  F) D0 V$ U1 a& `7 O    end
( m) E( A2 k5 _# Xend
for i=1:ma  
    for j=1:na   
( P" j/ p0 q9 M$ B$ K  y; t: e3 R        A(i,j)=A(i,j)/B(j)
    end
end
for j=1:na
6 Y5 w- v1 z9 V& J/ s8 ]    for i=1:ma
: H6 \; U$ \- f* _1 M        P(j)=P(j)+A(i,j)*log(A(i,j));
; u5 v; E) I, C  b- C8 c    end
end
; H8 x' B( z! h/ S8 hk=1/log(na);
P=P*(-k)
' w" D: ~8 Y. y4 ?for j=1:na   
    G(j)=1-P(j)
5 ?; g7 d* l, V! \+ t, J    g=g+G(j);
end
for j=1:na  
! m, r" U  H1 }4 n. H# }    b(j)=G(j)/g
end
for i=1:ma
! r' x" l( j) c: _. Z    for j=1:na
        S(i)=b(j)*A(i,j)
    end
end
5 P& T7 Q. o8 g9 W. H/ j5 y        
+ Y! y2 R; d" a& ]7 H( B" i
8 U2 @5 J0 I. }/ J, M8 I


; V! f% x8 S5 x% a8 H" r3 M7 h  w

Reciprocal

谢谢了楼主

逻辑学

商权法是用来做排序的