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

GenrandReal1() Function GenrandReal1 ( ) 区間[0, 1]の32ビット実数乱数 (メルセンヌ・ツイスター) 目的 メルセンヌ・ツイスター(MT19937)により一様分布する疑似乱数を生成する. 戻り値 Double [0, 1]の32ビット実数の疑似乱数. 注 乱数生成の前にInitGenrand()またはInitByArray()により初期化しておかなければならない. 初期化を行わないで呼び出した場合, 5489をシードとして自動的に初期化される. 出典 Mersenne Twister Home Page 使用例 [0, 1)の実数の乱数を10個生成する. ここではシード値として13を使用して初期化する. 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 実行結果 0.777702410420799 0.607341330639865 0.237541216015243 0.859434012523721 0.82427852759703 0.892982684749407 0.965749201589671 0.179153478047613 0.972601111273421 0.758584006400449