haarrec.m

来自「EZW implementation which will use wavele」· M 代码 · 共 19 行

function re_x=haarrec(X)
c=double(X);
level=1;
h=size(X,2);
h1=h;
h2=h*(2^(level-1));
while h1<=h2
  for i=1:h1
    temprow=c(i,1:h1);
    c(i,1:h1)=ihaar(temprow,h1);
  end

  for j=1:h1
    tempcol=c(1:h1,j)';
    c(1:h1,j)=ihaar(tempcol,h1)';
  end
h1=h1*2;
end
re_x=c;