widthrow.m

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

function [rowwid]=widthrow(A,m,n)
kh=0;
ahank(1,1)=0;
ss=0;dd=0;
for  j=1:(n)
     i=1;
         while(i<=m)
        t1=A(i,j);
        if t1 >0;  
        kh=i;
          while A(kh,j)>15
              dd=dd+1; 
             kh=kh+1;
                if kh > m 
                  break;
                end
          end
          if dd<15 && dd>6
          ss=ss+1;
          ahank(1,ss)=dd;
           i=i+dd-1;
            else
            dd=0;
          i=i+1;    
            end
        end
          dd=0;
          i=i+1;
        end
 end
  rowwid=ahank;