clc; % clear the command line
clear all; % clear the workspace
%
% system constants
% ---------------
InputFilename = 's1ofwb.wav'; 
[inspeech, Fs, bits] = wavread(InputFilename); % read the wavefile
outspeech1 = speechcoder1(inspeech); 
outspeech2 = speechcoder2(inspeech);
% display the results
figure(1);
subplot(3,1,1);
plot(inspeech);
grid on;
subplot(3,1,2);
plot(outspeech1);
grid on;
subplot(3,1,3);
plot(outspeech2);
grid on;
disp('Press a key to play the original sound!');
pause;
soundsc(inspeech, Fs);
disp('Press a key to play the LPC compressed sound!');
pause;
soundsc(outspeech1, Fs);
disp('Press a key to play the voice-excited LPC compressed sound!');
pause;
soundsc(outspeech2, Fs);