with Standard_Floating_Numbers; use Standard_Floating_Numbers;
with Standard_Complex_Numbers; use Standard_Complex_Numbers;
package Standard_Random_Numbers is
-- DESCRIPTION :
-- This package provides random number generators for machine numbers.
function Random ( lower,upper : integer ) return integer;
-- DESCRIPTION :
-- lower <= Random(lower,upper) <= upper, randomly generated.
function Random return double_float;
-- DESCRIPTION :
-- Returns a random floating-point number in [-1,1].
function Random return Complex_Number;
-- DESCRIPTION :
-- Returns a random complex number, with real and imaginary
-- part in [-1,1].
function Random ( modulus : double_float ) return Complex_Number;
-- DESCRIPTION :
-- Generates a random complex number with a given modulus,
-- so only the argument angle will be chosen at random.
function Random1 return Complex_Number;
-- DESCRIPTION :
-- Generates a random complex number with modulus one.
end Standard_Random_Numbers;