熵权法求权重 matlab程序

%% 得到数据
[filenamepathname] = uigetfile（{‘*.xlsx‘;‘*.xls‘}‘Open a File‘）;%% filename为文件名称，pathname是路径名称。   
if filename == 0
    return
end
 data = xlsread（[pathnamefilename]‘Sheet1‘）;
 [n1 n2] = size（data）;%n1行数n2列数
 y = zeros（n1n2）;
 
 %% 数据标准化
 for i = 1:n1
     for j = 1:n2
         y（ij） = （data（ij） - min（data（:j）））/（max（data（:j））-min（data（:j）））;
     end
 end
 
 %% 求各指标的信息熵
 p = zeros（n1n2）;
 h = sum（y）;