FreeCalypso > hg > gsm-codec-lib
annotate libtwamr/lag_wind.tab @ 469:7c50864deaff
amrts-pcm8-compact program written
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Mon, 13 May 2024 21:06:58 +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.tab |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
11 * Purpose : Table of lag_window for autocorrelation. |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
12 * $Id $ |
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 | Table of lag_window for autocorrelation. | |
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 | noise floor = 1.0001 = (0.9999 on r[1] ..r[10]) | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
20 | Bandwitdh expansion = 60 Hz | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
21 | | |
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 | lag_wind[0] = 1.00000000 (not stored) | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
24 | lag_wind[1] = 0.99879038 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
25 | lag_wind[2] = 0.99546897 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
26 | lag_wind[3] = 0.98995781 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
27 | lag_wind[4] = 0.98229337 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
28 | lag_wind[5] = 0.97252619 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
29 | lag_wind[6] = 0.96072036 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
30 | lag_wind[7] = 0.94695264 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
31 | lag_wind[8] = 0.93131179 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
32 | lag_wind[9] = 0.91389757 | |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
33 | lag_wind[10]= 0.89481968 | |
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 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
36 static const Word16 lag_h[10] = |
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 32728, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
39 32619, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
40 32438, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
41 32187, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
42 31867, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
43 31480, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
44 31029, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
45 30517, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
46 29946, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
47 29321 |
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 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
50 static const Word16 lag_l[10] = |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
51 { |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
52 11904, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
53 17280, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
54 30720, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
55 25856, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
56 24192, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
57 28992, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
58 24384, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
59 7360, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
60 19520, |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
61 14784 |
a8dab7028e4d
libtwamr: integrate lag_wind.c
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
62 }; |