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

GenrandReal1() Function GenrandReal1 ( ) 32 bit real random number in [0, 1] (Mersenne Twister) Purpose Generates uniformly distributed pseudo random numbers by Mersenne Twister (MT19937). Returns Double 32 bit real pseudo random number on [0, 1]. 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 real pseudo random numbers in [0, 1] using 13 as the seed value for initialization. Sub Ex_GenrandReal1() Dim Seed As Long, I As Long Seed = 13 Call InitGenrand(Seed) For I = 1 To 10 Debug.Print GenrandReal1() Next End Sub Example Results 0.777702410420799 0.607341330639865 0.237541216015243 0.859434012523721 0.82427852759703 0.892982684749407 0.965749201589671 0.179153478047613 0.972601111273421 0.758584006400449