熵权法matlab.zip

熵权法是一种客观赋权方法。在具体使用过程中，熵权法根据各指标的变异程度，利用信息熵计算出各指标的熵权，再通过熵权对各指标的权重进行修正，从而得出较为客观的指标权重。

%清空内存变量与工作空间，以防干扰
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