www.pudn.com > CELP.ZIP > lpcr.m

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);