开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 语音压缩 > 查看源码
ccsub.com
资源名称：celp_3.2a.tar.gz　[点击查看]
上传用户：szhypcb168
上传日期：2007-01-06
资源大小：2187k
文件大小：3k
源码类别：

语音压缩

开发平台：

Unix_Linux

ccsub.com：源码内容
  1. c COMMON AREA STOCHASTIC CODER
  2. c
  3. c SPECTRUM VARIABLES:
  4. c d2a real memory 1/A(z)
  5. c d2b real memory 1/A(z)
  6. c d3a real memory A(z)
  7. c d3b real memory A(z)
  8. c d4a real memory 1/A(z/gamma)
  9. c d4b real memory 1/A(z/gamma)
  10. c d5 real auxiliary array
  11. c fc real LPC filter/weighting filter coefficients
  12. c fci real interpolated weighting filter coefficients
  13. c fcn real new weighting filter coefficients
  14. c gamma real weight factor
  15. c no i filter order  predictor
  16. c
  17. c PITCH VARIABLES:
  18. c bb real pitch predictor coefficients
  19. c d1a real memory 1/P(z)
  20. c d1b real memory 1/P(z)
  21. c d6 real auxiliary array
  22. c idb int dimension of d1a, d1b and d6???
  23. c tauptr  int pitch delay pointer
  24. c minptr int minimum delay pointer
  25. c pbits int pitch gain coding bit allocation
  26. c pindex int pitch gain index bb(3)
  27. c ptype char pitch gain (bb(3)) quantizer type
  28. c prewt   real pitch prefilter weighting (0.0 = off)
  29. c pstype  char    pitch search type (hier, full, or intg)
  30. c pdelay real pitch delay coding table
  31. c plevel1 real number of full search pitch delays
  32. c plevel2 real number of delta search pitch delays
  33. c
  34. c CODE BOOK VARIABLES:
  35. c cbgbits int code book gain bit allocation
  36. c cbgtype char code book gain quantizer type
  37. c mxsw logical modified excitation switch (on or off)
  38. c cbindex int code book index
  39. c e0 real initial error and updated error
  40. c err real error for each code book entry
  41. c gain real gain for each code book entry
  42. c gindex int gain index
  43. c h real impulse response
  44. c ncsize int code book size
  45. c nseg int segment counter
  46. c x real code book
  47. c
  48. c MISCELLANEOUS:
  49. c frame int frame counter
  50. c
  51. include 'ccsub.h'
  52. convex #include "ccsub.h"
  53. c
  54. common /ccsub/
  55.      +  cbgbits, cbindex, gamma, gindex, idb, ncsize, no,
  56.      +  nseg, tauptr, minptr, pindex, plevel1, plevel2, frame,
  57.      +  bb(maxnp+1), e0(maxlp), err(maxncsize), gain(maxncsize),
  58.      +  d1a(maxpa), d1b(maxpa), d2a(maxno+1), d2b(maxno+1),
  59.      +  d3a(maxno+1), d3b(maxno+1), d4a(maxno+1), d4b(maxno+1),
  60.      + d5(maxno+1), d6(maxpa), mxsw, prewt, 
  61.      +  fc(maxno+1), fci(maxno+1), fcn(maxno+1),
  62.      +  h(maxlp), pbits(maxnp+2), pdelay(0:maxpd-1), x(maxcode)
  63. c
  64. c SPECTRUM VARIABLES:
  65. integer no
  66. real gamma, fc, fci, fcn
  67. real d2a, d2b, d3a, d3b, d4a, d4b, d5
  68. c
  69. c PITCH VARIABLES:
  70. integer idb, pbits, pindex, plevel1, plevel2, tauptr, minptr
  71. real bb, d1a, d1b, d6, pdelay, prewt
  72. c
  73. c CODE BOOK VARIABLES:
  74. integer cbgbits, cbindex, gindex, ncsize, nseg
  75. real e0, err, gain, h, x
  76. logical mxsw
  77. c
  78. c MISCELLANEOUS:
  79. integer frame
  80. c
  81. c Seperate character common block for FORTRAN-77!
  82. c
  83. common /ccsubchar/ ptype, pstype, cbgtype
  84. c
  85. c PITCH VARIABLES:
  86. character*10 ptype
  87. character*10 pstype
  88. c
  89. c CODE BOOK VARIABLES:
  90. character*10 cbgtype