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

function impulse( l, lpc_coef ) 
 
global h olpc gamma1 
 
% Init unit impulse vector and local variables 
h = zeros( 1, l ); 
h(1) = 1.0; 
d5 = zeros( 1, olpc ); 
 
% Weight LPC coefficients and generate impulse response 
wlpc_coef = wcoff( gamma1, lpc_coef ); 
[ h, d5 ] = lpcr( wlpc_coef, d5, h );