mat2list.m

spiht编码

function ls=mat2list(iMat)

[r,c]=size(iMat);
if (r<=2)&&(c<=2)
    ls=[iMat(1,1);iMat(1,2);iMat(2,1);iMat(2,2)];
else
    M1=iMat(1:r/2,1:c/2);
    M2=iMat(1:r/2,c/2+1:c);
    M3=iMat(r/2+1:r,1:c/2);
    M4=iMat(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