?? impulse.c
字號:
/**************************************************************************
*
* ROUTINE
* impulse
*
* FUNCTION
* compute impulse response with direct form filter
* exclusive of adaptive code book contribution
*
* SYNOPSIS
* subroutine impulse(l)
*
* formal
*
* data I/O
* name type type function
* -------------------------------------------------------------------
* l int i impulse response length
*
* external
* data I/O
* name type type function
* -------------------------------------------------------------------
* no int i
* fc[] float i
* hl[] float i/o
* gamma2 float i
*
***************************************************************************
*
* Global Variables
*
*
* SPECTRUM VARIABLE:
* d5 real auxiliary array
*
****************************************************************************
* CALLED BY
*
* csub
*
* CALLS
*
* bwexp setr polefilt
*
**************************************************************************/
#include "ccsub.h"
extern int no;
extern float fc[MAXNO+1], hl[MAXLP], gamma2;
impulse(l)
int l;
{
float d5[MAXNO+1], fctemp[MAXNO + 1];
setr(l, 0.0, hl);
hl[0] = 1.0;
setr(no + 1, 0.0, d5);
bwexp(gamma2, fc, fctemp, no);
polefilt(fctemp, no, d5, hl, l);
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -