求熵值法matlab程序！！！

w13king

熵值法有固定的程序可以套用的么？
7 H- k6 F6 E  O/ T3 @7 K1 l' ?. c

各位好心的童鞋。。。
3 l" o, D4 N2 ^! s, v0 ~第一次接触这个。。。
不会。。。
- r' i( s- q$ C" z/ d希望大家帮帮忙！
5 ?! \/ J' |2 `7 g谢谢~~

逻辑学

商权法是用来做排序的

Reciprocal

谢谢了楼主

benfifi

A=[91.45        9.8        0        0        8.125
89.98        7        5        0        7.1875
- W$ y, X% s7 D( F/ c4 [& \- w82.73        10        5        2        8.75
; w% F# G) G% n4 z% Z9 q) [76.82        5        8        0        6.25
76.91        7.6        10        0        9.375
, L4 p( v% _2 @3 G& k  M85.22        10        0        6        7.5
( d+ V+ S+ t0 P# p& \0 F3 _' C80.68        5.5        8        0        8.125
84.59        3        0        0        4.6875
86.05        9.5        5        3        4.375
83.89        10        0        0        5.3125
+ ]9 @, ^2 ?- f& E# Y4 ]81.43        1        8        0        7.5
, I3 p  P5 I$ K  _87.15        0.5        0        0        5.625
3 y: {; j" U  F+ f# k$ y73.22        1        0        0        3.75
92.82        10        5        4        9.0625];
; n7 U6 e: V4 n0 Z; l' \! m) X[ma,na]=size(A);
B=zeros(1,na);
9 y8 T$ Z' G, SP=zeros(1,na);
G=zeros(1,na);
S=zeros(1,ma);
g=0;
a=0.5;
+ G2 O1 S0 Q( v0 b) v" w- MMAX=max(A);
MIN=min(A);
for 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
for j=1:na     
    for i=1:ma     
* m* V- s4 u% B- P: x9 R1 s        B(j)=B(j)+A(i,j);
    end
end
for i=1:ma  
    for j=1:na   
, @2 U, H, c( p! [5 e, t3 `8 `5 F        A(i,j)=A(i,j)/B(j)
    end
6 y, Y6 T- r1 V$ I! Fend
4 q6 {0 n' d0 c  @* {- }+ qfor j=1:na
    for i=1:ma
/ Z+ E2 l- l0 K: U1 h        P(j)=P(j)+A(i,j)*log(A(i,j));
8 @* X# @$ [$ Q% g; Y( O    end
/ d: Z# V- R! H) J) G- Mend
8 j$ t* A( u3 V8 C; N9 Ok=1/log(na);
5 ^" ?- V7 |& D. u! s5 O; yP=P*(-k)
# |7 [2 t" _! I4 P: Ufor j=1:na   
    G(j)=1-P(j)
    g=g+G(j);
# T) P6 U* O( X( Jend
for j=1:na  
    b(j)=G(j)/g
end
for i=1:ma
0 Z, C9 r1 S, h: _; x4 o  Q4 Z" ^    for j=1:na
$ P3 L9 H4 V' t. e/ l$ E        S(i)=b(j)*A(i,j)
    end
end
        
9 k& s5 O3 J! V6 j6 @( D
. ?6 Y! S- M( G, _2 E
# T6 e4 L! q% D

谢凌风

求高人指点。

小p才

真是好东西啊。。。。。

crystal9

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

w13king

就是那个 纯净水安全监控问题
这是我们的大概方法。。。
1.对于问题1，通过分析首先确定各危害指标的权值，这里我们采取两种确定方法，即主成分分析和专家评定，考虑到因专家评定带有主观因素与事实可能不符，进一步用主成分分析法，依照客观数据给出结果，对两种方法进行综合考虑，取其平均值作为最终的权重。在此基础上建立了纯净水安全风险检测的科学评价模型，并对该城区所有批次的纯净水进行评判排序。
2.对于问题2，在问题一模型的基础上，按照每个公司各项危害指标的平均值最为该公司的危险指标，利用问题1的模型求出各公司的风险度，并进行排序。依据各公司的各项危害指标及风险度，分析公司共产品的主要可能的危害因素。
3.首先筛选出不合格的样品，根据问题一中建立的科学评价模型对其进行成因分析。利用熵值法求出各危害因素在生产流通环节上所占的权重。评价各个危害指标的分布规律。最后，通过四类危害指标的分析，讨论出A、B、D公司的管理情况。

0 z% C2 r! q' ^8 Y; l# n就是不知道那个熵值法怎么编程啊。。。

ykl126

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

熙123

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