haar.m

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

function x=haar(c,h)
x=c;
sqrt2=sqrt(2);
h=h/2;
for i=1:h
  x(i)=(c(2*i-1)+c(2*i))/sqrt2;
  x(h+i)=(c(2*i-1)-c(2*i))/sqrt2;
end