filtimag.m

一个用matlab编写的 关于笔画提取的仿真试验程序

function [a]=filtimag(A)

[m,n]=size(A);
a=A;
x=zeros(m,n);
tic;
tt=255;
kkkk=0;
for j=3:1:(m-2)
    for k=3:1:(n-2)
      if (A(j,k)==255-tt)
            a(j,k)=A(j,k);
            lllllll=a(j,k);
        elseif (A(j,k)==255)
         lllllll=A(j,k);
            kkkk=0;
             for p=1:1:3
             for q=1:1:3
                if A(j-2+p,k-2+q)==255 ,
                    kkkk=kkkk+1;
                end 
             end
          end
          if kkkk<4 ,              
                 a(j,k)=0; 
             elseif kkkk>=7
                a(j,k)=A(j,k);
            else
                mod=5;
               %5＊5大小的模板
               kkkk2=0;
                 for p=1:1:mod
                   for q=1:1:mod
                      if A(j-3+p,k-3+q)==255 ,
                       kkkk2=kkkk2+1;
                     end 
                  end
                end
  
                if kkkk2<kkkk+2 ,              
                    a(j,k)=0;
                else
                   a(j,k)=A(j,k);
              end 
         end
     end
 end
end