nouse.m

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

%%%%%%%%%%%%%%%%%

t4=A(kk8,kk9);
          while t4>0&& kk9<n && aaah(kk8,kk9)==0 &&cunpie(kk8,kk9)==0
          cunpie(kk8,kk9)=t4;
          [t4,kk8,kk9]=pieext(A,kk8,kk9);
      end
%%%%%%%%%%%      
      
         for tk1=1:k4
          pos1=BBBB(1,k4);
          pos2=AAAA(1,k4);
          cunna((hann(1,pos1)),(lien(1,pos1)))
          cunna((hanni(1,pos1)),(lienj(1,pos1)))
            
      end   
   %%%%%%%%%%%     
      for kkk=1:bb
for    j=1:(n)
for  i=m:-1:(1)
       t1=aaah(i,j);
        if  t1 >0
            dddd=dddd+1;
        else
         if  dddd>bb
         dddd=0;
         if A(i,j) >20
        aaah(i,j)=aaah(i+1,j);
         end
     else 
         dddd=0;
     end
        end

end
    end
end
end



dddd=0;
for kkkk=1:bb
 for  i=1:(m)
    for    j=1:(n-1)
        
        t1=aaa(i,j);
        if  t1 >0
            dddd=dddd+1;
        else
         if  dddd>5
         dddd=0;
         if A(i,j) >5
        aaa(i,j)=aaa(i,j-1);
        
        end
         else 
         dddd=0;
     end
        end

end
    end
end

end