tiqubihua.m

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

close all;
clear;
%A2=imread('D:\a实验用\nh1.bmp','bmp');
%figure(9),imshow(A2);
tic;
A1=imread('ji.bmp');
figure(1),imshow(A1);
[m,n,l]=size(A1);
A2=A1(:,:,1)
d=0;
bb=zeros(m,n);
for i=1:m
    for j=1:n
      aa=A2(i,j);
      
      if aa >200 
          d=d+1;
      end 
      if d>0 && (aa<200)
          if d>8
          for k=d:-1:1
         bb(i,j-k)=255; 
              end 
          end 
          d=0;
  end 
end
end 

ds=0;
bbs=zeros(m,n);
for j=1:n
    for i=1:m
      aas=A2(i,j);
      
      if aas >200 
          ds=ds+1;
      end 
      if ds>0 && (aas<200)
          if ds>8
          for ks=ds:-1:1
         bbs(i-k,j)=255; 
              end 
          end 
          ds=0;
  end 
end
end 
figure(2),imshow(bb);
figure(3),imshow(bbs);