mat2list.m

来自「EZW的matlab程序 基于小波变换对图像进行压缩编码的研究」· M 代码 · 共 18 行

function ls=mat2list(Mat)

[r,c]=size(Mat);
if (r==2)&&(c==2)
    ls=[Mat(1,1);Mat(1,2);Mat(2,1);Mat(2,2)];
else
    M1=Mat(1:r/2,1:c/2);
    M2=Mat(1:r/2,c/2+1:c);
    M3=Mat(r/2+1:r,1:c/2);
    M4=Mat(r/2+1:r,c/2+1:c);
    lt1=mat2list(M1);
    lt2=mat2list(M2);
    lt3=mat2list(M3);
    lt4=mat2list(M4);
    ls=[lt1;lt2;lt3;lt4];
end