G.729编解码源代码

/*************************************************************************/ /* */ /* LD-CELP G.728 */ /* */ /* Low-Delay Code Excitation Linear Prediction speech compression. */ /* */ /* Copyright: Analog Devices, Inc., 1993 */ /* */ /* Author: Alex Zatsman. */ /* */ /* This program was written mostly for testing Analog Devices' g21k C */ /* compiler for the ADSP21000 architecture family. While the program */ /* works on Sparc and ADSP21020, it has NOT been tested with the */ /* official test data from CCITT/ITU. */ /* */ /* The program is distributed as is, WITHOUT ANY WARRANTY, EITHER */ /* EXPLICIT OR IMPLIED. */ /* */ /*************************************************************************/ #include "common.h" #include "data.h" real CBMEM cb_shape[128][5] = { /* 0 */ { 0.32617188, -1.44042969, -0.61230469, -0.87402344, -1.24658203}, /* 1 */ {-2.45703125, -2.23486328, -0.51025391, 1.41992188, 1.62011719}, /* 2 */ {-1.37646484, -1.30712891, -0.46289062, -1.37939453, -2.17285156}, /* 3 */ {-3.26123047, -0.16601562, 0.72363281, -0.62304688, 0.61621094}, /* 4 */ {-0.27441406, -3.29931641, 0.62548828, 0.08740234, -0.62207031}, /* 5 */ {-1.22656250, -3.48144531, -2.40478516, 3.37548828, 1.17724609}, /* 6 */ {-1.20996094, -0.07617188, 2.28662109, -1.89111328, 0.00000000}, /* 7 */ {-4.00781250, 1.04492188, -0.23339844, -1.35986328, 0.26025391}, /* 8 */ { 0.92236328, 1.34716797, 0.67431641, -3.39599609, -2.88720703}, /* 9 */ { 2.48144531, -1.20117188, -2.82128906, 0.87744141, 0.27734375}, /* 10 */ {-1.07812500, -1.61572266, -2.20849609, -3.04492188, -3.66455078}, /* 11 */ {-1.32763672, 2.12792969, -1.45898438, -0.56103516, 1.30078125}, /* 12 */ { 0.61474609, 0.48583984, 1.32373047, -1.20312500, -5.07324219}, /* 13 */ { 0.84082031, -3.69580078, -1.33886719, 1.06005859, -1.13720703}, /* 14 */ { 0.50390625, 0.36474609, -0.41894531, -3.87988281, -6.27099609}, /* 15 */ { 1.51660156, 2.37109375, -2.04736328, -1.24072266, 0.50537109}, /* 16 */ { 0.90917969, -0.46875000, -3.23632812, 0.20019531, 2.87207031}, /* 17 */ {-1.21728516, -1.28320312, -1.95312500, -0.02929688, 3.51660156}, /* 18 */ {-1.30468750, 0.70605469, 0.75000000, -1.87060547, 0.60205078}, /* 19 */ {-2.58886719, 3.37500000, 0.77587891, -2.04443359, 1.78955078}, /* 20 */ {-1.68750000, -3.98925781, -3.76416016, 0.67578125, 2.29394531}, /* 21 */ {-2.29443359, -3.03173828, -5.45703125, 3.95703125, 8.21777344}, /* 22 */ { 0.45410156, 3.41992188, 0.61962891, -4.38330078, 1.25341797}, /* 23 */ { 2.27001953, 5.76367188, 1.68017578, -2.76220703, 0.58544922}, /* 24 */ { 1.24121094, -0.08935547, -4.32568359, -3.89453125, 1.57714844}, /* 25 */ {-1.40234375, -0.98193359, -4.74267578, -4.09423828, 6.33935547}, /* 26 */ { 1.50683594, 1.04492188, -1.79687500, -4.70849609, -1.41406250}, /* 27 */ {-3.71533203, 3.18115234, -1.11474609, -1.23144531, 3.09179688}, /* 28 */ {-1.62744141, -2.74414062, -4.45800781, -5.43505859, 2.70654297}, /* 29 */ {-0.19873047, -3.28173828, -8.52832031, -1.41064453, 5.64843750}, /* 30 */ { 1.80273438, 3.31835938, -0.12792969, -5.29589844, -0.90625000}, /* 31 */ { 3.55224609, 6.54492188, -1.45947266, -5.17333984, 2.41015625}, /* 32 */ { 0.11914062, -1.08349609, 1.29687500, 1.84375000, -2.64257812}, /* 33 */ {-1.97412109, -2.89746094, 1.04052734, 0.42138672, -1.30175781}, /* 34 */ {-1.61230469, 0.85107422, -0.97949219, -0.06250000, -1.00195312}, /* 35 */ {-3.10595703, 1.63183594, -0.77294922, -0.01025391, 0.55761719}, /* 36 */ {-1.87353516, -0.89404297, 3.12353516, 1.24267578, -1.39062500}, /* 37 */ {-4.55664062, -3.18750000, 2.59228516, 0.96972656, -1.09619141}, /* 38 */ {-2.19238281, 0.36523438, 0.94482422, -1.47802734, -0.24072266}, /* 39 */ {-4.51904297, 2.62011719, 1.55908203, -2.19384766, 0.87109375}, /* 40 */ { 2.33593750, -0.18066406, 0.91113281, 0.51611328, -0.92236328}, /* 41 */ { 3.58496094, -1.31347656, -1.25830078, 0.33007812, -0.29833984}, /* 42 */ {-0.24511719, 1.09130859, -0.90332031, -0.86767578, -1.00048828}, /* 43 */ { 0.49365234, 1.89453125, -1.20361328, 1.07861328, -0.07421875}, /* 44 */ { 1.26562500, 1.38134766, 2.72851562, 1.38623047, -3.56738281}, /* 45 */ {-1.48876953, -2.40136719, 2.90771484, 4.49267578, -2.17138672}, /* 46 */ { 0.34033203, 1.90820312, 2.83105469, -2.17333984, -2.26757812}, /* 47 */ {-1.03564453, 2.65820312, -1.25488281, 0.15673828, -0.58691406}, /* 48 */ { 1.38964844, -1.01855469, 1.72460938, 0.27636719, -0.34570312}, /* 49 */ {-2.08935547, 0.46386719, 2.43164062, 1.83056641, 0.22070312}, /* 50 */ {-1.21289062, 1.70996094, 0.83935547, -0.08300781, 0.11621094}, /* 51 */ {-1.67724609, 0.12841797, 1.03222656, -0.97900391, 1.15283203}, /* 52 */ { 3.58300781, -0.58984375, 4.56396484, -0.59375000, -1.95947266}, /* 53 */ {-6.54736328, -0.21435547, 3.91992188, -2.06640625, 0.17626953}, /* 54 */ {-1.82080078, 2.65283203, 0.97851562, -2.30810547, -0.61474609}, /* 55 */ {-1.94628906, 3.78076172, 4.11572266, -1.80224609, -0.48193359}, /* 56 */ { 2.53808594, -0.20654297, 0.56152344, -0.62548828, 0.39843750}, /* 57 */ { 3.61767578, 2.00634766, -1.92822266, 1.31347656, 0.01464844}, /* 58 */ { 0.60839844, 1.49169922, -0.01708984, -0.66894531, -0.12011719}, /* 59 */ {-0.72705078, 2.75146484, -0.33105469, -1.28271484, 1.54785156}, /* 60 */ { 2.35839844, -2.23876953, 0.98046875, -0.51855469, 0.39013672}, /* 61 */ {-0.06298828, 0.35009766, 2.24316406, 7.29345703, 5.22753906}, /* 62 */ { 0.20361328, 1.34716797, 0.90332031, -2.46923828, -0.56298828}, /* 63 */ {-1.89794922, 3.59423828, -2.81640625, 2.09228516, 0.32519531}, /* 64 */ { 0.70458984, -0.45800781, 0.00976562, -1.03466797, -0.82861328}, /* 65 */ {-1.81250000, -1.66113281, -1.08007812, 0.05371094, 1.04296875}, /* 66 */ {-1.44140625, 0.00585938, -0.76562500, -1.70898438, -0.90576172}, /* 67 */ {-0.64208984, -0.84521484, 0.56640625, -0.27246094, 0.83447266}, /* 68 */ { 0.04296875, -2.23095703, 0.09472656, -0.22167969, -1.44384766}, /* 69 */ {-1.38623047, -0.81347656, -0.14306641, 1.01757812, -0.07568359}, /* 70 */ {-0.09228516, -1.16015625, 0.81201172, -0.50781250, -1.19580078}, /* 71 */ {-1.38769531, -0.66845703, 0.31054688, -0.12109375, -1.30712891}, /* 72 */ { 0.74072266, 0.03857422, -1.47119141, -1.79150391, -0.47509766}, /* 73 */ { 0.93408203, -1.21728516, -2.59375000, -0.36572266, 0.62060547}, /* 74 */ {-1.41748047, -1.62304688, -1.83398438, -1.80175781, -0.89306641}, /* 75 */ {-1.42236328, -5.63818359, -1.34765625, -0.68652344, 0.54882812}, /* 76 */ { 0.90039062, -0.89550781, 0.22265625, 0.34472656, -2.08593750}, /* 77 */ { 0.22802734, -2.07812500, -0.93212891, 0.74267578, 0.55371094}, /* 78 */ {-0.06201172, -0.48535156, -0.31103516, -0.72802734, -3.17089844}, /* 79 */ { 0.42626953, -0.99853516, -1.86914062, -1.36328125, -0.28222656}, /* 80 */ { 1.12841797, -0.88720703, 1.28515625, -1.49023438, 0.96093750}, /* 81 */ { 0.31298828, 0.58300781, 0.92431641, 2.00537109, 3.09667969}, /* 82 */ {-0.02197266, 0.58496094, 1.05468750, -0.72216797, 1.07568359}, /*