FreeCalypso > hg > efr-experiments
view src/weight_a.c @ 7:1fd613cec7ab
Theory-and-mystery: document written
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Wed, 17 Apr 2024 17:14:41 +0000 |
parents | 56410792419a |
children |
line wrap: on
line source
/************************************************************************* * * FUNCTION: Weight_Ai * * PURPOSE: Spectral expansion of LP coefficients. (order==10) * * DESCRIPTION: * a_exp[i] = a[i] * fac[i-1] ,i=1,10 * *************************************************************************/ #include "typedef.h" #include "basic_op.h" #include "count.h" /* m = LPC order == 10 */ #define m 10 void Weight_Ai ( Word16 a[], /* (i) : a[m+1] LPC coefficients (m=10) */ Word16 fac[], /* (i) : Spectral expansion factors. */ Word16 a_exp[] /* (o) : Spectral expanded LPC coefficients */ ) { Word16 i; a_exp[0] = a[0]; move16 (); for (i = 1; i <= m; i++) { a_exp[i] = round (L_mult (a[i], fac[i - 1])); move16 (); } return; }