home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / DEF / RANDOM.DEF < prev    next >
Text File  |  1996-06-25  |  1KB  |  26 lines

  1. DEFINITION MODULE Random;
  2.  
  3.         (********************************************************)
  4.         (*                                                      *)
  5.         (*              Random number generator                 *)
  6.         (*                                                      *)
  7.         (*  Programmer:         P. Moylan                       *)
  8.         (*  Last edited:        25 June 1996                    *)
  9.         (*  Status:             OK                              *)
  10.         (*                                                      *)
  11.         (********************************************************)
  12.  
  13. PROCEDURE RANDOM(): REAL;
  14.  
  15.     (* Returns a random number from a uniform (0.0, 1.0) distribution.  *)
  16.  
  17. PROCEDURE Randomize (newseed: CARDINAL);
  18.  
  19.     (* Resets the seed of the random number generator.  Optional, but   *)
  20.     (* useful for either (a) obtaining a different random number        *)
  21.     (* sequence on each run of a program, or (b) conversely, obtaining  *)
  22.     (* a repeatable experiment.                                         *)
  23.  
  24. END Random.
  25. 
  26.