widthcol.m

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

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