Re: Discrete random with given distribution ?

["Kevin Rigotti" <rigotti@atc.qinetiq.com>]

Wes Groleau <wesgroleau@despammed.com> wrote in message
news:3D08AB63.6AF60F95@despammed.com...
>
>    F := FR.Random;
>    Loop_With_Jump_Out:
>      for I in Out_Type loop
>         if F > Threshold (I) then
>            return I;
>         end if;
>      end loop Loop_With_Jump_Out;

If any of the enumeration values has probability zero then you want to start
looking at the other end of the table and work backwards, until you find a
cumulative probability value that is greater than its predecessor, ie.

    for I in reverse Out_Type range 2 .. Out_Type'Last ....

Kevin
--
ATC Systems Group, QinetiQ, St Andrews Road, Malvern, Worcestershire WR14
3PS, UK
Phone +44 (0)1684 89 69 11, fax +44(0)1684 89 41 09
QinetiQ disclaimers and restrictions apply, details on request