% script transpred2.m
%
% Beräknar och skickar ett kvantiserat prediktionsfel till mottgaren
%
% Genererar ett prediktionsfel av signalen 'signal' baserar på
% prediktionskoefficienterna 'c'.  Inexakt prediktion.

%%
b=5;
r=0.06;

s_pred = zeros(1,length(signal));
s_rek = zeros(1,length(signal));
d = zeros(1,length(signal)-n);
dd=d;
for k = 1:length(d),
  s_pred(k+n) = fliplr(s_rek(k:(k+n-1)))*h; % Beräkna mottagarens prediktion
  dd(k) = signal(k+n) - s_pred(k+n);        % beräkna pred. fel
  d(k) = liu_quantize(dd(k),r,b,'bipolar');        % Kvantisera till b bitar
  s_rek(k+n) = s_pred(k+n) + d(k);     % Rekonstruera en signal på samma sätt som mottagaren
end

figure(5); plot(d,'-o')

%%
% Skicka prediktionsfelet till sändaren genom att spara på fil

save('pred_diff','d');
