mat2list.asv

改进版ezw编码

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

function lsoder=listorder(mr,mc,pr,pc)

lsorder=[pr,pc;pr,pc+mc/2;pr+mr/2,pc;pr+mr/2,pc+mc/2];
mr=mr/2;mc=mc/2;
lm1=[];lm1=[];lm1=[];lm1=[];
if (mr>1)&&(mc>1)
    ls1=listorder(mr,mc,lsorder(1,1),lsorder(1,2));
    l
    ls1=listorder(mr,mc,lsorder(1,1),lsorder(1,2));
    ls1=listorder(mr,mc,lsorder(1,1),lsorder(1,2));
    ls1=listorder(mr,mc,lsorder(1,1),lsorder(1,2));