开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 语音压缩 > 查看源码
TAB_LD8A.C
资源名称：G711-729.rar　[点击查看]
上传用户：meifeng08
上传日期：2013-06-18
资源大小：5304k
文件大小：27k
源码类别：

语音压缩

开发平台：

C/C++

TAB_LD8A.C：源码内容
  1. /*
  2.    ITU-T G.729A Speech Coder    ANSI-C Source Code
  3.    Version 1.1    Last modified: September 1996
  5.    Copyright (c) 1996,
  6.    AT&T, France Telecom, NTT, Universite de Sherbrooke
  7.    All rights reserved.
  8. */
  11. /* This file contains all the tables used by the G.729A codec */
  13. #include "typedef.h"
  14. #include "ld8a.h"
  15. #include "tab_ld8a.h"
  17. /* Hamming_cos window for LPC analysis.           */
  18. /*   Create with function ham_cos(window,200,40)  */
  20. Word16 hamwindow[L_WINDOW] = {
  21.   2621,  2623,  2629,  2638,  2651,  2668,  2689,  2713,  2741,  2772,
  22.   2808,  2847,  2890,  2936,  2986,  3040,  3097,  3158,  3223,  3291,
  23.   3363,  3438,  3517,  3599,  3685,  3774,  3867,  3963,  4063,  4166,
  24.   4272,  4382,  4495,  4611,  4731,  4853,  4979,  5108,  5240,  5376,
  25.   5514,  5655,  5800,  5947,  6097,  6250,  6406,  6565,  6726,  6890,
  26.   7057,  7227,  7399,  7573,  7750,  7930,  8112,  8296,  8483,  8672,
  27.   8863,  9057,  9252,  9450,  9650,  9852, 10055, 10261, 10468, 10677,
  28.  10888, 11101, 11315, 11531, 11748, 11967, 12187, 12409, 12632, 12856,
  29.  13082, 13308, 13536, 13764, 13994, 14225, 14456, 14688, 14921, 15155,
  30.  15389, 15624, 15859, 16095, 16331, 16568, 16805, 17042, 17279, 17516,
  31.  17754, 17991, 18228, 18465, 18702, 18939, 19175, 19411, 19647, 19882,
  32.  20117, 20350, 20584, 20816, 21048, 21279, 21509, 21738, 21967, 22194,
  33.  22420, 22644, 22868, 23090, 23311, 23531, 23749, 23965, 24181, 24394,
  34.  24606, 24816, 25024, 25231, 25435, 25638, 25839, 26037, 26234, 26428,
  35.  26621, 26811, 26999, 27184, 27368, 27548, 27727, 27903, 28076, 28247,
  36.  28415, 28581, 28743, 28903, 29061, 29215, 29367, 29515, 29661, 29804,
  37.  29944, 30081, 30214, 30345, 30472, 30597, 30718, 30836, 30950, 31062,
  38.  31170, 31274, 31376, 31474, 31568, 31659, 31747, 31831, 31911, 31988,
  39.  32062, 32132, 32198, 32261, 32320, 32376, 32428, 32476, 32521, 32561,
  40.  32599, 32632, 32662, 32688, 32711, 32729, 32744, 32755, 32763, 32767,
  41.  32767, 32741, 32665, 32537, 32359, 32129, 31850, 31521, 31143, 30716,
  42.  30242, 29720, 29151, 28538, 27879, 27177, 26433, 25647, 24821, 23957,
  43.  23055, 22117, 21145, 20139, 19102, 18036, 16941, 15820, 14674, 13505,
  44.  12315, 11106,  9879,  8637,  7381,  6114,  4838,  3554,  2264,   971};
  47. /*-----------------------------------------------------*
  48.  | Table of lag_window for autocorrelation.            |
  49.  | noise floor = 1.0001   = (0.9999  on r[1] ..r[10])  |
  50.  | Bandwidth expansion = 60 Hz                         |
  51.  |                                                     |
  52.  | Special double precision format. See "oper_32b.c"   |
  53.  |                                                     |
  54.  | lag_wind[0] =  1.00000000    (not stored)           |
  55.  | lag_wind[1] =  0.99879038                           |
  56.  | lag_wind[2] =  0.99546897                           |
  57.  | lag_wind[3] =  0.98995781                           |
  58.  | lag_wind[4] =  0.98229337                           |
  59.  | lag_wind[5] =  0.97252619                           |
  60.  | lag_wind[6] =  0.96072036                           |
  61.  | lag_wind[7] =  0.94695264                           |
  62.  | lag_wind[8] =  0.93131179                           |
  63.  | lag_wind[9] =  0.91389757                           |
  64.  | lag_wind[10]=  0.89481968                           |
  65.  -----------------------------------------------------*/
  67. Word16 lag_h[M] = {
  68.     32728,
  69.     32619,
  70.     32438,
  71.     32187,
  72.     31867,
  73.     31480,
  74.     31029,
  75.     30517,
  76.     29946,
  77.     29321};
  79. Word16 lag_l[M] = {
  80.     11904,
  81.     17280,
  82.     30720,
  83.     25856,
  84.     24192,
  85.     28992,
  86.     24384,
  87.      7360,
  88.     19520,
  89.     14784};
  92. /*-----------------------------------------------------*
  93.  | Tables for function Lsf_lsp() and Lsp_lsf()         |
  94.   -----------------------------------------------------*/
  96. /* table of cos(x) in Q15 */
  98. Word16 table[65] = {
  99.   32767,  32729,  32610,  32413,  32138,  31786,  31357,  30853,
  100.   30274,  29622,  28899,  28106,  27246,  26320,  25330,  24279,
  101.   23170,  22006,  20788,  19520,  18205,  16846,  15447,  14010,
  102.   12540,  11039,   9512,   7962,   6393,   4808,   3212,   1608,
  103.       0,  -1608,  -3212,  -4808,  -6393,  -7962,  -9512, -11039,
  104.  -12540, -14010, -15447, -16846, -18205, -19520, -20788, -22006,
  105.  -23170, -24279, -25330, -26320, -27246, -28106, -28899, -29622,
  106.  -30274, -30853, -31357, -31786, -32138, -32413, -32610, -32729,
  107.  -32768L };
  109. /* slope in Q12 used to compute y = acos(x) */
  111. Word16 slope[64] = {
  112.  -26887,  -8812,  -5323,  -3813,  -2979,  -2444,  -2081,  -1811,
  113.   -1608,  -1450,  -1322,  -1219,  -1132,  -1059,   -998,   -946,
  114.    -901,   -861,   -827,   -797,   -772,   -750,   -730,   -713,
  115.    -699,   -687,   -677,   -668,   -662,   -657,   -654,   -652,
  116.    -652,   -654,   -657,   -662,   -668,   -677,   -687,   -699,
  117.    -713,   -730,   -750,   -772,   -797,   -827,   -861,   -901,
  118.    -946,   -998,  -1059,  -1132,  -1219,  -1322,  -1450,  -1608,
  119.   -1811,  -2081,  -2444,  -2979,  -3813,  -5323,  -8812, -26887};
  122. /*-----------------------------------------------------*
  123.  | Tables for function Lsf_lsp() and Lsp_lsf()         |
  124.   -----------------------------------------------------*/
  126. /* table of cos(x) in Q15 */
  128. Word16 table2[64] = {
  129.   32767,  32729,  32610,  32413,  32138,  31786,  31357,  30853,
  130.   30274,  29622,  28899,  28106,  27246,  26320,  25330,  24279,
  131.   23170,  22006,  20788,  19520,  18205,  16846,  15447,  14010,
  132.   12540,  11039,   9512,   7962,   6393,   4808,   3212,   1608,
  133.       0,  -1608,  -3212,  -4808,  -6393,  -7962,  -9512, -11039,
  134.  -12540, -14010, -15447, -16846, -18205, -19520, -20788, -22006,
  135.  -23170, -24279, -25330, -26320, -27246, -28106, -28899, -29622,
  136.  -30274, -30853, -31357, -31786, -32138, -32413, -32610, -32729 };
  138. /* slope in Q19 used to compute y = cos(x) */
  140. Word16 slope_cos[64] = {
  141.    -632,  -1893,  -3150,  -4399,  -5638,  -6863,  -8072,  -9261,
  142.  -10428, -11570, -12684, -13767, -14817, -15832, -16808, -17744,
  143.  -18637, -19486, -20287, -21039, -21741, -22390, -22986, -23526,
  144.  -24009, -24435, -24801, -25108, -25354, -25540, -25664, -25726,
  145.  -25726, -25664, -25540, -25354, -25108, -24801, -24435, -24009,
  146.  -23526, -22986, -22390, -21741, -21039, -20287, -19486, -18637,
  147.  -17744, -16808, -15832, -14817, -13767, -12684, -11570, -10428,
  148.   -9261,  -8072,  -6863,  -5638,  -4399,  -3150,  -1893,   -632 };
  150. /* slope in Q12 used to compute y = acos(x) */
  152. Word16 slope_acos[64] = {
  153.  -26887,  -8812,  -5323,  -3813,  -2979,  -2444,  -2081,  -1811,
  154.   -1608,  -1450,  -1322,  -1219,  -1132,  -1059,   -998,   -946,
  155.    -901,   -861,   -827,   -797,   -772,   -750,   -730,   -713,
  156.    -699,   -687,   -677,   -668,   -662,   -657,   -654,   -652,
  157.    -652,   -654,   -657,   -662,   -668,   -677,   -687,   -699,
  158.    -713,   -730,   -750,   -772,   -797,   -827,   -861,   -901,
  159.    -946,   -998,  -1059,  -1132,  -1219,  -1322,  -1450,  -1608,
  160.   -1811,  -2081,  -2444,  -2979,  -3813,  -5323,  -8812, -26887};
  161. /* lsp    code book   <../f7s55m1.v2> */
  163. Word16 lspcb1[NC0][M] = {        /* Q13 */
  164. { 1486,  2168,  3751,  9074, 12134, 13944, 17983, 19173, 21190, 21820},
  165. { 1730,  2640,  3450,  4870,  6126,  7876, 15644, 17817, 20294, 21902},
  166. { 1568,  2256,  3088,  4874, 11063, 13393, 18307, 19293, 21109, 21741},
  167. { 1733,  2512,  3357,  4708,  6977, 10296, 17024, 17956, 19145, 20350},
  168. { 1744,  2436,  3308,  8731, 10432, 12007, 15614, 16639, 21359, 21913},
  169. { 1786,  2369,  3372,  4521,  6795, 12963, 17674, 18988, 20855, 21640},
  170. { 1631,  2433,  3361,  6328, 10709, 12013, 13277, 13904, 19441, 21088},
  171. { 1489,  2364,  3291,  6250,  9227, 10403, 13843, 15278, 17721, 21451},
  172. { 1869,  2533,  3475,  4365,  9152, 14513, 15908, 17022, 20611, 21411},
  173. { 2070,  3025,  4333,  5854,  7805,  9231, 10597, 16047, 20109, 21834},
  174. { 1910,  2673,  3419,  4261, 11168, 15111, 16577, 17591, 19310, 20265},
  175. { 1141,  1815,  2624,  4623,  6495,  9588, 13968, 16428, 19351, 21286},
  176. { 2192,  3171,  4707,  5808, 10904, 12500, 14162, 15664, 21124, 21789},
  177. { 1286,  1907,  2548,  3453,  9574, 11964, 15978, 17344, 19691, 22495},
  178. { 1921,  2720,  4604,  6684, 11503, 12992, 14350, 15262, 16997, 20791},
  179. { 2052,  2759,  3897,  5246,  6638, 10267, 15834, 16814, 18149, 21675},
  180. { 1798,  2497,  5617, 11449, 13189, 14711, 17050, 18195, 20307, 21182},
  181. { 1009,  1647,  2889,  5709,  9541, 12354, 15231, 18494, 20966, 22033},
  182. { 3016,  3794,  5406,  7469, 12488, 13984, 15328, 16334, 19952, 20791},
  183. { 2203,  3040,  3796,  5442, 11987, 13512, 14931, 16370, 17856, 18803},
  184. { 2912,  4292,  7988,  9572, 11562, 13244, 14556, 16529, 20004, 21073},
  185. { 2861,  3607,  5923,  7034,  9234, 12054, 13729, 18056, 20262, 20974},
  186. { 3069,  4311,  5967,  7367, 11482, 12699, 14309, 16233, 18333, 19172},
  187. { 2434,  3661,  4866,  5798, 10383, 11722, 13049, 15668, 18862, 19831},
  188. { 2020,  2605,  3860,  9241, 13275, 14644, 16010, 17099, 19268, 20251},
  189. { 1877,  2809,  3590,  4707, 11056, 12441, 15622, 17168, 18761, 19907},
  190. { 2107,  2873,  3673,  5799, 13579, 14687, 15938, 17077, 18890, 19831},
  191. { 1612,  2284,  2944,  3572,  8219, 13959, 15924, 17239, 18592, 20117},
  192. { 2420,  3156,  6542, 10215, 12061, 13534, 15305, 16452, 18717, 19880},
  193. { 1667,  2612,  3534,  5237, 10513, 11696, 12940, 16798, 18058, 19378},
  194. { 2388,  3017,  4839,  9333, 11413, 12730, 15024, 16248, 17449, 18677},
  195. { 1875,  2786,  4231,  6320,  8694, 10149, 11785, 17013, 18608, 19960},
  196. {  679,  1411,  4654,  8006, 11446, 13249, 15763, 18127, 20361, 21567},
  197. { 1838,  2596,  3578,  4608,  5650, 11274, 14355, 15886, 20579, 21754},
  198. { 1303,  1955,  2395,  3322, 12023, 13764, 15883, 18077, 20180, 21232},
  199. { 1438,  2102,  2663,  3462,  8328, 10362, 13763, 17248, 19732, 22344},
  200. {  860,  1904,  6098,  7775,  9815, 12007, 14821, 16709, 19787, 21132},
  201. { 1673,  2723,  3704,  6125,  7668,  9447, 13683, 14443, 20538, 21731},
  202. { 1246,  1849,  2902,  4508,  7221, 12710, 14835, 16314, 19335, 22720},
  203. { 1525,  2260,  3862,  5659,  7342, 11748, 13370, 14442, 18044, 21334},
  204. { 1196,  1846,  3104,  7063, 10972, 12905, 14814, 17037, 19922, 22636},
  205. { 2147,  3106,  4475,  6511,  8227,  9765, 10984, 12161, 18971, 21300},
  206. { 1585,  2405,  2994,  4036, 11481, 13177, 14519, 15431, 19967, 21275},
  207. { 1778,  2688,  3614,  4680,  9465, 11064, 12473, 16320, 19742, 20800},
  208. { 1862,  2586,  3492,  6719, 11708, 13012, 14364, 16128, 19610, 20425},
  209. { 1395,  2156,  2669,  3386, 10607, 12125, 13614, 16705, 18976, 21367},
  210. { 1444,  2117,  3286,  6233,  9423, 12981, 14998, 15853, 17188, 21857},
  211. { 2004,  2895,  3783,  4897,  6168,  7297, 12609, 16445, 19297, 21465},
  212. { 1495,  2863,  6360,  8100, 11399, 14271, 15902, 17711, 20479, 22061},
  213. { 2484,  3114,  5718,  7097,  8400, 12616, 14073, 14847, 20535, 21396},
  214. { 2424,  3277,  5296,  6284, 11290, 12903, 16022, 17508, 19333, 20283},
  215. { 2565,  3778,  5360,  6989,  8782, 10428, 14390, 15742, 17770, 21734},
  216. { 2727,  3384,  6613,  9254, 10542, 12236, 14651, 15687, 20074, 21102},
  217. { 1916,  2953,  6274,  8088,  9710, 10925, 12392, 16434, 20010, 21183},
  218. { 3384,  4366,  5349,  7667, 11180, 12605, 13921, 15324, 19901, 20754},
  219. { 3075,  4283,  5951,  7619,  9604, 11010, 12384, 14006, 20658, 21497},
  220. { 1751,  2455,  5147,  9966, 11621, 13176, 14739, 16470, 20788, 21756},
  221. { 1442,  2188,  3330,  6813,  8929, 12135, 14476, 15306, 19635, 20544},
  222. { 2294,  2895,  4070,  8035, 12233, 13416, 14762, 17367, 18952, 19688},
  223. { 1937,  2659,  4602,  6697,  9071, 12863, 14197, 15230, 16047, 18877},
  224. { 2071,  2663,  4216,  9445, 10887, 12292, 13949, 14909, 19236, 20341},
  225. { 1740,  2491,  3488,  8138,  9656, 11153, 13206, 14688, 20896, 21907},
  226. { 2199,  2881,  4675,  8527, 10051, 11408, 14435, 15463, 17190, 20597},
  227. { 1943,  2988,  4177,  6039,  7478,  8536, 14181, 15551, 17622, 21579},
  228. { 1825,  3175,  7062,  9818, 12824, 15450, 18330, 19856, 21830, 22412},
  229. { 2464,  3046,  4822,  5977,  7696, 15398, 16730, 17646, 20588, 21320},
  230. { 2550,  3393,  5305,  6920, 10235, 14083, 18143, 19195, 20681, 21336},
  231. { 3003,  3799,  5321,  6437,  7919, 11643, 15810, 16846, 18119, 18980},
  232. { 3455,  4157,  6838,  8199,  9877, 12314, 15905, 16826, 19949, 20892},
  233. { 3052,  3769,  4891,  5810,  6977, 10126, 14788, 15990, 19773, 20904},
  234. { 3671,  4356,  5827,  6997,  8460, 12084, 14154, 14939, 19247, 20423},
  235. { 2716,  3684,  5246,  6686,  8463, 10001, 12394, 14131, 16150, 19776},
  236. { 1945,  2638,  4130,  7995, 14338, 15576, 17057, 18206, 20225, 20997},
  237. { 2304,  2928,  4122,  4824,  5640, 13139, 15825, 16938, 20108, 21054},
  238. { 1800,  2516,  3350,  5219, 13406, 15948, 17618, 18540, 20531, 21252},
  239. { 1436,  2224,  2753,  4546,  9657, 11245, 15177, 16317, 17489, 19135},
  240. { 2319,  2899,  4980,  6936,  8404, 13489, 15554, 16281, 20270, 20911},
  241. { 2187,  2919,  4610,  5875,  7390, 12556, 14033, 16794, 20998, 21769},
  242. { 2235,  2923,  5121,  6259,  8099, 13589, 15340, 16340, 17927, 20159},
  243. { 1765,  2638,  3751,  5730,  7883, 10108, 13633, 15419, 16808, 18574},
  244. { 3460,  5741,  9596, 11742, 14413, 16080, 18173, 19090, 20845, 21601},
  245. { 3735,  4426,  6199,  7363,  9250, 14489, 16035, 17026, 19873, 20876},
  246. { 3521,  4778,  6887,  8680, 12717, 14322, 15950, 18050, 20166, 21145},
  247. { 2141,  2968,  6865,  8051, 10010, 13159, 14813, 15861, 17528, 18655},
  248. { 4148,  6128,  9028, 10871, 12686, 14005, 15976, 17208, 19587, 20595},
  249. { 4403,  5367,  6634,  8371, 10163, 11599, 14963, 16331, 17982, 18768},
  250. { 4091,  5386,  6852,  8770, 11563, 13290, 15728, 16930, 19056, 20102},
  251. { 2746,  3625,  5299,  7504, 10262, 11432, 13172, 15490, 16875, 17514},
  252. { 2248,  3556,  8539, 10590, 12665, 14696, 16515, 17824, 20268, 21247},
  253. { 1279,  1960,  3920,  7793, 10153, 14753, 16646, 18139, 20679, 21466},
  254. { 2440,  3475,  6737,  8654, 12190, 14588, 17119, 17925, 19110, 19979},
  255. { 1879,  2514,  4497,  7572, 10017, 14948, 16141, 16897, 18397, 19376},
  256. { 2804,  3688,  7490, 10086, 11218, 12711, 16307, 17470, 20077, 21126},
  257. { 2023,  2682,  3873,  8268, 10255, 11645, 15187, 17102, 18965, 19788},
  258. { 2823,  3605,  5815,  8595, 10085, 11469, 16568, 17462, 18754, 19876},
  259. { 2851,  3681,  5280,  7648,  9173, 10338, 14961, 16148, 17559, 18474},
  260. { 1348,  2645,  5826,  8785, 10620, 12831, 16255, 18319, 21133, 22586},
  261. { 2141,  3036,  4293,  6082,  7593, 10629, 17158, 18033, 21466, 22084},
  262. { 1608,  2375,  3384,  6878,  9970, 11227, 16928, 17650, 20185, 21120},
  263. { 2774,  3616,  5014,  6557,  7788,  8959, 17068, 18302, 19537, 20542},
  264. { 1934,  4813,  6204,  7212,  8979, 11665, 15989, 17811, 20426, 21703},
  265. { 2288,  3507,  5037,  6841,  8278,  9638, 15066, 16481, 21653, 22214},
  266. { 2951,  3771,  4878,  7578,  9016, 10298, 14490, 15242, 20223, 20990},
  267. { 3256,  4791,  6601,  7521,  8644,  9707, 13398, 16078, 19102, 20249},
  268. { 1827,  2614,  3486,  6039, 12149, 13823, 16191, 17282, 21423, 22041},
  269. { 1000,  1704,  3002,  6335,  8471, 10500, 14878, 16979, 20026, 22427},
  270. { 1646,  2286,  3109,  7245, 11493, 12791, 16824, 17667, 18981, 20222},
  271. { 1708,  2501,  3315,  6737,  8729,  9924, 16089, 17097, 18374, 19917},
  272. { 2623,  3510,  4478,  5645,  9862, 11115, 15219, 18067, 19583, 20382},
  273. { 2518,  3434,  4728,  6388,  8082,  9285, 13162, 18383, 19819, 20552},
  274. { 1726,  2383,  4090,  6303,  7805, 12845, 14612, 17608, 19269, 20181},
  275. { 2860,  3735,  4838,  6044,  7254,  8402, 14031, 16381, 18037, 19410},
  276. { 4247,  5993,  7952,  9792, 12342, 14653, 17527, 18774, 20831, 21699},
  277. { 3502,  4051,  5680,  6805,  8146, 11945, 16649, 17444, 20390, 21564},
  278. { 3151,  4893,  5899,  7198, 11418, 13073, 15124, 17673, 20520, 21861},
  279. { 3960,  4848,  5926,  7259,  8811, 10529, 15661, 16560, 18196, 20183},
  280. { 4499,  6604,  8036,  9251, 10804, 12627, 15880, 17512, 20020, 21046},
  281. { 4251,  5541,  6654,  8318,  9900, 11686, 15100, 17093, 20572, 21687},
  282. { 3769,  5327,  7865,  9360, 10684, 11818, 13660, 15366, 18733, 19882},
  283. { 3083,  3969,  6248,  8121,  9798, 10994, 12393, 13686, 17888, 19105},
  284. { 2731,  4670,  7063,  9201, 11346, 13735, 16875, 18797, 20787, 22360},
  285. { 1187,  2227,  4737,  7214,  9622, 12633, 15404, 17968, 20262, 23533},
  286. { 1911,  2477,  3915, 10098, 11616, 12955, 16223, 17138, 19270, 20729},
  287. { 1764,  2519,  3887,  6944,  9150, 12590, 16258, 16984, 17924, 18435},
  288. { 1400,  3674,  7131,  8718, 10688, 12508, 15708, 17711, 19720, 21068},
  289. { 2322,  3073,  4287,  8108,  9407, 10628, 15862, 16693, 19714, 21474},
  290. { 2630,  3339,  4758,  8360, 10274, 11333, 12880, 17374, 19221, 19936},
  291. { 1721,  2577,  5553,  7195,  8651, 10686, 15069, 16953, 18703, 19929}
  292. };
  295. Word16 lspcb2[NC1][M] = {        /* Q13 */
  296. { -435,  -815,  -742,  1033,  -518,   582, -1201,   829,    86,   385},
  297. { -833,  -891,   463,    -8, -1251,  1450,    72,  -231,   864,   661},
  298. {-1021,   231,  -306,   321,  -220,  -163,  -526,  -754, -1633,   267},
  299. {   57,  -198,  -339,   -33, -1468,   573,   796,  -169,  -631,   816},
  300. {  171,  -350,   294,  1660,   453,   519,   291,   159,  -640, -1296},
  301. { -701,  -842,   -58,   950,   892,  1549,   715,   527,  -714,  -193},
  302. {  584,    31,  -289,   356,  -333,  -457,   612,  -283, -1381,  -741},
  303. { -109,  -808,   231,    77,   -87,  -344,  1341,  1087,  -654,  -569},
  304. { -859,  1236,   550,   854,   714,  -543, -1752,  -195,   -98,  -276},
  305. { -877,  -954, -1248,  -299,   212,  -235,  -728,   949,  1517,   895},
  306. {  -77,   344,  -620,   763,   413,   502,  -362,  -960,  -483,  1386},
  307. { -314,  -307,  -256, -1260,  -429,   450,  -466,  -108,  1010,  2223},
  308. {  711,   693,   521,   650,  1305,   -28,  -378,   744, -1005,   240},
  309. { -112,  -271,  -500,   946,  1733,   271,   -15,   909,  -259,  1688},
  310. {  575,   -10,  -468,  -199,  1101, -1011,   581,   -53,  -747,   878},
  311. {  145,  -285, -1280,  -398,    36,  -498, -1377,    18,  -444,  1483},
  312. {-1133,  -835,  1350,  1284,   -95,  1015,  -222,   443,   372,  -354},
  313. {-1459, -1237,   416,  -213,   466,   669,   659,  1640,   932,   534},
  314. {  -15,    66,   468,  1019,  -748,  1385,  -182,  -907,  -721,  -262},
  315. { -338,   148,  1445,    75,  -760,   569,  1247,   337,   416,  -121},
  316. {  389,   239,  1568,   981,   113,   369, -1003,  -507,  -587,  -904},
  317. { -312,   -98,   949,    31,  1104,    72,  -141,  1465,    63,  -785},
  318. { 1127,   584,   835,   277, -1159,   208,   301,  -882,   117,  -404},
  319. {  539,  -114,   856,  -493,   223,  -912,   623,   -76,   276,  -440},
  320. { 2197,  2337,  1268,   670,   304,  -267,  -525,   140,   882,  -139},
  321. {-1596,   550,   801,  -456,   -56,  -697,   865,  1060,   413,   446},
  322. { 1154,   593,   -77,  1237,   -31,   581, -1037,  -895,   669,   297},
  323. {  397,   558,   203,  -797,  -919,     3,   692,  -292,  1050,   782},
  324. {  334,  1475,   632,   -80,    48, -1061,  -484,   362,  -597,  -852},
  325. { -545,  -330,  -429,  -680,  1133, -1182,  -744,  1340,   262,    63},
  326. { 1320,   827,  -398,  -576,   341,  -774,  -483, -1247,   -70,    98},
  327. { -163,   674,   -11,  -886,   531, -1125,  -265,  -242,   724,   934}
  328. };
  329. Word16 fg[2][MA_NP][M] = {       /* Q15 */
  330.   {
  331.     { 8421,  9109,  9175,  8965,  9034,  9057,  8765,  8775,  9106,  8673},
  332.     { 7018,  7189,  7638,  7307,  7444,  7379,  7038,  6956,  6930,  6868},
  333.     { 5472,  4990,  5134,  5177,  5246,  5141,  5206,  5095,  4830,  5147},
  334.     { 4056,  3031,  2614,  3024,  2916,  2713,  3309,  3237,  2857,  3473}
  335.   },
  336.   {
  337.     { 7733,  7880,  8188,  8175,  8247,  8490,  8637,  8601,  8359,  7569},
  338.     { 4210,  3031,  2552,  3473,  3876,  3853,  4184,  4154,  3909,  3968},
  339.     { 3214,  1930,  1313,  2143,  2493,  2385,  2755,  2706,  2542,  2919},
  340.     { 3024,  1592,   940,  1631,  1723,  1579,  2034,  2084,  1913,  2601}
  341.   }
  342. };
  343. Word16 fg_sum[2][M] = {      /* Q15 */
  344. { 7798,  8447,  8205,  8293,  8126,  8477,  8447,  8703,  9043,  8604},
  345. {14585, 18333, 19772, 17344, 16426, 16459, 15155, 15220, 16043, 15708}
  346. };
  347. Word16 fg_sum_inv[2][M] = {      /* Q12 */
  348. {17210, 15888, 16357, 16183, 16516, 15833, 15888, 15421, 14840, 15597},
  349. { 9202,  7320,  6788,  7738,  8170,  8154,  8856,  8818,  8366,  8544}
  350. };
  352. /*-------------------------------------------------------------*
  353.  *  Table for az_lsf()                                         *
  354.  *                                                             *
  355.  * Vector grid[] is in Q15                                     *
  356.  *                                                             *
  357.  * grid[0] = 1.0;                                              *
  358.  * grid[grid_points+1] = -1.0;                                 *
  359.  * for (i = 1; i < grid_points; i++)                           *
  360.  *   grid[i] = cos((6.283185307*i)/(2.0*grid_points));         *
  361.  *                                                             *
  362.  *-------------------------------------------------------------*/
  364. /* Version 51 points */
  365. Word16 grid[GRID_POINTS+1] ={
  366.      32760,     32703,     32509,     32187,     31738,     31164,
  367.      30466,     29649,     28714,     27666,     26509,     25248,
  368.      23886,     22431,     20887,     19260,     17557,     15786,
  369.      13951,     12062,     10125,      8149,      6140,      4106,
  370.       2057,         0,     -2057,     -4106,     -6140,     -8149,
  371.     -10125,    -12062,    -13951,    -15786,    -17557,    -19260,
  372.     -20887,    -22431,    -23886,    -25248,    -26509,    -27666,
  373.     -28714,    -29649,    -30466,    -31164,    -31738,    -32187,
  374.     -32509,    -32703,    -32760};
  376. /*-----------------------------------------------------*
  377.  | Tables for pitch related routines .                 |
  378.  -----------------------------------------------------*/
  380. /* 1/3 resolution interpolation filter  (-3 dB at 3600 Hz)  in Q15 */
  382. Word16 inter_3l[FIR_SIZE_SYN] = {
  383.    29443,
  384.    25207,   14701,    3143,
  385.    -4402,   -5850,   -2783,
  386.     1211,    3130,    2259,
  387.        0,   -1652,   -1666,
  388.     -464,     756,    1099,
  389.      550,    -245,    -634,
  390.     -451,       0,     308,
  391.      296,      78,    -120,
  392.     -165,     -79,      34,
  393.       91,      70,       0};
  395.    /*Coefficients in floating point
  397.    0.898517,
  398.    0.769271,   0.448635,   0.095915,
  399.   -0.134333,  -0.178528,  -0.084919,
  400.    0.036952,   0.095533,   0.068936,
  401.   -0.000000,  -0.050404,  -0.050835,
  402.   -0.014169,   0.023083,   0.033543,
  403.    0.016774,  -0.007466,  -0.019340,
  404.   -0.013755,   0.000000,   0.009400,
  405.    0.009029,   0.002381,  -0.003658,
  406.   -0.005027,  -0.002405,   0.001050,
  407.    0.002780,   0.002145,   0.000000};
  408.   */
  410. /*-----------------------------------------------------*
  411.  | Tables for gain related routines .                  |
  412.  -----------------------------------------------------*/
  414. /* MA gain prediction coeff ={0.68, 0.58, 0.34, 0.19} in Q13 */
  415. Word16 pred[4] = { 5571, 4751, 2785, 1556 };
  418. Word16 gbk1[NCODE1][2] = {
  419. /* Q14      Q13 */
  420.  {    1 ,  1516 },
  421.  { 1551 ,  2425 },
  422.  { 1831 ,  5022 },
  423.  {   57 ,  5404 },
  424.  { 1921 ,  9291 },
  425.  { 3242 ,  9949 },
  426.  {  356 , 14756 },
  427.  { 2678 , 27162 }
  428. };
  430. Word16 gbk2[NCODE2][2] = {
  431. /* Q14       Q13 */
  432.  {   826 ,  2005 },
  433.  {  1994 ,     0 },
  434.  {  5142 ,   592 },
  435.  {  6160 ,  2395 },
  436.  {  8091 ,  4861 },
  437.  {  9120 ,   525 },
  438.  { 10573 ,  2966 },
  439.  { 11569 ,  1196 },
  440.  { 13260 ,  3256 },
  441.  { 14194 ,  1630 },
  442.  { 15132 ,  4914 },
  443.  { 15161 , 14276 },
  444.  { 15434 ,   237 },
  445.  { 16112 ,  3392 },
  446.  { 17299 ,  1861 },
  447.  { 18973 ,  5935 }
  448. };
  450. Word16 map1[NCODE1] = {
  451.  5, 1, 4, 7, 3, 0, 6, 2
  452. };
  454. Word16 map2[NCODE2] = {
  455.  4, 6, 0, 2,12,14, 8,10,15,11, 9,13, 7, 3, 1, 5
  456. };
  458. /*  [0][0]      [0][1]       [1][0]     [1][1]    */
  459. /*  Q10         Q14          Q16        Q19       */
  460. Word16 coef[2][2] = {
  461.    { 31881 , 26416 },
  462.    { 31548 , 27816 }
  463. };
  464. /*  [0][0]      [0][1]       [1][0]     [1][1]    */
  465. /*  Q26         Q30          Q32        Q35       */
  466. Word32 L_coef[2][2] = {
  467.    { 2089405952L , 1731217536L },
  468.    { 2067549984L , 1822990272L }
  469. };
  471. Word16 thr1[NCODE1-NCAN1] = {  /* Q14 */
  472.    10808 ,
  473.    12374 ,
  474.    19778 ,
  475.    32567
  476. };
  477. Word16 thr2[NCODE2-NCAN2] = {  /* Q15 */
  478.    14087 ,
  479.    16188 ,
  480.    20274 ,
  481.    21321 ,
  482.    23525 ,
  483.    25232 ,
  484.    27873 ,
  485.    30542
  486. };
  487. Word16 imap1[NCODE1] = {
  488.  5, 1, 7, 4, 2, 0, 6, 3
  489. };
  491. Word16 imap2[NCODE2] = {
  492.  2,14, 3,13, 0,15, 1,12, 6,10, 7, 9, 4,11, 5, 8
  493. };
  495. /*-----------------------------------------------------*
  496.  | Tables for routines post_pro() & pre_proc().        |
  497.  -----------------------------------------------------*/
  499. /* filter coefficients (fc = 100 Hz) */
  501. Word16 b100[3] = {7699, -15398, 7699};      /* Q13 */
  502. Word16 a100[3] = {8192, 15836, -7667};      /* Q13 */
  504. /* filter coefficients (fc = 140 Hz, coeff. b[] is divided by 2) */
  506. Word16 b140[3] = {1899, -3798, 1899};      /* 1/2 in Q12 */
  507. Word16 a140[3] = {4096, 7807, -3733};      /* Q12 */
  509. /*-----------------------------------------------------*
  510.  | Tables for routine bits().                          |
  511.  -----------------------------------------------------*/
  514. Word16 bitsno[PRM_SIZE] = {1+NC0_B,               /* MA + 1st stage   */
  515.                                  NC1_B*2,         /* 2nd stage        */
  516.                                  8, 1, 13, 4, 7,  /* first subframe   */
  517.                                  5,    13, 4, 7}; /* second subframe  */
  520. /*-----------------------------------------------------*
  521.  | Table for routine Pow2().                           |
  522.  -----------------------------------------------------*/
  524. Word16 tabpow[33] = {
  525.  16384, 16743, 17109, 17484, 17867, 18258, 18658, 19066, 19484, 19911,
  526.  20347, 20792, 21247, 21713, 22188, 22674, 23170, 23678, 24196, 24726,
  527.  25268, 25821, 26386, 26964, 27554, 28158, 28774, 29405, 30048, 30706,
  528.  31379, 32066, 32767 };
  530. /*-----------------------------------------------------*
  531.  | Table for routine Log2().                           |
  532.  -----------------------------------------------------*/
  534. Word16 tablog[33] = {
  535.      0,  1455,  2866,  4236,  5568,  6863,  8124,  9352, 10549, 11716,
  536.  12855, 13967, 15054, 16117, 17156, 18172, 19167, 20142, 21097, 22033,
  537.  22951, 23852, 24735, 25603, 26455, 27291, 28113, 28922, 29716, 30497,
  538.  31266, 32023, 32767 };
  540. /*-----------------------------------------------------*
  541.  | Table for routine Inv_sqrt().                       |
  542.  -----------------------------------------------------*/
  544. Word16 tabsqr[49] = {
  546.  32767, 31790, 30894, 30070, 29309, 28602, 27945, 27330, 26755, 26214,
  547.  25705, 25225, 24770, 24339, 23930, 23541, 23170, 22817, 22479, 22155,
  548.  21845, 21548, 21263, 20988, 20724, 20470, 20225, 19988, 19760, 19539,
  549.  19326, 19119, 18919, 18725, 18536, 18354, 18176, 18004, 17837, 17674,
  550.  17515, 17361, 17211, 17064, 16921, 16782, 16646, 16514, 16384 };
  552. /*-----------------------------------------------------*
  553.  | Table for taming procedure test_err.                |
  554.  -----------------------------------------------------*/
  556. Word16 tab_zone[PIT_MAX+L_INTERPOL-1] = {
  558.  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  559.  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1,
  560.  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  561.  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2,
  562.  2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
  563.  2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
  564.  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 };