ITU-T g729原版源代码

语音编码的原程序,是在国外的网站下来的,没有改动可以直接在软电话下使用

/* Version 3.3    Last modified: December 26 1995 */

/*---------------------------------------------------------------------------*
 *  Function  ACELP_CODEBOOK（）                                               *
 *  ~~~~~~~~~~~~~~~~~~~~~~~~~~                                               *
 *   Find Algebraic codebook.                                                *
 *--------------------------------------------------------------------------*/

#include “typedef.h“
#include “basic_op.h“
#include “ld8k.h“
static void Cor_h（
     Word16 *H         /* （i） Q12 :Impulse response of filters */
     Word16 *rr         /* （o）     :Correlations of H[]         */
）;
static void Cor_h_X（
     Word16 h[]        /* （i） Q12 :Impulse response of filters      */
     Word16 X[]        /* （i） Q12 :Target vector                    */
     Word16 D[]         /* （o）     :Correlations between h[] and D[] */
                        /*          Normalized to 13 bits            */
）;
static Word16 D4i40_17（        /* （o）    : Index of pulses positions.               */
  Word16 Dn[]          /* （i）    : Correlations between h[] and Xn[].       */
  Word16 rr[]          /* （i）    : Correlations of impulse response h[].    */
  Word16 h[]           /* （i） Q12: Impulse response of filters.             */
  Word16 cod[]         /* （o） Q13: Selected algebraic codeword.             */
  Word16 y[]           /* （o） Q12: Filtered algebraic codeword.             */
  Word16 *sign         /* （o）    : Signs of 4 pulses.                       */
  Word16 i_subfr        /* （i）    : subframe flag                            */
）;

Word16  ACELP_Codebook（  /* （o）     :index of pulses positions    */
  Word16 x[]            /* （i）     :Target vector                */
  Word16 h[]            /* （i） Q12 :Impulse response of filters  */
  Word16 T0             /* （i）     :Pitch lag                    */
  Word16 pitch_sharp    /* （i） Q14 :Last quantized pitch gain    */
  Word16 i_subfr        /* （i）     :Indicator of 1st subframe   */
  Word16 code[]         /* （o） Q13 :Innovative codebook          */
  Word16 y[]            /* （o） Q12 :Filtered innovative codebook */
  Word16 *sign           /* （o）     :Signs of 4 pulses            */
）
{
  Word16 i index sharp;
  Word16 Dn[L_SUBFR];
  Word16 rr[DIM_RR];

 /*-----------------------------------------------------------------*
  * Include fixed-gain pitch contribution into impulse resp. h[]    *
  * Find correlations of h[] needed for the codebook search.        *
  *-----------------------------------------------------------------*/

  sharp = shl（pitch_sharp 1）;          /* From Q14 to Q15 */
  if （sub（T0 L_SUBFR）<0）
     for （i = T0; i < L_SUBFR; i++）{    /* h[i] += pitch_sharp*h[i-T0] */
       h[i] = add（h[i] mult（h[i-T0] sharp））;
     }

  Cor_h（h rr）;

 /*-----------------------------------------------------------------*
  * Compute correlation of t

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      27741  1996-01-09 11:56  g729\acelp_co.c

     文件     103968  1996-01-09 11:56  g729\basic_op.c

     文件       3469  1996-01-09 11:56  g729\basic_op.h

     文件       4048  1996-01-09 11:56  g729\bits.c

     文件       4126  1996-01-09 11:56  g729\coder.c

     文件       2910  2008-10-21 12:09  g729\coder.mak

     文件      28162  1996-01-09 11:56  g729\cod_ld8k.c

     文件       5011  1996-01-09 11:56  g729\decoder.c

     文件       2772  2008-10-21 12:11  g729\decoder.mak

     文件       4703  1996-01-09 11:56  g729\dec_gain.c

     文件       2064  1996-01-09 11:56  g729\dec_lag3.c

     文件       9699  1996-01-09 11:56  g729\dec_ld8k.c

     文件       1725  1996-01-09 11:56  g729\de_acelp.c

     文件       7916  1996-01-09 11:56  g729\dspfunc.c

     文件       3655  1996-01-09 11:56  g729\filter.c

     文件     487706  1996-01-19 14:52  g729\g729.ps

     文件       7519  1996-01-09 11:56  g729\gainpred.c

     文件      31458  1996-01-09 11:56  g729\ld8k.h

     文件      23052  1996-01-09 11:56  g729\lpc.c

     文件      11716  1996-01-09 11:56  g729\lpcfunc.c

     文件       3059  1996-01-09 11:56  g729\lspdec.c

     文件       5641  1996-01-09 11:56  g729\lspgetq.c

     文件      12260  1996-01-09 11:56  g729\oper_32b.c

     文件        369  1996-01-09 11:56  g729\oper_32b.h

     文件      20839  1996-01-09 11:56  g729\pitch.c

     文件       2874  1996-01-09 11:56  g729\post_pro.c

     文件       1639  1996-01-09 11:56  g729\pred_lt3.c

     文件       2951  1996-01-09 11:56  g729\pre_proc.c

     文件      32916  1996-01-09 11:56  g729\pst.c

     文件       5818  1996-01-09 11:56  g729\pwf.c

............此处省略12个文件信息