%Example 8-10: Dereverberation of a simple signal.
clear;r=0.6;
X=[3 0 0 1 0 0 4 0 0 1 0 0 5 0 0 9];
H=r.^[0:29];Y=conv(H,X);
Z=filter([1 -r],[1],Y);
subplot(211),stem([0:29],Y(1:30))
subplot(212),stem([0:29],Z(1:30))