function [lambda,T,fai]=MSA2(A)%求标准化后的协差矩阵,再求特征根和特征向量%标准化处理[p,n]=size(A);for j=1:nmju(j)=mean(A(:,j));sigma(j)=sqrt(cov(A(:,j)));endfor i=1:pfor j=1:nY(i,j)=(A(i,j)-mju(j))/sigma(j); endendsigmaY=cov(Y);%求X标准化的协差矩阵的特征根和特征向量