Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/randev.dc2 Дата изменения: Wed Oct 5 18:34:11 1994 Дата индексирования: Fri Jan 16 01:20:13 2009 Кодировка: Поисковые слова: http www.badastronomy.com bad tv foxapollo.html

Function: RANDEV

Purpose: Generating random deviates from various distributions.

Files: randev.f

Author: F.J. Sicking

Category: MATH

Use: DOUBLE PRECISION RANDEV( option , Input INTEGER
iseed , Input INTEGER
)

RANDEV Returns a random deviate from the distribution
specified in option.

OPTION Type of distribution:
1 -- Gaussian: exp(-0.5*x**2)
2 -- Sech2: 1/cosh^2(x)
3 -- Exponential: exp(-|x|)
4 -- Lorentz: 1/(1+x^2)
5 -- Rectangular: -1 < x < 1

ISEED Seed for the random number generator. Should be
negative on initialization !!!!

Description:
The random number generator and the function to get
the gaussian deviates are drawn from Numerical Recipes.

Updates: Aug 4, 1994: FJS, Document created.
Ocf 5, 1994: KGB, Incompatible routine declaration removed.