function?[aaSN_fillFaceDat]=detect_face（I）

close?all;

%?No?faces?at?the?beginning
Faces=[];
numFaceFound=0;

I=double（I）;

H=size（I1）;
W=size（I2）;

%%%%%%%%%%%%%%%%%%?LIGHTING?COMPENSATION?%%%%%%%%%%%%%%%

C=255*imadjust（I/255[0.3;1][0;1]）;
%%%%%%%%%%%%%%%%%%%%%%%?EXTRACT?SKIN?%%%%%%%%%%%%%%%%%%%%%%
YCbCr=rgb2ycbcr（C）;
Cr=YCbCr（::3）;

S=zeros（HW）;
[SkinIndexRowSkinIndexCol]?=find（10for?i=1:length（SkinIndexRow）
????S（SkinIndexRow（i）SkinIndexCol（i））=1;
end

m_S?=?size（S）;
S（m_S（1）-7:m_S（1）:）?=?0;

%%%%%%%%%%%%%%%%?REMOVE?NOISE?%%%%
SN=zeros（HW）;
for?i=1:H-5
????for?j=1:W-5
????????localSum=sum（sum（S（i:i+4?j:j+4）））;
????????SN（i:i+5?j:j+5）=（localSum>20）;
????end
end
????
Iedge=edge（uint8（SN））;
?
SE?=?strel（‘square‘9）;
SN_edge?=?（imdilate（IedgeSE））;
?
SN_fill?=?imfill（SN_edge‘holes‘）;

%%%%%%%%%%%%%%%?FIND?SKIN?COLOR?BLOCKS?%%%%

[LlenRegions]?=?bwlabel（SN_fill4）;
AllDat??=?regionprops（L‘BoundingBox‘‘FilledArea‘）;
AreaDat?=?cat（1?AllDat.FilledArea）;
[maxArea?maxAreaInd]?=?max（AreaDat）;

FaceDat?=?AllDat（maxAreaInd）;
FaceBB?=?[FaceDat.BoundingBox（1）FaceDat.BoundingBox（2）...
????FaceDat.BoundingBox（3）-1FaceDat.BoundingBox（4）-1];

aa=imcrop（rgb2gray（uint8（I））.*uint8（SN_fill）FaceBB）;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-10-26?19:18??matlab表情識別\
?????文件????????1362??2018-10-26?19:01??matlab表情識別\detect_face.m
?????文件????????2782??2018-10-26?19:01??matlab表情識別\EigenFace.m
?????文件????????1018??2009-04-20?13:49??matlab表情識別\LabelFile.txt
?????文件????????2342??2018-10-26?18:58??matlab表情識別\our_pca.m
?????文件????????1223??2018-10-26?18:58??matlab表情識別\Results.txt
?????目錄???????????0??2018-10-23?18:35??matlab表情識別\Test\
?????文件???????56944??2009-04-18?10:17??matlab表情識別\Test\Image001.jpg
?????文件???????57198??2009-04-18?10:17??matlab表情識別\Test\Image002.jpg
?????文件???????57554??2009-04-18?10:17??matlab表情識別\Test\Image003.jpg
?????文件???????56881??2009-04-18?10:17??matlab表情識別\Test\Image004.jpg
?????文件???????56004??2009-04-18?10:17??matlab表情識別\Test\Image005.jpg
?????文件???????48005??2009-04-18?10:17??matlab表情識別\Test\Image006.jpg
?????文件???????56704??2009-04-18?10:17??matlab表情識別\Test\Image007.jpg
?????文件???????57739??2009-04-18?10:17??matlab表情識別\Test\Image008.jpg
?????文件???????56293??2009-04-18?10:17??matlab表情識別\Test\Image009.jpg
?????文件???????57995??2009-04-18?10:17??matlab表情識別\Test\Image010.jpg
?????文件???????57025??2009-04-18?10:17??matlab表情識別\Test\Image011.jpg
?????文件???????58108??2009-04-18?10:17??matlab表情識別\Test\Image012.jpg
?????文件???????54871??2009-04-18?10:17??matlab表情識別\Test\Image014.jpg
?????文件???????56865??2009-04-18?10:17??matlab表情識別\Test\Image015.jpg
?????文件???????57803??2009-04-18?10:17??matlab表情識別\Test\Image016.jpg
?????文件???????56164??2009-04-18?10:17??matlab表情識別\Test\Image017.jpg
?????文件???????55699??2009-04-18?10:17??matlab表情識別\Test\Image018.jpg
?????文件???????57196??2009-04-18?10:17??matlab表情識別\Test\Image019.jpg
?????文件???????57335??2009-04-18?10:17??matlab表情識別\Test\Image020.jpg
?????文件???????58031??2009-04-18?10:17??matlab表情識別\Test\Image021.jpg
?????文件???????57715??2009-04-18?10:17??matlab表情識別\Test\Image022.jpg
?????文件???????56409??2009-04-18?10:17??matlab表情識別\Test\Image023.jpg
?????文件???????59313??2009-04-18?10:17??matlab表情識別\Test\Image024.jpg
?????文件???????58724??2009-04-18?10:17??matlab表情識別\Test\Image025.jpg
............此處省略60個文件信息