lpcr.m

the implement of the encoder and the decoder of the CELP

function [voc,buf]=lpcr(lpcc,buf,sube)

global frames olpc szsubf

lpcd=lpcc(2:olpc+1);                        % Cut off 1 in the coefficient.

voc=buf;

for j=1:szsubf
    voc(j+olpc)=-sum(voc(j:j+olpc-1).*lpcd(olpc:-1:1))+sube(j);
end

voc=voc(olpc+1:szsubf+olpc);
buf=voc(szsubf-olpc+1:szsubf);