求熵值法matlab程序！！！

w13king

熵值法有固定的程序可以套用的么？


4 }  d! A/ h* U5 R3 q, K9 z各位好心的童鞋。。。
第一次接触这个。。。
不会。。。
希望大家帮帮忙！
6 e" n; a1 }8 ?2 A* p# N# v9 R谢谢~~

逻辑学

商权法是用来做排序的

Reciprocal

谢谢了楼主

benfifi

A=[91.45        9.8        0        0        8.125
- ]6 I6 p  S. r/ R$ h, D89.98        7        5        0        7.1875
% w6 T/ w( e' t8 H82.73        10        5        2        8.75
76.82        5        8        0        6.25
( q0 t/ W! s: a4 l76.91        7.6        10        0        9.375
4 t: g# x% w) d85.22        10        0        6        7.5
80.68        5.5        8        0        8.125
, S  c1 e7 d' I* r1 O84.59        3        0        0        4.6875
% E1 H. h# H6 h9 i86.05        9.5        5        3        4.375
* ~( I, w& m$ M$ ?! O83.89        10        0        0        5.3125
( C. `0 \# t' U6 e3 q( t81.43        1        8        0        7.5
87.15        0.5        0        0        5.625
$ F4 s, p# n6 p! a2 E# A73.22        1        0        0        3.75
( h# W: C' J+ o92.82        10        5        4        9.0625];
2 y. V# M2 B* h6 `, w0 X[ma,na]=size(A);
B=zeros(1,na);
P=zeros(1,na);
G=zeros(1,na);
S=zeros(1,ma);
+ k5 U, `( L$ A# `g=0;
a=0.5;
MAX=max(A);
/ P/ j; B& Q( u- h2 GMIN=min(A);
  U* G3 o4 a$ I4 J: i5 x/ Ffor i=1:ma     
    for j=1:na      
        A(i,j)=((A(i,j)-MIN(j))/(MAX(j)-MIN(j)))*a+(1-a);   %标准化矩阵A
    end
) O# z$ A1 j* w8 ~5 f' Y+ Eend
for j=1:na     
3 p; Q$ m0 Q& X6 @. ?. C    for i=1:ma     
        B(j)=B(j)+A(i,j);
6 A  R/ J) \2 g9 x4 ]5 t" t    end
end
9 Y: S6 E6 Y  C( Q$ [for i=1:ma  
    for j=1:na   
        A(i,j)=A(i,j)/B(j)
' D. K. B& ]' P8 q8 m* B    end
end
9 ^* A3 ~" F, t( U9 Ifor j=1:na
" a/ K, ]) H! x( K' F6 m" I    for i=1:ma
. l% J4 _, T) B4 ]0 |        P(j)=P(j)+A(i,j)*log(A(i,j));
4 s+ p6 k+ Z! q5 ~7 m7 h9 N    end
0 ]6 W8 o  y7 m! e# Aend
k=1/log(na);
P=P*(-k)
  p8 N& T2 ]2 [% i( F( j0 X/ ~for j=1:na   
    G(j)=1-P(j)
    g=g+G(j);
end
' ~: L; d: z$ P, C  z2 s9 gfor j=1:na  
    b(j)=G(j)/g
9 m+ Z# D- I2 W+ d8 C' Yend
for i=1:ma
    for j=1:na
. M3 ?1 o9 @4 l& X        S(i)=b(j)*A(i,j)
    end
end
        

1 O: `% r- P: B

$ _7 n8 P' C8 r" z4 }8 q; k6 i% a
' [4 h/ F( h* f

谢凌风

求高人指点。

小p才

真是好东西啊。。。。。

crystal9

希望可以有啊。。。我也要。。。

w13king

就是那个 纯净水安全监控问题
这是我们的大概方法。。。
; l, G& J! N( b& F3 R1.对于问题1，通过分析首先确定各危害指标的权值，这里我们采取两种确定方法，即主成分分析和专家评定，考虑到因专家评定带有主观因素与事实可能不符，进一步用主成分分析法，依照客观数据给出结果，对两种方法进行综合考虑，取其平均值作为最终的权重。在此基础上建立了纯净水安全风险检测的科学评价模型，并对该城区所有批次的纯净水进行评判排序。
. r) y! Z# Y: Y, N5 x3 l2.对于问题2，在问题一模型的基础上，按照每个公司各项危害指标的平均值最为该公司的危险指标，利用问题1的模型求出各公司的风险度，并进行排序。依据各公司的各项危害指标及风险度，分析公司共产品的主要可能的危害因素。
& t3 a$ }. g8 M% E2 }  Z4 S3.首先筛选出不合格的样品，根据问题一中建立的科学评价模型对其进行成因分析。利用熵值法求出各危害因素在生产流通环节上所占的权重。评价各个危害指标的分布规律。最后，通过四类危害指标的分析，讨论出A、B、D公司的管理情况。
9 u* D( e5 s# o% V/ i& O& W' u
6 {; F  G, S" h# I, g9 I就是不知道那个熵值法怎么编程啊。。。

ykl126

大哥呀，下次说清楚一些好不

熙123

我也不知道呀！！无力！！