jrand.c

来自「Numerical Recipes 是国际公认的高水平的、关于数值计算的书」· C语言 代码 · 共 25 行

From xuli Sun Feb  3 14:50:44 1991
Message-Id: <[e-mail]>
From: Xu Li-Qun <xuli>
Date: Sun, 3 Feb 91 14:50:40 GMT
To: jims
Subject: random
Status: RO



#define   MULTIPLIER        25173      /* random number generator */
#define   MODULUS           65536
#define   INCREMENT         13849
#define   INITIAL_SEED         17
#define   FLOATING_MODULUS  65536.0

random()
  {
     static int seed = INITIAL_SEED;

     seed = (MULTIPLIER * seed + INCREMENT) % MODULUS;
     return (seed/FLOATING_MODULUS);
  }