DSPRelated.com
Forums

How to use.wav file as an input to LMS Equalizer

Started by cool...@yahoo.co.uk August 24, 2008
Hi everyone,
could any body please tell me how can i use a .wav file as an input to system identification (LMS)and Channel Equalization (LMS).
Code for both are Given below.If any body could amend these codes and give a .wav file as an input.

***************************************************************************
Code for System Identification
***************************************************************************
clear all
close all

%simulation length
N = 1000;

%channel to be identified
M = 9;
wo = randn(M,1);
wo = wo / norm(wo);

%excitation signal
u = randn(1,N);

%channel output
y = filter(wo,1,u);

%additive noise to the channel output
SNR = 30;
var_v = var(y) * 10^(-SNR/10);
v = var_v^0.5 * randn(1,N);

%desired signal
d = y + v;

%NLMS adaptive system identification
w = zeros(M,1);
u_regressor = zeros(1,M);
step = 0.5;
epsilon = 10^(-6);
msd = zeros(1,N);
for k = 1 : N
u_regressor = [u(k) u_regressor(1:M-1)];
e = d(k) - u_regressor * w;
w = w + step * u_regressor' * e / (u_regressor * u_regressor' + epsilon);
msd(k) = (w-wo)' * (w-wo);
end

figure;
plot(10*log10(msd));
ylabel('MSD(dB)');
xlabel('iterations');
***************************************************************************
Code for Channel Equalization
***************************************************************************
clear all
close all

%simulation length
N = 1000;

%channel length
M = 5;

%number of independent trials
T = 100;

cascade_impulse_response = zeros(1,2*M-1);
for j = 1 : T
%training signal
u = randn(1,N);

%channel to be equalized
c = randn(M,1);
c = c / norm(c);

%channel output
z = filter(c,1,u);

%additive noise to the channel output
SNR = 30;
var_v = var(z) * 10^(-SNR/10);
v = var_v^0.5 * randn(1,N);

%input to the equalizer
x = z + v;

%NLMS channel equalization
w = zeros(M,1);
x_regressor = zeros(1,M);
step = 0.1;
epsilon = 10^(-6);
for k = 4 : N
x_regressor = [x(k) x_regressor(1:M-1)];
e = u(k-3) - x_regressor * w;
w = w + step * x_regressor' * e / (x_regressor * x_regressor' + epsilon);
end
cascade_impulse_response = cascade_impulse_response + conv(w,c)';
display(j);
end
figure;
stem(cascade_impulse_response/T);
title('cascade channel-equalizer impulse response');
xlabel('taps');
***************************************************************************
I will be vey thankful
REGARDS
Zohaib