人脸检测的代码

人脸检测的一个程序，可以作为参考。对于新手来说很有参考价值

function ConvertHaarcasadexmlOpenCV（filename）
% This function ConvertHaarcasadexmlOpenCV converts a openCV .xml file
% into a matlab data file and script with the same structure inside.
%
% Example
%  filename=‘haarcascade_eye‘;
%  ConvertHaarcasadexmlOpenCV（filename）;
%
% Example
%  f=dir（‘*.xml‘）;
%  for i=1:length（f）
%     filename=f（i）.name; 
%     ConvertHaarcasadexmlOpenCV（filename（1:end-4））; 
%  end
%
% Function is written by D.Kroon University of Twente （November 2010）

j=find（filename==‘.‘）; if（~isempty（j）） filename=filename（1:j-1）; end

fid = fopen（[filename ‘.xml‘] ‘r‘）;
c = fread（fid inf ‘char=>char‘）‘;
fclose（fid）;
c（c==13）=[];
c（c==10）=[];
fl = regexp（c ‘<‘ ‘split‘）;

fid = fopen（[filename ‘.m‘] ‘w‘）;

h=0; nw=0;
infoname=cell（110）;
infocount=zeros（110）;
for i=2:length（fl）
    str=fl{i};
    if（length（str）>1） st=str（1）;  else st=‘‘; end
    switch（st）
        case {‘!‘‘‘‘?‘}
            continue
        case ‘/‘
            t=find（str==‘>‘1‘first‘）;
            name=str（2:t-1）;
            infocount（h）=0;
            h=h-1;
            continue
        otherwise
            t1=find（str==‘>‘1‘first‘）;
            t2=find（str（1:t1-1）==‘ ‘）;
            if（~isempty（t2））
                t=t2;
            else
                t=t1;
            end
            name=str（1:t-1）;
            
            data=str（t+1:end）;
            h=h+1;
            if（name==‘_‘）
                infocount（h-1）=infocount（h-1）+1;
                name=‘value‘;
            end
            infoname{h}=name;
            while（~isempty（data）&&（data（1）==‘ ‘））; data=data（2:end）; end
            while（~isempty（data）&&（data（end）==‘ ‘））; data=data（1:end-1）; end
    end
    if（~isempty（data））
        in=‘‘;
        for j=1:h
            if（infocount（j）>0）
                count=[‘（‘ num2str（infocount（j）） ‘）‘];
            else
                count=‘‘;
            end
            
            if（j==1）
                in=[infoname{j} count];
            else
                in=[in ‘.‘ infoname{j} count];
            end
        end
        in=strrep（in‘.value.‘‘.‘）;
        num=str2num（data）;
        if（~isempty（num））
            if（length（num）==1）
                str=[in ‘ = ‘ data ‘;‘];
            else
                str=[in ‘ = [‘ data ‘];‘];
            end
        else
            str=[in ‘ = ‘‘‘ data ‘‘‘;‘];
        end
        nw=nw+1;
        if（nw==1） str=[‘%‘ str]; end
        fprintf（fid‘%s\r\n‘str）;
        if（nw>1）
            eval（str）
        end
    end
end
fclose（fid）;
save（[filename ‘.mat‘]‘opencv_storage‘）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2674  2010-11-18 10:32  ConvertHaarcasadexmlOpenCV.m

     文件        847  2011-02-22 15:05  empty.JPG

     文件       1335  2010-11-18 04:41  license.txt

     文件      13513  2013-05-09 14:17  Match.asv

     文件      22376  2013-05-09 15:12  Match_best.asv

     文件      11636  2013-05-15 23:13  Match_best_gui.fig

     文件      23670  2013-05-15 22:49  Match_best_gui.m

     文件       3496  2013-05-15 22:05  objectDetection.m

     文件        237  2013-05-08 16:21  testHSV.p

     文件    1421616  2013-05-15 13:36  HaarCascades\haarcascade_frontalface_alt.m

     文件     111836  2013-05-15 13:36  HaarCascades\haarcascade_frontalface_alt.mat

     文件     919871  2010-11-02 15:47  HaarCascades\haarcascade_frontalface_alt.xml

     文件       1907  2010-11-17 18:08  SubFunctions\GetHaarCasade.m

     文件       1379  2010-11-17 18:08  SubFunctions\GetIntergralImages.m

     文件        385  2010-11-17 18:09  SubFunctions\GetSumRect.m

     文件       2200  2013-05-15 14:03  SubFunctions\HaarCasadeobjectDetection.m

     文件       1817  2011-11-21 20:43  SubFunctions\OneScaleobjectDetection.asv

     文件       1818  2010-11-17 18:08  SubFunctions\OneScaleobjectDetection.m

     文件       3568  2013-05-15 22:52  SubFunctions\ShowDetectionResult.asv

     文件       3710  2013-05-15 23:11  SubFunctions\ShowDetectionResult.m

     文件       1606  2010-11-17 17:44  SubFunctions\TreeobjectDetection.m

     文件     350144  2013-05-15 21:27  人脸图\1.jpg

     文件      42717  2013-05-15 21:43  人脸图\10.jpg

     文件     102085  2013-03-17 10:34  人脸图\2.jpg

     文件     147468  2013-05-15 21:27  人脸图\3.jpg

     文件      52373  2013-05-15 21:27  人脸图\4.jpg

     文件      44928  2013-05-15 21:27  人脸图\5.jpg

     文件      36423  2013-05-15 21:27  人脸图\6.jpg

     文件      31480  2013-05-15 21:27  人脸图\7.jpg

     文件      35902  2013-05-15 21:27  人脸图\8.jpg

............此处省略27个文件信息