📄 acelp_co.c
字号:
/* ITU-T G.729 Software Package Release 2 (November 2006) */
/*
ITU-T G.729 Annex C - Reference C code for floating point
implementation of G.729
Version 1.01 of 15.September.98
*/
/*
----------------------------------------------------------------------
COPYRIGHT NOTICE
----------------------------------------------------------------------
ITU-T G.729 Annex C ANSI C source code
Copyright (C) 1998, AT&T, France Telecom, NTT, University of
Sherbrooke. All rights reserved.
----------------------------------------------------------------------
*/
/*
File : ACELP_CO.C
Used for the floating point version of G.729 main body
(not for G.729A)
*/
/*****************************************************************************/
/* fixed codebook encoding routines */
/*****************************************************************************/
#include "typedef.h"
#include "ld8k.h"
/* prototypes of local functions */
static void cor_h(
FLOAT *H, /* (i) :Impulse response of filters */
FLOAT *rr /* (o) :Correlations of H[] */
);
static int d4i40_17( /* (o) : Index of pulses positions. */
FLOAT Dn[], /* (i) : Correlations between h[] and Xn[]. */
FLOAT rr[], /* (i) : Correlations of impulse response h[]. */
FLOAT h[], /* (i) : Impulse response of filters. */
FLOAT cod[], /* (o) : Selected algebraic codeword. */
FLOAT y[], /* (o) : Filtered algebraic codeword. */
int *sign, /* (o) : Signs of 4 pulses. */
int i_subfr /* (i) : subframe flag */
);
int ACELP_codebook( /* (o) :index of pulses positions */
FLOAT x[], /* (i) :Target vector */
FLOAT h[], /* (i) :Impulse response of filters */
int t0, /* (i) :Pitch lag */
FLOAT pitch_sharp, /* (i) :Last quantized pitch gain */
int i_subfr, /* (i) :Indicator of 1st subframe, */
FLOAT code[], /* (o) :Innovative codebook */
FLOAT y[], /* (o) :Filtered innovative codebook */
int *sign /* (o) :Signs of 4 pulses */
)
{
int i, index;
FLOAT dn[L_SUBFR];
FLOAT rr[DIM_RR];
/*----------------------------------------------------------------*
* Include fixed-gain pitch contribution into impulse resp. h[] *
* Find correlations of h[] needed for the codebook search. *
*-----------------------------------------------------------------*/
if(t0 < L_SUBFR)
for (i = t0; i < L_SUBFR; i++)
h[i] += pitch_sharp * h[i-t0];
cor_h(h, rr);
/*----------------------------------------------------------------*
* Compute correlation of target vector with impulse response. *
*-----------------------------------------------------------------*/
cor_h_x(h, x, dn); /* backward filtered target vector dn */
/*----------------------------------------------------------------*
* Find innovative codebook. *
*-----------------------------------------------------------------*/
index = d4i40_17(dn, rr, h, code, y, sign, i_subfr);
/*------------------------------------------------------*
* - Add the fixed-gain pitch contribution to code[]. *
*-------------------------------------------------------*/
if(t0 < L_SUBFR)
for (i = t0; i < L_SUBFR; i++)
code[i] += pitch_sharp * code[i-t0];
return index;
}
/*--------------------------------------------------------------------------*
* Function cor_h() *
* ~~~~~~~~~~~~~~~~~ *
* Compute correlations of h[] needed for the codebook search. *
*--------------------------------------------------------------------------*/
static void cor_h(
FLOAT *h, /* (i) :Impulse response of filters */
FLOAT *rr /* (o) :Correlations of H[] */
)
{
FLOAT *rri0i0, *rri1i1, *rri2i2, *rri3i3, *rri4i4;
FLOAT *rri0i1, *rri0i2, *rri0i3, *rri0i4;
FLOAT *rri1i2, *rri1i3, *rri1i4;
FLOAT *rri2i3, *rri2i4;
FLOAT *p0, *p1, *p2, *p3, *p4;
FLOAT *ptr_hd, *ptr_hf, *ptr_h1, *ptr_h2;
FLOAT cor;
int i, k, ldec, l_fin_sup, l_fin_inf;
/* Init pointers */
rri0i0 = rr;
rri1i1 = rri0i0 + NB_POS;
rri2i2 = rri1i1 + NB_POS;
rri3i3 = rri2i2 + NB_POS;
rri4i4 = rri3i3 + NB_POS;
rri0i1 = rri4i4 + NB_POS;
rri0i2 = rri0i1 + MSIZE;
rri0i3 = rri0i2 + MSIZE;
rri0i4 = rri0i3 + MSIZE;
rri1i2 = rri0i4 + MSIZE;
rri1i3 = rri1i2 + MSIZE;
rri1i4 = rri1i3 + MSIZE;
rri2i3 = rri1i4 + MSIZE;
rri2i4 = rri2i3 + MSIZE;
/*------------------------------------------------------------*
* Compute rri0i0[], rri1i1[], rri2i2[], rri3i3 and rri4i4[] *
*------------------------------------------------------------*/
p0 = rri0i0 + NB_POS-1; /* Init pointers to last position of rrixix[] */
p1 = rri1i1 + NB_POS-1;
p2 = rri2i2 + NB_POS-1;
p3 = rri3i3 + NB_POS-1;
p4 = rri4i4 + NB_POS-1;
ptr_h1 = h;
cor = (F)0.0;
for(i=0; i<NB_POS; i++)
{
cor += *ptr_h1 * *ptr_h1; ptr_h1++;
*p4-- = cor;
cor += *ptr_h1 * *ptr_h1; ptr_h1++;
*p3-- = cor;
cor += *ptr_h1 * *ptr_h1; ptr_h1++;
*p2-- = cor;
cor += *ptr_h1 * *ptr_h1; ptr_h1++;
*p1-- = cor;
cor += *ptr_h1 * *ptr_h1; ptr_h1++;
*p0-- = cor;
}
/*-----------------------------------------------------------------*
* Compute elements of: rri2i3[], rri1i2[], rri0i1[] and rri0i4[] *
*-----------------------------------------------------------------*/
l_fin_sup = MSIZE-1;
l_fin_inf = l_fin_sup-1;
ldec = NB_POS+1;
ptr_hd = h;
ptr_hf = ptr_hd + 1;
for(k=0; k<NB_POS; k++) {
p3 = rri2i3 + l_fin_sup;
p2 = rri1i2 + l_fin_sup;
p1 = rri0i1 + l_fin_sup;
p0 = rri0i4 + l_fin_inf;
cor = (F)0.0;
ptr_h1 = ptr_hd;
ptr_h2 = ptr_hf;
for(i=k+1; i<NB_POS; i++ ) {
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p3 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p2 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p1 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p0 = cor;
p3 -= ldec;
p2 -= ldec;
p1 -= ldec;
p0 -= ldec;
}
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p3 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p2 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p1 = cor;
l_fin_sup -= NB_POS;
l_fin_inf--;
ptr_hf += STEP;
}
/*---------------------------------------------------------------------*
* Compute elements of: rri2i4[], rri1i3[], rri0i2[], rri1i4[], rri0i3 *
*---------------------------------------------------------------------*/
ptr_hd = h;
ptr_hf = ptr_hd + 2;
l_fin_sup = MSIZE-1;
l_fin_inf = l_fin_sup-1;
for(k=0; k<NB_POS; k++) {
p4 = rri2i4 + l_fin_sup;
p3 = rri1i3 + l_fin_sup;
p2 = rri0i2 + l_fin_sup;
p1 = rri1i4 + l_fin_inf;
p0 = rri0i3 + l_fin_inf;
cor = (F)0.0;
ptr_h1 = ptr_hd;
ptr_h2 = ptr_hf;
for(i=k+1; i<NB_POS; i++ ) {
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p4 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p3 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p2 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p1 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p0 = cor;
p4 -= ldec;
p3 -= ldec;
p2 -= ldec;
p1 -= ldec;
p0 -= ldec;
}
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p4 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p3 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p2 = cor;
l_fin_sup -= NB_POS;
l_fin_inf--;
ptr_hf += STEP;
}
/*----------------------------------------------------------------------*
* Compute elements of: rri1i4[], rri0i3[], rri2i4[], rri1i3[], rri0i2 *
*----------------------------------------------------------------------*/
ptr_hd = h;
ptr_hf = ptr_hd + 3;
l_fin_sup = MSIZE-1;
l_fin_inf = l_fin_sup-1;
for(k=0; k<NB_POS; k++) {
p4 = rri1i4 + l_fin_sup;
p3 = rri0i3 + l_fin_sup;
p2 = rri2i4 + l_fin_inf;
p1 = rri1i3 + l_fin_inf;
p0 = rri0i2 + l_fin_inf;
ptr_h1 = ptr_hd;
ptr_h2 = ptr_hf;
cor = (F)0.0;
for(i=k+1; i<NB_POS; i++ ) {
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p4 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p3 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p2 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p1 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p0 = cor;
p4 -= ldec;
p3 -= ldec;
p2 -= ldec;
p1 -= ldec;
p0 -= ldec;
}
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p4 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p3 = cor;
l_fin_sup -= NB_POS;
l_fin_inf--;
ptr_hf += STEP;
}
/*----------------------------------------------------------------------*
* Compute elements of: rri0i4[], rri2i3[], rri1i2[], rri0i1[] *
*----------------------------------------------------------------------*/
ptr_hd = h;
ptr_hf = ptr_hd + 4;
l_fin_sup = MSIZE-1;
l_fin_inf = l_fin_sup-1;
for(k=0; k<NB_POS; k++) {
p3 = rri0i4 + l_fin_sup;
p2 = rri2i3 + l_fin_inf;
p1 = rri1i2 + l_fin_inf;
p0 = rri0i1 + l_fin_inf;
ptr_h1 = ptr_hd;
ptr_h2 = ptr_hf;
cor = (F)0.;
for(i=k+1; i<NB_POS; i++ ) {
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p3 = cor;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
cor += *ptr_h1 * *ptr_h2; ptr_h1++; ptr_h2++;
*p2 = cor;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -