% script transpred.m
%
% Beräknar och skickar ett okvantiserat prediktionsfel till mottagaren
%
% Genererar ett prediktionsfel av signalen 'signal' baserar på
% prediktionskoefficienterna 'c'.  Exakt prediktion.

%%
% Det måste ligga lite nollor i början av signalen för att "nollställa"
% systemet
signal = [zeros(1,n) ljud1{10}];

interval = (n+1):length(signal);
a = signal(interval);
b = liu_NPrevSamples(signal,n);
a_pred = h'*b;
d = a - a_pred; % prediktionsfelet

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

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

% d=liu_quantize(d,0.06,3,'bipolar');
save('pred_diff','d');

%%
% Spela upp prediktionsfelet (i hörlurar, öka volymen om inget hörs?)
sound(d,44100);
