%
%
%  Display successive iteration of interp/conv 
%  operator for various filters.
%

wname='db2';
x=[0 0 0 1 0 0 0];
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;

wname='db3';
x=[zeros(1,5) 1 zeros(1,5)];
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;

wname='db5';
x=[zeros(1,10) 1 zeros(1,10)];
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;

wname='coif3';
x=[0 0 0 0 0 1 0];
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;
x=idwt(x,zeros(1,length(x)),wname);
stem(x);
pause;

