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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Linux/Unix编程 > 查看源码
random.c
资源名称：一个类似QQ的软件源码.rar　[点击查看]
上传用户：zslianheng
上传日期：2013-04-03
资源大小：946k
文件大小：3k
源码类别：

Linux/Unix编程

开发平台：

Visual C++

random.c：源码内容
  1. /*
  3. $Log: random.c,v $
  4. Revision 1.1.1.1  2002/07/28 05:23:44  freeman_yong
  5. lpc10 codec
  7.  * Revision 1.2  1996/08/20  20:41:32  jaf
  8.  * Removed all static local variables that were SAVE'd in the Fortran
  9.  * code, and put them in struct lpc10_decoder_state that is passed as an
  10.  * argument.
  11.  *
  12.  * Removed init function, since all initialization is now done in
  13.  * init_lpc10_decoder_state().
  14.  *
  15.  * Revision 1.1  1996/08/19  22:30:49  jaf
  16.  * Initial revision
  17.  *
  19. */
  21. #ifdef P_R_O_T_O_T_Y_P_E_S
  22. extern integer random_(struct lpc10_decoder_state *st);
  23. #endif
  25. /*  -- translated by f2c (version 19951025).
  26.    You must link the resulting object file with the libraries:
  27. -lf2c -lm   (in that order)
  28. */
  30. #include "f2c.h"
  32. /* ********************************************************************** */
  34. /*  RANDOM Version 49 */
  36. /* $Log: random.c,v $
  37. /* Revision 1.1.1.1  2002/07/28 05:23:44  freeman_yong
  38. /* lpc10 codec
  39. /*
  40.  * Revision 1.2  1996/08/20  20:41:32  jaf
  41.  * Removed all static local variables that were SAVE'd in the Fortran
  42.  * code, and put them in struct lpc10_decoder_state that is passed as an
  43.  * argument.
  44.  *
  45.  * Removed init function, since all initialization is now done in
  46.  * init_lpc10_decoder_state().
  47.  *
  48.  * Revision 1.1  1996/08/19  22:30:49  jaf
  49.  * Initial revision
  50.  * */
  51. /* Revision 1.3  1996/03/20  16:13:54  jaf */
  52. /* Rearranged comments a little bit, and added comments explaining that */
  53. /* even though there is local state here, there is no need to create an */
  54. /* ENTRY for reinitializing it. */
  56. /* Revision 1.2  1996/03/14  22:25:29  jaf */
  57. /* Just rearranged the comments and local variable declarations a bit. */
  59. /* Revision 1.1  1996/02/07 14:49:01  jaf */
  60. /* Initial revision */
  63. /* ********************************************************************* */
  65. /*  Pseudo random number generator based on Knuth, Vol 2, p. 27. */
  67. /* Function Return: */
  68. /*  RANDOM - Integer variable, uniformly distributed over -32768 to 32767 */
  70. /* This subroutine maintains local state from one call to the next. */
  71. /* In the context of the LPC10 coder, there is no reason to reinitialize */
  72. /* this local state when switching between audio streams, because its */
  73. /* results are only used to generate noise for unvoiced frames. */
  75. integer random_(struct lpc10_decoder_state *st)
  76. {
  77.     /* Initialized data */
  79.     integer *j;
  80.     integer *k;
  81.     shortint *y;
  83.     /* System generated locals */
  84.     integer ret_val;
  86. /*  Parameters/constants */
  87. /*       Local state */
  88. /*   The following is a 16 bit 2's complement addition, */
  89. /*   with overflow checking disabled */
  91.     j = &(st->j);
  92.     k = &(st->k);
  93.     y = &(st->y[0]);
  95.     y[*k - 1] += y[*j - 1];
  96.     ret_val = y[*k - 1];
  97.     --(*k);
  98.     if (*k <= 0) {
  99. *k = 5;
  100.     }
  101.     --(*j);
  102.     if (*j <= 0) {
  103. *j = 5;
  104.     }
  105.     return ret_val;
  106. } /* random_ */