home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / MATH / FSULTRA1.ZIP / DEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-18  |  2.8 KB  |  113 lines
  1. { 
  2. FSU - ULTRA    The greatest random number generator that ever was
  3.         or ever will be.  Way beyond Super-Duper.
  4.         (Just kidding, but we think its a good one.)
  5.  
  6. Authors:    Arif Zaman (arif@stat.fsu.edu) and
  7.         George Marsaglia (geo@stat.fsu.edu).
  8.  
  9. Date:        27 May 1992
  10.  
  11. Version:    1.05
  12.  
  13. Copyright:    To obtain permission to incorporate this program into
  14.         any commercial product, please contact the authors at
  15.         the e-mail address given above or at
  16.  
  17.         Department of Statistics and
  18.         Supercomputer Computations Research Institute
  19.         Florida State University
  20.         Tallahassee, FL 32306.
  21.  
  22. See Also:    README        for a brief description
  23.         ULTRA.DOC    for a detailed description
  24.  
  25. -----------------------------------------------------------------------
  26. } 
  27. { This demo  calls the various ULTRA routines as a test }
  28.  
  29. {$X+}
  30. {$ifdef x}            uses ultrax;
  31. {$else}    {$ifdef f}        uses ultraf;
  32.     {$else}    {$ifdef fx}    uses ultrafx;
  33.         {$else}         uses ultra;
  34. {$endif}{$endif}{$endif}
  35.  
  36. var i:integer;
  37. begin
  38.   writeln;
  39.   writeln('A Sample Printout:');
  40.  
  41.   write('No rinit call: ');
  42.   for i:=1 to 10000 do
  43.   if (i<4) or (i=10000) then write(i32bit:16) else i32bit;
  44.   writeln;
  45.  
  46.   write('Signed 4 byte: ');
  47.   rinit(1234567,7654321);
  48.   for i:=1 to 10000 do
  49.   if (i<4) or (i=10000) then write(i32bit:16) else i32bit;
  50.   writeln;
  51.  
  52.   write('Uns. 4 byte:   ');
  53.   rinit(1234567,7654321);
  54.   for i:=1 to 10000 do
  55.   if (i<4) or (i=10000) then write(i31bit:16) else i31bit;
  56.   writeln;
  57.  
  58.   write('Signed 2 byte: ');
  59.   rinit(1234567,7654321);
  60.   for i:=1 to 10000 do
  61.   if (i<8) or (i=10000) then write(i16bit:8) else i16bit;
  62.   writeln;
  63.  
  64.   write('Uns. 2 byte:   ');
  65.   rinit(1234567,7654321);
  66.   for i:=1 to 10000 do
  67.   if (i<8) or (i=10000) then write(i15bit:8) else i15bit;
  68.   writeln;
  69.  
  70.   write('Signed byte:   ');
  71.   rinit(1234567,7654321);
  72.   for i:=1 to 10000 do
  73.   if (i<16) or (i=10000) then write(i8bit:4) else i8bit;
  74.   writeln;
  75.  
  76.   write('Uns. byte:     ');
  77.   rinit(1234567,7654321);
  78.   for i:=1 to 10000 do
  79.   if (i<16) or (i=10000) then write(i7bit:4) else i7bit;
  80.   writeln;
  81.  
  82.   write('Random bits:   ');
  83.   rinit(1234567,7654321);
  84.   for i:=1 to 10000 do
  85.   if (i<32) or (i=10000) then write(ord(i1bit):2) else i1bit;
  86.   writeln;
  87.  
  88.   write('Signed Single: ');
  89.   rinit(1234567,7654321);
  90.   for i:=1 to 10000 do
  91.   if (i<4) or (i=10000) then write(vni:16:7) else vni;
  92.   writeln;
  93.  
  94.   write('Uns. Single:   ');
  95.   rinit(1234567,7654321);
  96.   for i:=1 to 10000 do
  97.   if (i<4) or (i=10000) then write(uni:16:7) else uni;
  98.   writeln;
  99.  
  100.   write('Signed Double: ');
  101.   rinit(1234567,7654321);
  102.   for i:=1 to 10000 do
  103.   if (i<2) or (i=10000) then write(dvni:32:15) else dvni;
  104.   writeln;
  105.  
  106.   write('Unsigned Dble: ');
  107.   rinit(1234567,7654321);
  108.   for i:=1 to 10000 do
  109.   if (i<2) or (i=10000) then write(duni:32:15) else duni;
  110.   writeln;
  111.  
  112. end.
  113.