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

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

语音压缩

开发平台：

C/C++

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