%%
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种常规方法》，需要电子版学习的请私信。