clc; % clear the command line
clear all; % clear the workspace
%
% system constants
% ---------------
InputFilename = 's2ofwb.wav'; %change it according to your wave files 

[inspeech, Fs, bits] = wavread(InputFilename); % read the wavefile

outspeech1 = speechcoder1(inspeech); 
outspeech2 = speechcoder2(inspeech);

%the simple was clipping. Added this (DSE)
outspeech1=outspeech1./(max(outspeech1).*1.05);


% display the results
figure(1);
subplot(3,1,1);
plot(inspeech);
grid;
subplot(3,1,2);
plot(outspeech1);
grid;
subplot(3,1,3);
plot(outspeech2);
grid;




if 1==0
  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);
else %write to disk
  wavwrite(outspeech1,Fs,sprintf('simple_lpc%s',InputFilename));
  wavwrite(outspeech2,Fs,sprintf('voice_excited_lpc%s',InputFilename));
end
