findmaxminl.m

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

function [maxmin]=findmaxminl(c2)

  [mwl,nwl]=size(c2);
 for j=1:nwl %
     a1=0;
     k1=0;
     k2=0;
    for i=1:mwl-1
        a1=a1+k2-k1;
        ff=0;
        jjj=i+a1;
        jj=jjj;
        if jjj>=mwl
            break;
        else
        if c2(jjj,j)>=0
            k1=jjj;
          while  c2(jjj+1,j)>0
            jjj=jjj+1;
            ff=1;
            if jjj>=mwl
                break;
            end
         end
        if ff==1
           k2=jjj;
        end
        if ff==0
            k2=jjj;
        end
        end
        if c2(jjj,j)<0
            k1=jjj;
             while c2(jjj+1,j)<0
            jjj=jjj+1;
           ff=1;
             if jjj>=mwl
                break;
            end
       end
       if ff==1
           k2=jjj;
       end
       if ff==0
             k2=jjj;
        end
        end
        if (k2-k1)==0
          max=c2(k1,j);
          awwl(jjj,j)=max;
      else 
            max=c2(k1,j);
        for kk=(k1+1):(k2)
           if abs(max)<abs(c2(kk,j))
            max=c2(kk,j);
            jj=kk;
        end
    end
    awwl(jj,j)=max;
    end
end
end
end

maxmin=awwl;