home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / microbase / rexxmathlib1_3 / savage.rexx < prev   
OS/2 REXX Batch file  |  1989-03-22  |  916b  |  42 lines
  1. /*----------------------- Start REXX Source ----------------------------*/
  2.  
  3. /*     **********************************************/
  4. /*     *  THE SAVAGE BENCHMARK FOR THE AMIGA        */
  5. /*     *  AMIGA-REXX V 1.0  27 NOV 1987             */
  6. /*     **********************************************/
  7.  
  8.       NUMERIC DIGITS 15
  9.       NUMERIC FORM SCIENTIFIC
  10.  
  11.       IB1 = 0.0
  12.       IB2 = 0.0
  13.       nulltime = 0.0
  14.  
  15.       loops = 2500
  16.  
  17.       say "Start"
  18.  
  19.       IB1 = time('e')
  20.       IB2 = time('e')
  21.       nulltime = IB2 - IB1
  22.  
  23.       IB1 = time('e')
  24.       iu = loops - 1
  25.       a  = 1.0
  26.  
  27.       do i=1 to iu
  28.       a = tan(atan(exp(log(sqrt(a*a)))))+1.0
  29.       end
  30.  
  31.       IB2 = time('e')
  32.       r = IB2 - IB1 - nulltime
  33.  
  34.       say "Stop"
  35.       say "Benchtime (sec) = " r
  36.       b = a - loops
  37.       say "loops = " loops
  38.       say "a = " a
  39.       say "b = " b
  40.  
  41. /*------------------------- End Of REXX Source -------------------------*/
  42.