Drand48Exp Drand48Exp_sub GenrandExp GenrandExp_sub InitExp RanfArrExp RanfArrExp_sub

Drand48Exp_sub() Sub Drand48Exp_sub ( Ret As  Double, Optional Theta As  Double = 1  ) 48 ビット実数指数乱数 (Ziggurat 法) (線形合同法) (サブルーチン版) 目的 指数分布 Exp(θ) に従う指数乱数 (48 ビット実数) を生成する. 線形合同法の乱数生成ルーチン Drand48() により一様乱数を生成し, Ziggurat 法により指数乱数に変換する. 引数 [out] Ret 指数乱数 (48 ビット実数). [in] Theta (省略可) 指数分布 Exp(θ) のパラメータθ. (省略時 = 1) 参考文献 四辻哲章「確率分布乱数生成法」第2版, プレアデス出版, 2019.