%清空內(nèi)存變量與工作空間，以防干擾
clear;
clc;

%從Excel文件中讀取參與評(píng)價(jià)的方案的原始數(shù)據(jù)
%將原始數(shù)據(jù)按照規(guī)定格式輸入到data_entropy.xls中
%將數(shù)據(jù)文件data_entropy.xls存放到MATLAB的當(dāng)前工作目錄下

disp（‘請(qǐng)?jiān)趶棾龅腅xcel文件data_entropy.xls中，選擇評(píng)價(jià)指標(biāo)的指示值‘）
%L存放各指標(biāo)的指示值
L=xlsread（‘data_entropy.xls‘-1）;

disp（‘請(qǐng)?jiān)趶棾龅腅xcel文件data_entropy.xls中，選擇各評(píng)價(jià)方案的指標(biāo)值‘）
%X存放各評(píng)價(jià)方案的指標(biāo)數(shù)據(jù)
X=xlsread（‘data_entropy.xls‘-1）;

%計(jì)算參與評(píng)價(jià)的方案數(shù)和指標(biāo)數(shù)
%m表示評(píng)價(jià)方案?jìng)€(gè)數(shù)
%n表示指標(biāo)個(gè)數(shù)
[mn]=size（X）;

%標(biāo)準(zhǔn)化矩陣X后得到R
R=zeros（mn）;
for?i=1:m
????for?j=1:n
????????%根據(jù)指標(biāo)指示值判斷是越大越優(yōu)型指標(biāo)還是越小越優(yōu)型指標(biāo)
????????if?L（j）==1
????????????%越大越優(yōu)型指標(biāo)的標(biāo)準(zhǔn)化
????????????R（ij）=（X（ij）-min（X（:j）））/（max（X（:j））-min（X（:j）））;
????????else
????????????%越小越優(yōu)型指標(biāo)的標(biāo)準(zhǔn)化
????????????R（ij）=（max（X（:j））-X（ij））/（max（X（:j））-min（X（:j）））;
????????end
????end
end


%給第j項(xiàng)指標(biāo)對(duì)不同評(píng)價(jià)對(duì)象求和得sumR
sumR=sum（R）;
%初始化特征比重矩陣p
p=ze

?屬性????????????大小?????日期????時(shí)間???名稱(chēng)
-----------?---------??----------?-----??----
?????目錄???????????0??2019-05-16?11:47??熵權(quán)法（matlab）\
?????文件???????17408??2010-08-28?21:59??熵權(quán)法（matlab）\data_entropy.xls
?????文件????????1634??2010-09-17?15:59??熵權(quán)法（matlab）\entropy.m
?????文件???????20480??2019-05-01?21:26??熵權(quán)法（matlab）\熵權(quán)法MATLAB代碼.doc