impulse.m

the implement of the encoder and the decoder of the CELP

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