%清空內存變量與工作空間，以防干擾
clear;
clc;

%從Excel文件中讀取參與評價的方案的原始數據
%將原始數據按照規定格式輸入到data_entropy.xls中
%將數據文件data_entropy.xls存放到MATLAB的當前工作目錄下

disp（‘請在彈出的Excel文件data_entropy.xls中，選擇評價指標的指示值‘）
%L存放各指標的指示值
L=xlsread（‘data_entropy.xls‘-1）;

disp（‘請在彈出的Excel文件data_entropy.xls中，選擇各評價方案的指標值‘）
%X存放各評價方案的指標數據
X=xlsread（‘data_entropy.xls‘-1）;

%計算參與評價的方案數和指標數
%m表示評價方案個數
%n表示指標個數
[mn]=size（X）;

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


%給第j項指標對不同評價對象求和得sumR
sumR=sum（R）;
%初始化特征比重矩陣p
p=ze

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