%?本程序采用2級PCA提取特征，最小藕歐距離分類器進行人臉識別，實驗數據為orl人臉庫。
%
%?本文作為我從事模式識別研究的開始，留下此代碼作為見證。
%
%?由于Matlab軟件是初次使用，很多函數還不是很熟識，所以代碼的執行效率可能不夠高，本代碼僅供參考。
%
%??參考文獻：J.?Yang?D.?Zhang?A.F.?Frangi?J.Y.?Yang?Two-dimensional?PCA:?a?new?approach?to?appearancebased?face?representation?and?recognition?IEEE?Trans.?Pattern?Anal.?Mach.?Intell.?26?（1）?（2004）
%?131–137.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%This?program?is?writen?by?zhangming?on?2009-5-10
%this?is?my?homeworke?of?machine?leaning
%my?e-mail:?zm_fred@163.com
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


clear?all
clc
close?all

%選擇訓練樣本路徑
TrainDatabasePath?=?uigetdir（‘F:\本專業\人臉數據庫資源\人臉數據庫\ORL‘?‘Select?training?database?path‘?）;
%選擇測試樣本路徑
TestDatabasePath?=?uigetdir（‘F:\本專業\人臉數據庫資源\人臉數據庫\ORL‘?‘Select?test?database?path‘）;

%生成測試數據集
%T?=?CreateDatabase（TrainDatabasePath）;
TrainFiles?=?dir（TrainDatabasePath）;
class_Number?=?0;
s=size（TrainFiles1）;
%計算訓練樣本個數
for?i?=?1:size（TrainFiles