% script receiverpred.m
%
% Rekonstruerar signalen baserat på prediktiv kodning

load 'pred_diff'

s_rek = zeros(1,length(signal));

for k = 1:length(d),
  prel_pred = fliplr(s_rek(k:(k+n-1)))*h;   % Beräkna prediktionen
  just_pred = prel_pred + d(k);             % Lägg till mottaget pred.fel
  s_rek(k+n) = just_pred;          
end

figure(6);plot(1:length(signal),signal,'b',1:length(s_rek),s_rek,'r');
title('Signalen (blå), rekonstruerad signal (röd)');

sound(s_rek,44100);

epsilon=norm(signal-s_rek)
