Genrand64Int63 Genrand64Int63_sub Genrand64Int64 Genrand64Int64_sub Genrand64Real1 Genrand64Real1_sub Genrand64Real2 Genrand64Real2_sub Genrand64Real3 Genrand64Real3_sub GenrandInt31 GenrandInt31_sub GenrandInt32 GenrandInt32_sub GenrandReal1 GenrandReal1_sub GenrandReal2 GenrandReal2_sub GenrandReal3 GenrandReal3_sub GenrandRes53 GenrandRes53_sub InitByArray InitByArray64 InitGenrand InitGenrand64

Genrand64Int63() Function Genrand64Int63 ( ) 一様乱数 (符号なし 63 ビット整数乱数) (64 ビット版メルセンヌ・ツイスター) 目的 64 ビット版メルセンヌ・ツイスター (MT19937-64) により一様分布する疑似乱数を生成する. 戻り値 LongLong 符号なし 63 ビット整数の疑似乱数. 注 乱数生成の前に InitGenrand64() または InitByArray64() により初期化しておかなければならない. 初期化を行わないで呼び出した場合, 5489 をシードとして自動的に初期化される. 注 32 ビット版 Excel では使用できない. 出典 Mersenne Twister Home Page 使用例 符号なし 63 ビット整数の乱数を 10 個生成する. ここではシード値として 5489 を使用して初期化する. Sub Ex_Genrand64Int63() Dim Seed As LongLong, I As Long Seed = 5489 Call InitGenrand64(Seed) For I = 1 To 10 Debug.Print Genrand64Int63() Next End Sub 実行結果 7257142393139058515 2310273370083821454 6554785140758948860 8731469323574217161 177744139283869798 3734563120159963499 2317997734240821264 209485271329599939 4802085494626258278 3179022463024956701