RanArray RanArrNext RanfArray RanfArrNext 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