home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / cliff_rand.awk < prev    next >
Text File  |  2003-10-29  |  304b  |  15 lines
  1. # cliff_rand.awk --- generate Cliff random numbers
  2. #
  3. # Arnold Robbins, arnold@gnu.org, Public Domain
  4. # December 2000
  5.  
  6. BEGIN { _cliff_seed = 0.1 }
  7.  
  8. function cliff_rand()
  9. {
  10.     _cliff_seed = (100 * log(_cliff_seed)) % 1
  11.     if (_cliff_seed < 0)
  12.         _cliff_seed = - _cliff_seed
  13.     return _cliff_seed
  14. }
  15.