RanArray RanArrNext RanArrNext_sub RanfArray RanfArrNext RanfArrNext_sub RanfStart RanStart

RanArrNext() **Function RanArrNext ( ) 符号なし 30 ビット整数乱数 (ラグ付きフィボナッチ法) 目的 ラグ付きフィボナッチ法により符号なし 30 ビット整数乱数を生成する. RanArrNext() は大きさ 1009 の内部バッファを用いて RanArray() により乱数を生成し最初の 100 個だけを順に返す. 戻り値 Long 生成された符号なし 30 ビット整数乱数. 出典 D. E. Knuth, “The Art of Computer Programming Third Edition, Vol.2 / Seminumerical Algorithms”, Addison Wesley Longman (1998) 使用例 符号なし 30 ビット整数乱数を 10 個生成する. Sub Ex_RanArrNext() Const Seed = 314159 Dim I As Long Call RanStart(Seed) For I = 1 To 10 Debug.Print RanArrNext() Next End Sub 実行結果 512263819 254049029 667424266 250983279 84386153 208871668 530886531 1064357929 698897936 498160000