www.pudn.com > rls.rar > rls.m

% RLS Adaptive Noise cancellation 
 
%-----Filter Parameters-----; 
M = 20; 
delta = 1;              %%%---------------diffenrence 
lamda = 0.99;           %%%---------------diffenrence 
mu = 0.05; 
e_max = 400;            %-----maximum of epochs 
 
%-----Contants----- 
pi = 3.14; 
Fs = 0.01;                  %-----signal frequency 
Fn = 0.05;                  %-----noise frequency 
 
%-----Initialize----- 
w = zeros(M,1);         %%%---------------diffenrence 
d = zeros(M,1);         %%%---------------diffenrence 
u = zeros(M,1);         %%%---------------diffenrence 
P = eye(M)/delta;       %%%---------------diffenrence 
 
%-----Generate desired signal and input(signal+noise)----- 
for t=1:M-1 
    d(t) = sin(2*pi*Fs*t); 
    u(t) = d(t) + 0.5*sin(2*pi*Fn*t) + 0.09*randn; 
end 
t = M; 
epoch = 0; 
 
while epoch