haar-like特征的提取代码

haar-like特征的提取代码，效果比较好，可以直接运行

%---------------------------------------------------------------------------------------------
%2 遍历得到各点的积分
function ii = bianli（I）

%I=[123456;789101112;131415161718;192021222324;252627282930;313233343536];%测试矩阵2
I=imread（‘cameraman.tif‘）;

[rowcol] = size（I）;
ii=zeros（rowcol）;
for i=1:row
for j=1:col
     s=sum（I（1:ij））;
     if（j-1<=0）
       ii（ij） = s;
     else
        ii（ij）=s+ii（ij-1）;
     end
     s=0;
   end
end
ii=buzero（ii11）;
F=tezhen1（ii）;

%---------------------------------------------------------------------------------------------
%3 在矩阵上面补0和左面补0
%rn 补rn行0
%cn 补cn列0

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

     文件        693  2013-11-10 21:24  haar-like\bianli.m

     文件        226  2013-11-10 21:19  haar-like\buzero.m

     文件        388  2013-11-10 21:25  haar-like\haar.m

     文件        635  2013-11-10 21:20  haar-like\tezhen1.m

     目录          0  2013-11-10 21:28  haar-like

----------- ---------  ---------- -----  ----

                 1942                    5