%%?derived?from?“Face?Recognition?With?Radial?Basis?Function?（RBF）?Neural?Networks“?
%%?which?is?written?by?M.J.ErS.Q.Wu?J.W.Lu?and?H.L.Toh?in?2002.?

clear?all;
close?all;
ratio?=?4;
class_num?=?40;
sample_num?=?10;
row_0?=?112;
line_0?=?92;
row?=?ceil（row_0?/?ratio）;
line?=?ceil（line_0?/?ratio）;
row_line?=?min（row?line）;
rowline?=?row?*?line;
load?orl_4;

right_num_test?=?[];
right_num_train?=?[];

disp（‘orl?fisherface?now?begin‘）;
right_num?=?[];
for?count?=?5
????tic;
????
????count
	train_num?=?count;
????train_total?=?train_num?*?class_num;
	test_num?=?sample_num?-?train_num;
????test_total?=?test_num?*?class_num;
????
????
????orl_train?=?zeros（rowline?train_total）;
????orl_m_all?=?zeros（rowline1）;
????orl_m?=?zeros（rowlineclass_num）;
	for?i?=?1:class_num
????????for?j?=?1:train_num
????????????kk?=?（i-1）*train_num?+?j;
????????????orl_temp?=?double（orl（::ji））;
????????????%orl_temp?=?double（orl（::j+test_numi））;
????????????for?p?=?1:row
????????????????for?q?=?1:line
??????????????????????site?=?（p-1）*line?+?q;??
??????????????????????orl_train（site?kk）?=?orl_temp（pq）;
????????????????end
????????????end
????????????orl_m_all?=?orl_m_all?+?orl_train（:kk）;
????????????orl_m（:i）?=?orl_m（:i）?+?orl_train（:kk）;
????????end
????????orl_m（:i）?=?orl_m（:i）/train_num;
????end
????orl_m_all?=?orl_m_all?/?train_total;
????
????orl_test?=?zeros（rowline?test_total）;
??	for?i?=?1:class_num
????????for?j?=?1:test_num
????????????kk?=?（i-1）*test_num?+?j;
????????????orl_temp?=?double（orl（::j+train_numi））;
????????????%orl_temp?=?double（orl（::ji））;
????????????for?p?=?1:row
????????????????for?q?=?1:line
????????????????????site?=?（p-1）*line?+?q;??
????????????????????orl_test（site?kk）?=?orl_temp（pq）;
????????????????end
????????????end
????????end
????end????????
	%%?--------?1.Perform?fisherface?method?to?reduce?the?demension?of?the?feature?space?--------?%%
????????%%-------?PCA?-------%%
????Sb?=?zeros（rowlineclass_num）;
????for?i?=?1:class_num
????????Sb（:i）?=?orl_m（:i）?-?orl_m_all;
????end
%????Sb0?=?（Sb?*?Sb‘）?/?class_num;??%%?[rowline?rowline]??????

????Sw?=?zeros（rowlinetrain_total）;
	for?i?=?1:class_num
????????for?j?=?1:train_num
????????????kk?=?（i-1）*train_num?+?j;
????????????Sw（:kk）?=?orl_train（:kk）?-?orl_m（:i）;
????????end????
????end

????St?=?zeros（rowlinetrain_total）;
	for?i?=?1:class_num
????????for?j?=?1:train_num
????????????kk?=?（i-1）*train_num?+?j;
????????????St（:kk）?=?orl_train（:kk）?-?orl_m_all;
????????end????
????end
%????St0?=?（St?*?St‘）?/?train_total;??%%?[rowline?rowline]
????
????clear?orl_m_all?orl_m;
????
????ss1?=?（St‘?*?St）?/?train_total;???%%?[train_total?train_total]
%????rr?=?rank（ss）;
????for?rr1?=?164%rank（ss1）-1*class_num%:rank（ss1）;%rank（ss1）;%46;%
????
????[V_St?D_St]?=?eig（ss1）;
????dd?=?abs（eig（ss1））;
????[dd_value?dd_site]?=?sort（dd）;
????temp2?=?rr1;
????temp1?=?tra

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-08-06?21:30??基于MATLAB的人臉識別源碼\
?????文件????????9891??2009-02-05?21:14??基于MATLAB的人臉識別源碼\shibie.m