FreeCalypso > hg > efr-experiments

comparison src/lag_wind.c @ 0:56410792419a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src: original EFR source from ETSI
author Mychaela Falconia <falcon@freecalypso.org>
date Wed, 03 Apr 2024 05:31:37 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:56410792419a
1 /*************************************************************************
2 *
3 * FUNCTION: Lag_window()
4 *
5 * PURPOSE: Lag windowing of autocorrelations.
6 *
7 * DESCRIPTION:
8 * r[i] = r[i]*lag_wind[i], i=1,...,10
9 *
10 * r[i] and lag_wind[i] are in special double precision format.
11 * See "oper_32b.c" for the format.
12 *
13 *************************************************************************/
14
15 #include "typedef.h"
16 #include "basic_op.h"
17 #include "oper_32b.h"
18 #include "count.h"
19
20 #include "lag_wind.tab"
21
22 void Lag_window (
23 Word16 m, /* (i) : LPC order */
24 Word16 r_h[], /* (i/o) : Autocorrelations (msb) */
25 Word16 r_l[] /* (i/o) : Autocorrelations (lsb) */
26 )
27 {
28 Word16 i;
29 Word32 x;
30
31 for (i = 1; i <= m; i++)
32 {
33 x = Mpy_32 (r_h[i], r_l[i], lag_h[i - 1], lag_l[i - 1]);
34 L_Extract (x, &r_h[i], &r_l[i]);
35 }
36 return;
37 }