Accueil     À propos     Téléchargement     Ressources     Contactez-nous

Ce site est rarement mis à jour. Pour les informations les plus récentes, rendez-vous sur le nouveau site OCaml à l'adresse ocaml.org.

Random questions
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
 Date: 2009-11-18 (10:59) From: Daniel_BÃ¼nzli Subject: Random questions
```I know little about PRGN and unfortunately in a lot of cases the
functions in the Random module don't provide me the right
interface. Could anybody tell me if the following functions preserve
the quality of the underlying PRGN and/or if there's a better way to
achieve that :

1) Generate an arbitrary int

let rint () = Random.bits () lor ((Random.bits () land 1) lsl 30)

2) Generate an arbitrary int in [0;max] (bounds included)

let random_uint ?(max = max_int) =
if max < 0 then invalid_arg "negative max" else
if max = max_int then Random.bits else
let bound = max + 1 in
fun () -> Random.int bound

3) Generate an arbitrary int in [-max;max] (bounds included)

let random_int ?(max = max_int) =
if max < 0 then invalid_arg "negative max" else
if max = max_int then
let rec aux () =
let v = rint () in if v = min_int then aux () else v in
aux
else
let bound = (2 * max) + 1 in
if 0 < bound && bound < max_int then
fun () -> -max + Random.int bound
else
let bound = Int32.add (Int32.mul 2l (Int32.of_int max)) 1l in
let min = Int32.of_int (-max) in
fun () -> Int32.to_int (Int32.add min (Random.int32 bound))

5) Generate an arbitrary float in [0;max] (bounds included)

let after_one = 1. +. epsilon_float
let random_ufloat ?(max = max_float) =
if max < 0. then invalid_arg "negative max" else
fun () -> (Random.float after_one) *. max

6) Generate an arbitrary float in [-max;max] (bounds included)

let after_one = 1. +. epsilon_float
let random_float ?(max = max_float) =
if max < 0. then invalid_arg "negative max" else
fun () -> (-1. +. (Random.float after_one) *. 2.) *. max