www.gusucode.com > 小波变换的数字水印matlab源码程序 > new_wavelet/Block.m

    function A=Block(IM,p,q)  %对图像进行分块
[m,n] = size(IM);
IJ = zeros(p,q);
z = 1;
for m1 = 1:m/p   
    for n1 = 1:n/q  
       if m1*p <= m;
        if n1*q <= n;
%%%%%取出一个p*q大小的块
          for i = (m1-1)*p+1:m1*p
             for j = (n1-1)*q+1:n1*q
                 IJ(i-(m1-1)*p,j-(n1-1)*q) = IM(i,j);
               if (i-(m1-1)*p)==p&&(j-(n1-1)*q)==q;
                   OUT = IJ;
                  A{1,z} = OUT;
                  z = z+1;
               end
             end
          end
        end
       end
    end
end