求熵值法matlab程序！！！

benfifi

A=[91.45        9.8        0        0        8.125
, ^6 B0 N8 X9 J% c; K89.98        7        5        0        7.1875
82.73        10        5        2        8.75
; a, r' H" m/ }7 d4 J' W6 E8 N76.82        5        8        0        6.25
/ p9 Y5 W: |& |76.91        7.6        10        0        9.375
6 p' e' c" Y$ @) m: R5 u* _85.22        10        0        6        7.5
80.68        5.5        8        0        8.125
84.59        3        0        0        4.6875
2 x# r) ?& \, u+ s7 k) }3 j86.05        9.5        5        3        4.375
83.89        10        0        0        5.3125
81.43        1        8        0        7.5
87.15        0.5        0        0        5.625
2 ~7 H- e) x) l1 R: i# ]1 `73.22        1        0        0        3.75
92.82        10        5        4        9.0625];
& [2 d2 e2 k! D7 c5 s* K" ?[ma,na]=size(A);
B=zeros(1,na);
P=zeros(1,na);
6 ^' p0 s: K9 G) y- p: NG=zeros(1,na);
3 W+ R" {3 n- T* G! mS=zeros(1,ma);
g=0;
- u; M( i# l9 Z. f2 q) y: A% Q1 i. oa=0.5;
MAX=max(A);
) |4 E4 o. a$ K3 }MIN=min(A);
! L' \" f, O  r- z1 G2 o6 cfor i=1:ma     
8 \1 E% W+ z/ `  D7 @    for j=1:na      
% G* D0 O* x9 K/ q        A(i,j)=((A(i,j)-MIN(j))/(MAX(j)-MIN(j)))*a+(1-a);   %标准化矩阵A
7 y, ^1 o/ s) w8 |' v3 D, U: d  b/ L1 t    end
* R' L/ N  V& b! z7 L# x" h7 Oend
( J% r& f9 K1 w) Z$ mfor j=1:na     
    for i=1:ma     
1 h  O* m8 ~3 Q' C; ]        B(j)=B(j)+A(i,j);
    end
end
  O2 ^/ M" c4 G5 _: t, V% gfor i=1:ma  
    for j=1:na   
        A(i,j)=A(i,j)/B(j)
. Y: b1 B. b* K' h6 N3 z' @9 S    end
2 T# `6 V+ S2 A+ U. H0 Nend
for j=1:na
    for i=1:ma
        P(j)=P(j)+A(i,j)*log(A(i,j));
0 |, v& Q6 d/ A3 a, z4 U    end
5 N/ @9 b' _2 v# Kend
+ n3 w) [( B# f9 i# U3 F  Gk=1/log(na);
P=P*(-k)
0 Z. d6 B: Z6 d4 m/ _2 i, P! Cfor j=1:na   
    G(j)=1-P(j)
# l' T6 c3 D" p. x4 z. _, [    g=g+G(j);
end
for j=1:na  
    b(j)=G(j)/g
end
for i=1:ma
  q* c  S2 F) {- D5 c' G0 r    for j=1:na
% u; P% l/ f% O+ T' `9 L" \% Q5 C" Q! ?        S(i)=b(j)*A(i,j)
    end
end
        




: X$ G% l7 G. z) H7 K

Reciprocal

谢谢了楼主

逻辑学

商权法是用来做排序的