--- a/RandomLib.def
+++ b/RandomLib.def
@@ -23,6 +23,8 @@
(* Very simple random number generator, do not use for production *)
(* code as randomness is weak. Code is only of historical *)
(* interrest. *)
+ (* The values of 3 consecutive call to this routine are highly *)
+ (* correlated as can be seen in a 3-D plot *)
(*----------------------------------------------------------------*)
PROCEDURE InitRandom();
@@ -113,7 +115,7 @@
(* Anpassung an Modula-2 von M.Riedl, 03.06.1993 *)
(*----------------------------------------------------------------*)
-PROCEDURE InitZufall;
+PROCEDURE InitZufall; CONST InitAcornRan = InitZufall;
(*----------------------------------------------------------------*)
(* Initialisiert den Zufallszahlengenerator Zufall(). *)
@@ -121,7 +123,7 @@
(* Initializes Zufall with the original seed *)
(*----------------------------------------------------------------*)
-PROCEDURE InitZufallSysT;
+PROCEDURE InitZufallSysT; CONST InitAcornRanSysT = InitZufallSysT;
(*----------------------------------------------------------------*)
(* Initialisiert den Zufallszahlengenerator Zufall() mit Werten *)
@@ -131,7 +133,7 @@
(* dependent on the system clock (not/difficult to reproduce) *)
(*----------------------------------------------------------------*)
-PROCEDURE Zufall() : LONGREAL;
+PROCEDURE Zufall() : LONGREAL; CONST AcornRan = Zufall;
(*----------------------------------------------------------------*)
(* Berechnet Zufallszahlen im Intervall [0,1) nach dem Additive *)
@@ -141,6 +143,7 @@
(* sequences of uniformly distributed Pseudo-random Numbers", *)
(* J. Comp. Phys. 83,1 pp 16-31 (1989) *)
(*----------------------------------------------------------------*)
+
PROCEDURE IRandom(a,b : CARDINAL) : CARDINAL;