%%
load shuju.txt %把原始数据保存在纯文本文件shuju.txt中
shuju=zscore(shuju); %数据标准化
r=corrcoef(shuju); %计算相关系数矩阵
[x,y,z]=pcacov(r);
f=repmat(sign(sum(x)),size(x,1),1); %x工作表中为标准化变量的中成分对应的特征向量,每一列为一种主成分的的系数。
x=x.*f;
df=shuju*x(:,1:4) %z为累计贡献率
tf=df*z(1:4)/100;
[stf,ind]=sort(tf,'descend')
%注意:列为各指标因素,行为待评价事物。
以上内容,部分整理于《数学建模32种常规方法》,需要电子版学习的请私信。