| Purpose |
| Simulation of an adaptive forward modeling application using a lattice joint process estimator updated according to the RLS Lattice adaptive algorithm. |
| Syntax |
model_rlslattice
|
| Description |
The block diagram of the system identification (forward modeling) problem using the
RLS Lattice adaptive algorithm is shown in Fig. 10.51 (see Section
5.5 for more information on the RLS-Lattice algorithm). The RLS Lattice
algorithm adjusts the PARCOR coefficients of the lattice predictor and the linear
combiner coefficients simultaneously to minimize the forward and backward
prediction errors as well as the modeling error init_rlslattice(), and the input signals are read from files, then a
processing loop is started. In each iteration of the loop asptrlslattice()
is called with a new input sample and a new desired sample to calculate the filter
output (estimated desired signal) and update the adaptive model coefficients.
This simulation script uses the standard ASPT iteration progress window (IPWIN). The
IPWIN has four buttons which allow you to stop and continue the simulation, show or
hide the simulation graph window, break out of the processing loop, and quit the
simulation. After processing all the samples, or on pressing the break or stop
buttons, the sensor signal
|
| Code |
clear all;
load .\data\h512; % for verification
infile = '.\wavin\scinwn.wav'; % input signal, white noise
dfile = '.\wavin\scdwn512.wav'; % system output
M = 512; % adaptive model length
a = 0.999 % forgetting factor
%% Initialize storage
% Init RLS Lattice algorithm
[ff,bb,fb,be,cf,b,d,y,e,kf,kb,w] = init_rlslattice(M);
[xn,inFs,inBits] = wavread(infile); % read input signal
[dn,inFs,dBits] = wavread(dfile); % read desired signal
inSize = min(length(dn),length(xn)); % samples to process
E = init_ipwin(inSize); % Initialize IPWIN
%% Processing Loop
for (m=1:inSize)
x = xn(m,:); % new input sample
d = dn(m,:); % new desired output
% Update the adaptive filter
[ff,bb,fb,be,cf,b,y,e,kf,kb,w] = asptrlslattice(ff,...
bb,fb,be,cf,b,a,x,d);
% update the iteration progress window
[E, stop,brk] = update_ipwin(E,e,d,'m',w,h512);
% handle the Stop button
while (stop ~= 0), stop = getStop; end;
% handle the Break button
if (brk), plot_model(w,h512,E); break; end;
end;
plot_model(w,h512,E);
|
| Results |
Running the above script will produce the graph shown in Fig. 10.52. The two top-left panels in Fig. 10.52 show the time and frequency responses of the unknown system for which this application is intended to provide a FIR model. The time and frequency responses for the model obtained by the adaptive filter are shown in the two top-right panels. The bottom-left panel shows the learning curve and the bottom-right panel shows the error in the filter coefficients by the end of the simulation.
|
| See Also |
| INIT_ RLSLATTICE, ASPTRLSLATTICE. |
| Reference |
| [2] and [4] for analysis of the adaptive Lattice filters. |