?? randn.f
字號:
real*8 function randn( seed )
integer*4 seed
! Random number generator; Normal (Gaussian) dist.
! Input
! seed Integer seed (DO NOT USE A SEED OF ZERO)
! Output
! randn Random number, Gaussian distributed
real*8 rand
randn = sqrt(-2*dlog(1.-rand(seed)))
& * cos(6.283185307 * rand(seed))
return
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -