Genrand64Int63 Genrand64Int64 Genrand64Real1 Genrand64Real2 Genrand64Real3 GenrandInt31 GenrandInt32 GenrandReal1 GenrandReal2 GenrandReal3 GenrandRes53 InitByArray InitGenrand InitGenrand64

GenrandInt31() Function GenrandInt31 ( ) Uniform random numbers (unsigned 31 bit integer random numbers) (Mersenne Twister) Purpose Generates uniformly distributed pseudo random numbers by Mersenne Twister (MT19937). Returns Long Unsigned 31 bit integer pseudo random number. Note This routine must be initialized by InitGenrand() or InitByArray() before generating random numbers. If this routine is called without an initialization, it will be automatically initialized by the default seed 5489. Reference Mersenne Twister Home Page Example Program Generate 10 unsigned 31 bit integer pseudo random numbers using 13 as the seed value for initialization. Sub Ex_GenrandInt31() Dim Seed As Long, I As Long Seed = 13 Call InitGenrand(Seed) For I = 1 To 10 Debug.Print GenrandInt31() Next End Sub Example Results 1670103209 1304255576 510115877 1845620488 1770124659 1917665713 2073930618 384729164 2088644982 1629046749