function?main（）
%*************主成份分析************
%讀入文件數據
X=load（‘\\data.txt‘）;

%==========方法1:求標準化后的協差矩陣再求特征根和特征向量=================
%標準化處理
[pn]=size（X）;
for?j=1:n
????mju（j）=mean（X（:j））;
????sigma（j）=sqrt（cov（X（:j）））;
end
for?i=1:p
????for?j=1:n
????????Y（ij）=（X（ij）-mju（j））/sigma（j）;?
????end
end
sigmaY=cov（