求熵值法matlab程序！！！

benfifi

A=[91.45        9.8        0        0        8.125
9 z4 g* `- Y% z% M( v/ k89.98        7        5        0        7.1875
2 C. K  c! `& O* w! {2 m1 W0 M' V( Z$ n82.73        10        5        2        8.75
9 X# M# L, x5 \& W2 k76.82        5        8        0        6.25
& Q) P3 a0 K3 Q$ V7 h76.91        7.6        10        0        9.375
) D0 {' m4 h& G4 D3 j6 E85.22        10        0        6        7.5
80.68        5.5        8        0        8.125
84.59        3        0        0        4.6875
4 H  l5 A) R, {" Q8 f7 l86.05        9.5        5        3        4.375
83.89        10        0        0        5.3125
% T2 a8 D/ y! Q& H) [81.43        1        8        0        7.5
87.15        0.5        0        0        5.625
+ I: L& I' k4 H5 k3 Z73.22        1        0        0        3.75
92.82        10        5        4        9.0625];
[ma,na]=size(A);
; U* S$ _; x2 @* z, w6 N' gB=zeros(1,na);
5 V( m1 e) _4 g0 AP=zeros(1,na);
G=zeros(1,na);
S=zeros(1,ma);
g=0;
5 K3 p" d5 P# ja=0.5;
MAX=max(A);
MIN=min(A);
8 N* K4 ^9 F# s. A' N6 n4 Wfor i=1:ma     
2 g- Z: I2 A8 t5 X1 `$ a; b4 J& n    for j=1:na      
        A(i,j)=((A(i,j)-MIN(j))/(MAX(j)-MIN(j)))*a+(1-a);   %标准化矩阵A
" a$ a& o% T' l7 N' [    end
0 i/ V& F; t9 O" mend
: K) u  C/ I  t3 p. s3 L" ]for j=1:na     
; |/ C4 j3 C1 \    for i=1:ma     
        B(j)=B(j)+A(i,j);
    end
end
for i=1:ma  
    for j=1:na   
        A(i,j)=A(i,j)/B(j)
( f7 \  F$ _* }    end
9 n: O  `' R) e- q' Mend
( K# K3 c! b& L" {for j=1:na
  ]! Q: j2 V0 B% g6 t; A! `+ r    for i=1:ma
) d6 W3 \% J% }# f' J        P(j)=P(j)+A(i,j)*log(A(i,j));
    end
end
. F, D6 H6 o: o: t  lk=1/log(na);
  g- u/ I7 p" l9 L4 ]P=P*(-k)
0 `9 h- }( a1 X: o/ ^+ |for j=1:na   
    G(j)=1-P(j)
    g=g+G(j);
end
0 X& o  Q# |: K/ V9 q) yfor j=1:na  
    b(j)=G(j)/g
end
for i=1:ma
/ [: |$ ~; V0 Y- |    for j=1:na
        S(i)=b(j)*A(i,j)
    end
+ Y2 r, A. c% m6 tend
        
3 ]1 i/ ?0 }; ^9 x* H0 q
  [2 |) x' q9 Y1 W* s


) _. Y) K- V1 p5 l

Reciprocal

谢谢了楼主

逻辑学

商权法是用来做排序的