function?main（k）
%?ORL?人臉數(shù)據(jù)集的主成分分析
%
%?輸入：k?---?降至?k?維

%?定義圖像高、寬的全局變量?imgRow?和?imgCol，它們?cè)?ReadFaces?中被賦值
global?imgRow;
global?imgCol;

%?讀入每個(gè)人的前5副圖像
nPerson=40;
nFacesPerPerson?=?5;
display（‘讀入人臉數(shù)據(jù)...‘）;
[imgRowimgColFaceContainerfaceLabel]=ReadFaces（nFacesPerPersonnPerson）;
display（‘..............................‘）;


nFaces=size（FaceContainer1）;%樣本（人臉）數(shù)目
display（‘PCA降維...‘）;
%?LowDimFaces是200*20的矩陣?每一行代表一張主成分臉（共40人，每人5張），每個(gè)臉20個(gè)維特征
%?W是分離變換矩陣?10304*20?的矩陣
[LowDimFaces?W]?=?fastPCA（FaceContainer?20）;?%?主成分分析PCA
visualize_pc（W）;%顯示主成分臉
save（‘Mat/LowDimFaces.mat‘?‘LowDimFaces‘）;
display（‘計(jì)算結(jié)束?！?

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2013-08-02?16:11??PCA_ORL\
?????目錄???????????0??2012-12-12?16:15??PCA_ORL\Data\
?????目錄???????????0??2012-12-12?16:15??PCA_ORL\Data\ORL\
?????目錄???????????0??2013-08-02?16:11??PCA_ORL\Data\ORL\s1\
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\1.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\10.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\2.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\3.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\4.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\5.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\6.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\7.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\8.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s1\9.pgm
?????目錄???????????0??2013-08-02?16:11??PCA_ORL\Data\ORL\s10\
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\1.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\10.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\2.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\3.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\4.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\5.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\6.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\7.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\8.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s10\9.pgm
?????目錄???????????0??2013-08-02?16:11??PCA_ORL\Data\ORL\s11\
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s11\1.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s11\10.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s11\2.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s11\3.pgm
?????文件???????10318??2012-06-23?13:45??PCA_ORL\Data\ORL\s11\4.pgm
............此處省略428個(gè)文件信息