class WHITE_GEN < $RANDOM_GEN


Ancestors
$RANDOM_GEN



Public


Readable Attributes
attr seed : CARD ;
**** Current state of generator.

Features
create : SAME
get : FLTD .. Included as get
init( .. Included as init


Private

const Def_Seed : CARD := 42 ;
**** must not be zero!!!!!
const ms_a : FLTD := 16807.0d ;
****
shared ms_m : FLTD ;
shared ms_m : FLTD ;
shared ms_md : FLTD ;
shared ms_md : FLTD ;
attr seed : CARD ;
**** Current state of generator.

The Sather Home Page