|
|
◆ RanfArrNext()
区間 [0,1) の 53 ビット実数乱数 (ラグ付きフィボナッチ法)
- 目的
- ラグ付きフィボナッチ法により [0,1) の 53 ビット実数乱数を生成する.
RanfArrNext() は大きさ 1009 の内部バッファを用いて RanfArray() により乱数を生成し最初の 100 個だけを順に返す.
- 戻り値
- Double
生成された [0,1) の 53 ビット実数乱数.
- 出典
- D. E. Knuth, “The Art of Computer Programming Third Edition, Vol.2 / Seminumerical Algorithms”, Addison Wesley Longman (1998)
- 使用例
- 53 ビット実数乱数を 10 個生成する.
Sub Ex_RanfArrNext()
Const Seed = 314159
Dim I As Long
For I = 1 To 10
Next
End Sub
Function RanfArrNext() As Double 区間 [0,1) の 53 ビット実数乱数 (ラグ付きフィボナッチ法) Sub RanfStart(Seed As Long) 実数乱数生成ルーチンの初期化 (ラグ付きフィボナッチ法)
- 実行結果
0.524684800201494
0.726548552471813
0.9609049752137
0.889272805173326
0.227826029210785
0.174781467409852
0.721634836341662
0.305582896514576
0.23246372865035
0.265391103319004
|
1.9.7