%%?得到數(shù)據(jù)
[filenamepathname]?=?uigetfile（{‘*.xlsx‘;‘*.xls‘}‘Open?a?File‘）;%%?filename為文件名稱，pathname是路徑名稱。???
if?filename?==?0
????return
end
?data?=?xlsread（[pathnamefilename]‘Sheet1‘）;
?[n1?n2]?=?size（data）;%n1行數(shù)n2列數(shù)
?y?=?zeros（n1n2）;
?
?%%?數(shù)據(jù)標(biāo)準(zhǔn)化
?for?i?=?1:n1
?????for?j?=?1:n2
?????????y（ij）?=?（data（ij）?-?min（data（:j）））/（max（data（:j））-min（data（:j）））;
?????end
?end
?
?%%?求各指標(biāo)的信息熵
?p?=?zeros（n1n2）;
?h?=?sum（y）;