class WHITE_GEN < $RANDOM_GEN


Flattened version is here

Ancestors
$RANDOM_GEN



Public


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

Features
create : SAME


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