Category

Development Platform
Home > SourceCode/Document > Linux-Unix program > View Code
dcbias.c
Package: 一个类似QQ的软件源码.rar　[view]
Upload User: zslianheng
Upload Date: 2013-04-03
Package Size: 946k
Code Size: 2k
Category:

Linux-Unix program

Development Platform:

Visual C++

dcbias.c：Code Content
  1. /*
  3. $Log: dcbias.c,v $
  4. Revision 1.1.1.1  2002/07/28 05:23:19  freeman_yong
  5. lpc10 codec
  7.  * Revision 1.1  1996/08/19  22:40:23  jaf
  8.  * Initial revision
  9.  *
  11. */
  13. #ifdef P_R_O_T_O_T_Y_P_E_S
  14. extern int dcbias_(integer *len, real *speech, real *sigout);
  15. #endif
  17. /*  -- translated by f2c (version 19951025).
  18.    You must link the resulting object file with the libraries:
  19. -lf2c -lm   (in that order)
  20. */
  22. #include "f2c.h"
  24. /* ********************************************************************* */
  26. /*  DCBIAS Version 50 */
  28. /* $Log: dcbias.c,v $
  29. /* Revision 1.1.1.1  2002/07/28 05:23:19  freeman_yong
  30. /* lpc10 codec
  31. /*
  32.  * Revision 1.1  1996/08/19  22:40:23  jaf
  33.  * Initial revision
  34.  * */
  35. /* Revision 1.3  1996/03/18  21:19:22  jaf */
  36. /* Just added a few comments about which array indices of the arguments */
  37. /* are used, and mentioning that this subroutine has no local state. */
  39. /* Revision 1.2  1996/03/13  16:44:53  jaf */
  40. /* Comments added explaining that none of the local variables of this */
  41. /* subroutine need to be saved from one invocation to the next. */
  43. /* Revision 1.1  1996/02/07 14:44:21  jaf */
  44. /* Initial revision */
  47. /* ********************************************************************* */
  49. /* Calculate and remove DC bias from buffer. */
  51. /* Input: */
  52. /*  LEN    - Length of speech buffers */
  53. /*  SPEECH - Input speech buffer */
  54. /*           Indices 1 through LEN read. */
  55. /* Output: */
  56. /*  SIGOUT - Output speech buffer */
  57. /*           Indices 1 through LEN written */
  59. /* This subroutine has no local state. */
  61. /* Subroutine */ int dcbias_(integer *len, real *speech, real *sigout)
  62. {
  63.     /* System generated locals */
  64.     integer i__1;
  66.     /* Local variables */
  67.     real bias;
  68.     integer i__;
  70. /*  Arguments */
  71. /*       Local variables that need not be saved */
  72.     /* Parameter adjustments */
  73.     --sigout;
  74.     --speech;
  76.     /* Function Body */
  77.     bias = 0.f;
  78.     i__1 = *len;
  79.     for (i__ = 1; i__ <= i__1; ++i__) {
  80. bias += speech[i__];
  81.     }
  82.     bias /= *len;
  83.     i__1 = *len;
  84.     for (i__ = 1; i__ <= i__1; ++i__) {
  85. sigout[i__] = speech[i__] - bias;
  86.     }
  87.     return 0;
  88. } /* dcbias_ */