/*
???ITU-T?G.729?Speech?Coder?ANSI-C?Source?Code
???Version?3.3????Last?modified:?December?26?1995

???Copyright?（c）?1996
???AT&T?France?Telecom?NTT?Universite?de?Sherbrooke?Lucent?Technologies
???All?rights?reserved.
*/

/*---------------------------------------------------------------------------*
?*??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?