%%?得到數據
[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）;