人脸检测的一个程序,可以作为参考。对于新手来说很有参考价值
代码片段和文件信息
属性 大小 日期 时间 名称
----------- --------- ---------- ----- ----
文件 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 HaarCascadeshaarcascade_frontalface_alt.m
文件 111836 2013-05-15 13:36 HaarCascadeshaarcascade_frontalface_alt.mat
文件 919871 2010-11-02 15:47 HaarCascadeshaarcascade_frontalface_alt.xml
文件 1907 2010-11-17 18:08 SubFunctionsGetHaarCasade.m
文件 1379 2010-11-17 18:08 SubFunctionsGetIntergralImages.m
文件 385 2010-11-17 18:09 SubFunctionsGetSumRect.m
文件 2200 2013-05-15 14:03 SubFunctionsHaarCasadeobjectDetection.m
文件 1817 2011-11-21 20:43 SubFunctionsOneScaleobjectDetection.asv
文件 1818 2010-11-17 18:08 SubFunctionsOneScaleobjectDetection.m
文件 3568 2013-05-15 22:52 SubFunctionsShowDetectionResult.asv
文件 3710 2013-05-15 23:11 SubFunctionsShowDetectionResult.m
文件 1606 2010-11-17 17:44 SubFunctionsTreeobjectDetection.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个文件信息
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
‘str);
if(nw>1)
eval(str)
end
end
end
fclose(fid);
save([filename ‘.mat‘]‘opencv_storage‘);
属性 大小 日期 时间 名称
----------- --------- ---------- ----- ----
文件 2674 2010-11-18 10:32 ConvertHaarcasadexm
文件 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 ob
文件 237 2013-05-08 16:21 testHSV.p
文件 1421616 2013-05-15 13:36 HaarCascadeshaarcascade_frontalface_alt.m
文件 111836 2013-05-15 13:36 HaarCascadeshaarcascade_frontalface_alt.mat
文件 919871 2010-11-02 15:47 HaarCascadeshaarcascade_frontalface_alt.xm
文件 1907 2010-11-17 18:08 SubFunctionsGetHaarCasade.m
文件 1379 2010-11-17 18:08 SubFunctionsGetIntergralImages.m
文件 385 2010-11-17 18:09 SubFunctionsGetSumRect.m
文件 2200 2013-05-15 14:03 SubFunctionsHaarCasadeob
文件 1817 2011-11-21 20:43 SubFunctionsOneScaleob
文件 1818 2010-11-17 18:08 SubFunctionsOneScaleob
文件 3568 2013-05-15 22:52 SubFunctionsShowDetectionResult.asv
文件 3710 2013-05-15 23:11 SubFunctionsShowDetectionResult.m
文件 1606 2010-11-17 17:44 SubFunctionsTreeob
文件 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个文件信息
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件举报,一经查实,本站将立刻删除。
评论列表(条)