natest.m

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

%function [t2,kk8,kk9]=napos(na,kk8,kk9)


close all;
clear;
%A2=imread('D:\a实验用\nh1.bmp','bmp');
%figure(9),imshow(A2);
tic;
A1=imread('伏.bmp');%%%%  w1/117/a104  qw/126/a157  l2/85/a99   qq/79/a64 yn/78/a75   h2/59/a44 annnew/56/a123 l21
A=rgb2gray(A1);
figure(1),imshow(A),title('原字符图像');
[m,n]=size(A);
% 
AA1=A;

for j=1:n
    for i=1:m
        kt1=i;
        kt2=j;
        t=0;
        while kt1 <=m && AA1(kt1,kt2) >0
           AA1(kt1,kt2) =255;
            kt1=kt1+1;
            t=t+1;
        end
        if t>2;
            for c=(i):(kt1-2)
                AA1(c,j)=0;
            end
        end
if kt1<m
    i=kt1+1;
end
end
end
C1=AA1;
figure(5),imshow(AA1),title('横');   

 for i=1:m
     j=1;
   while j<=n
        kt3=i;
        kt4=j;
        t=0;
        while kt4 <=n&& AA1(kt3,kt4)>0
        
AA1(kt3,kt4)=255;
            kt4=kt4+1;
            t=t+1;
        end
        if t<=6 && t>0
            for c=(j):(kt4-1)
                AA1(i,c)=0;
            end
        end
if kt4<=n &&kt4 >j
    j=kt4;
else
    j=j+1;
end
end
end



 figure(6),imshow(AA1),title('横.'); 
for i=1:m
    for j=1:n
        C6(i,j)=double(C1(i,j))-double(AA1(i,j));
    end
end
  figure(10),imshow(C6),title('横.');