FreeCalypso > hg > gsm-codec-lib
annotate libtwamr/lag_wind.c @ 482:5e2d849a4fbc
doc/Calypso-TCH-downlink: grammar fix
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Mon, 20 May 2024 01:24:22 +0000 |
parents | a8dab7028e4d |
children |
rev | line source |
---|---|
384
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
1 /* |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
2 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
3 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
4 * GSM AMR-NB speech codec R98 Version 7.6.0 December 12, 2001 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
5 * R99 Version 3.3.0 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
6 * REL-4 Version 4.1.0 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
7 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
8 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
9 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
10 * File : lag_wind.c |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
11 * Purpose : Lag windowing of autocorrelations. |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
12 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
13 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
14 */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
15 /* |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
16 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
17 * MODULE INCLUDE FILE AND VERSION ID |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
18 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
19 */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
20 #include "namespace.h" |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
21 #include "lag_wind.h" |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
22 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
23 /* |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
24 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
25 * INCLUDE FILES |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
26 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
27 */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
28 #include "typedef.h" |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
29 #include "basic_op.h" |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
30 #include "oper_32b.h" |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
31 #include "no_count.h" |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
32 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
33 /* |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
34 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
35 * LOCAL VARIABLES AND TABLES |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
36 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
37 */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
38 #include "lag_wind.tab" /* Table for Lag_Window() */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
39 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
40 /* |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
41 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
42 * PUBLIC PROGRAM CODE |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
43 ******************************************************************************** |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
44 */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
45 /************************************************************************* |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
46 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
47 * FUNCTION: Lag_window() |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
48 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
49 * PURPOSE: Lag windowing of autocorrelations. |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
50 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
51 * DESCRIPTION: |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
52 * r[i] = r[i]*lag_wind[i], i=1,...,10 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
53 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
54 * r[i] and lag_wind[i] are in special double precision format. |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
55 * See "oper_32b.c" for the format. |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
56 * |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
57 *************************************************************************/ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
58 void Lag_window ( |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
59 Word16 m, /* (i) : LPC order */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
60 Word16 r_h[], /* (i/o) : Autocorrelations (msb) */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
61 Word16 r_l[] /* (i/o) : Autocorrelations (lsb) */ |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
62 ) |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
63 { |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
64 Word16 i; |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
65 Word32 x; |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
66 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
67 for (i = 1; i <= m; i++) |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
68 { |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
69 x = Mpy_32 (r_h[i], r_l[i], lag_h[i - 1], lag_l[i - 1]); |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
70 L_Extract (x, &r_h[i], &r_l[i]); |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
71 } |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
72 return; |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
73 } |