L6a5. 指数乱数

関数
Function	Drand48Exp (Optional Theta As Double=1) As Double
	48 ビット実数指数乱数 (Ziggurat 法) (線形合同法)
Function	GenrandExp (Optional Theta As Double=1) As Double
	53 ビット実数指数乱数 (Ziggurat 法) (メルセンヌ・ツイスター)
Sub	InitExp (N As Long)
	指数分布に従う乱数生成ルーチンの初期化 (Ziggurat法)
Function	RanfArrExp (Optional Theta As Double=1) As Double
	53 ビット実数指数乱数 (Ziggurat 法) (ラグ付きフィボナッチ法)
Sub	Drand48Exp_sub (Ret As Double, Optional Theta As Double=1)
	48 ビット実数指数乱数 (Ziggurat 法) (線形合同法) (サブルーチン版)
Sub	GenrandExp_sub (Ret As Double, Optional Theta As Double=1)
	53 ビット実数指数乱数 (Ziggurat 法) (メルセンヌ・ツイスター) (サブルーチン版)
Sub	RanfArrExp_sub (Ret As Double, Optional Theta As Double=1)
	53 ビット実数指数乱数 (Ziggurat 法) (ラグ付きフィボナッチ法) (サブルーチン版)

詳解

L6a5. 指数乱数 プログラムを表示しています.