Tuner Upper Removal Demonstration

% Demonstration of LMS algorithm for noise cancellation.
% Rich Kozick, Spring 1997
% Rob Frohne's  modifications for Macintosh 2000. 
% Desired signal 
clear all
Totaltime=1;
speak('Hit a key and speak the signal.'); 
pause;
[st, Fs] = recordsound(Totaltime, 22050, 1);
s = st';
Ls = length(s);  
% Interference + random noise
speak('Hit a key and make the noise!'); 
pause;
[nt,Fs] = recordsound(Totaltime, 22050, 1);
n = nt';
%Sign = 0.01;
%Dn=20;  % Delay of the noise that appears in y.
%n = n(1:Ls) + Sign*randn(Ls,1);
%an = [0 .01 -.5 1 -.5 .1 .01 0];
an = 4*[0 0 0 0 0 0 0 0 0 0 0 0 0 0 .5 1 .5];
bn = [1];
%sys = tf(an,bn,1/Fs);
%bode(sys);
%figure(1);
nf = filter(an,bn,n);
%nf = [nf(Dn:(Ls)); zeros(Dn-1,1)] + Sign*randn(Ls,1);  
y = s + nf; 
Sigx = 0.01; 
bx = [1];       % bx and ax are filtering on n to produce x
ax = [1];
Dx = 1;        % Delay of n that appears in x
x = filter(bx, ax, n);%x = [x(Dx:(Ls)); zeros(Dx-1,1)] + Sigx*randn(Ls,1);
%x = n + Sigx*randn(Ls,1);  
speak('Here is the noisy signal.')
soundsc(y,Fs);  
N = 20;         % Length of adaptive filter 
% LMS algorithm for adaptive noise cancellation 
h = zeros(N,1);
mu = 1/(10*N*var(x));
%mu = 1.0;
for k=N:Ls     xk = x(k:-1:(k-N+1));     nhat(k) = h'*xk;     e(k) = - y(k) + nhat(k);     h = h - mu*e(k)*xk;%/(xk'*xk);
end 
% The signal estimate is in the vector e
speak('Here is the cleaned signal.');
soundsc(e,Fs);