Code covered by the BSD License  

Highlights from
CELP codec

image thumbnail

CELP codec

by

 

This is a code to demonstrate CELP codecs of bitrate 9.6kbps and 16kbps.

rf2lpc(kappa)
function a = rf2lpc(kappa)
%  rf2lpc --> Convert reflection coefficients to prediction polynomial.
%
%    a = rf2lpc(kappa)
%
%    The function computes the prediction polynomial, a, based on the
%    reflection coefficients, kappa.

M = length(kappa);
a = zeros(M,1);

for (j=1:M)
  a(j)     = kappa(j);
  a(1:j-1) = a(1:j-1) - kappa(j)*a(j-1:-1:1);
end

Contact us