home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / random.lib < prev    next >
Encoding:
Text File  |  1984-04-29  |  313 b   |  18 lines
  1. {$F-,R-,S-}
  2. function random( var seed: real ): real;
  3. { RETURNS RANDOM NUMBERS IN RANGE 0.0 - 1.0 }
  4. { GLOBAL:
  5.    SEED: REAL;
  6. }
  7. CONST PI = 3.14159;
  8. VAR    X: REAL;
  9.     I: INTEGER;
  10. begin
  11.   x := seed + PI;
  12.   x := exp(5.0 * ln(x));
  13.   seed := x - trunc(x);
  14.   random := seed;
  15. end{ of random };  {$F+,R+,S+}
  16.  
  17.  
  18.