wither.asv

200704015人脸数据库＿内含多达５００张人脸图片

function r = wither(r)

%assumes r is matrix of either 0 or 1

niter = 100;

r(1,:)=0;
r(end,:)=0;
r(:,1)=0;
r(:,end)=0;

for i=1:niter

   
    
    [candrow,candcol] = find(r==1);
    
    for i = 1:length(candrow)
            row = candrow(i);
            col=candcol(i);
        
            %is there at least one 1?
            n1 = r(row+1,col)+r(row,col+1)+r(row-1,col)+r(row,col-1)+r(row+1,col+1)+r(row+1,col-1)+r(row-1,col+1)+r(row-1,col-1);
            n0 = r(row+1,col)*r(row,col+1)*r(row-1,col)*r(row,col-1);
            
            if ((n1~=0)&(n0==0))
                   r(row,col)=0;
            end
        end
      
                
end