Category

Development Platform
Home > SourceCode/Document > Linux-Unix program > View Code
energy.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++

energy.c：Code Content
  1. /*
  3. $Log: energy.c,v $
  4. Revision 1.1.1.1  2002/07/28 05:23:27  freeman_yong
  5. lpc10 codec
  7.  * Revision 1.1  1996/08/19  22:32:17  jaf
  8.  * Initial revision
  9.  *
  11. */
  13. #ifdef P_R_O_T_O_T_Y_P_E_S
  14. extern int energy_(integer *len, real *speech, real *rms);
  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. /*  ENERGY Version 50 */
  28. /* $Log: energy.c,v $
  29. /* Revision 1.1.1.1  2002/07/28 05:23:27  freeman_yong
  30. /* lpc10 codec
  31. /*
  32.  * Revision 1.1  1996/08/19  22:32:17  jaf
  33.  * Initial revision
  34.  * */
  35. /* Revision 1.3  1996/03/18  21:17:41  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:46:02  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:45:40  jaf */
  44. /* Initial revision */
  47. /* ********************************************************************* */
  49. /* Compute RMS energy. */
  51. /* Input: */
  52. /*  LEN    - Length of speech buffer */
  53. /*  SPEECH - Speech buffer */
  54. /*           Indices 1 through LEN read. */
  55. /* Output: */
  56. /*  RMS    - Root Mean Square energy */
  58. /* This subroutine has no local state. */
  60. /* Subroutine */ int energy_(integer *len, real *speech, real *rms)
  61. {
  62.     /* System generated locals */
  63.     integer i__1;
  65.     /* Builtin functions */
  66.     double sqrt(doublereal);
  68.     /* Local variables */
  69.     integer i__;
  71. /*       Arguments */
  72. /*       Local variables that need not be saved */
  73.     /* Parameter adjustments */
  74.     --speech;
  76.     /* Function Body */
  77.     *rms = 0.f;
  78.     i__1 = *len;
  79.     for (i__ = 1; i__ <= i__1; ++i__) {
  80. *rms += speech[i__] * speech[i__];
  81.     }
  82.     *rms = sqrt(*rms / *len);
  83.     return 0;
  84. } /* energy_ */