home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 05 / heimwerk / benchmk.inc next >
Encoding:
Text File  |  1989-02-28  |  2.1 KB  |  90 lines
  1. SUB Benchmark.1(faktor1!)
  2. LOCAL i, elapsedtime!
  3.   PRINT "Benchmark 1:       "
  4.   PRINT "  Integerarithmetik: ";
  5.   i = 0  :  MTIMER
  6.   DO
  7.     i = i + 1
  8.   LOOP UNTIL i = 30000
  9.   DO
  10.     i = i - 1
  11.   LOOP UNTIL i = 0
  12.   i = 2
  13.   DO WHILE i <= 15000
  14.     i = i*2
  15.   LOOP
  16.   DO
  17.     i = i\2
  18.   LOOP UNTIL i <= 10
  19.   elapsedtime! = MTIMER/1E6
  20.   PRINT USING"     ##.##"; ElapsedTime!;
  21.   PRINT " sec. (IBM-XT ca.  5.92 sec.)";
  22.   IF elapsedtime! > 0 THEN
  23.     faktor1! = 592/elapsedtime!
  24.     PRINT USING "  Faktor: ####.# %"; faktor1!
  25.   END IF
  26. END SUB
  27.  
  28. SUB Benchmark.2(faktor2!)
  29. LOCAL i#, elapsedtime!
  30.   i# = 2
  31.   PRINT "Benchmark 2: "
  32.   PRINT "  Realarithmetik:";
  33.   MTIMER
  34.   DO
  35.     i# = i#*i#
  36.   LOOP UNTIL i# >= 1E31
  37.   DO
  38.     i# = i#/2
  39.   LOOP UNTIL i# <= 0
  40.   i# = 2
  41.   DO
  42.     i# = i# ^ 1.5
  43.   LOOP UNTIL i# >= 1E31
  44.   elapsedtime! = MTIMER/1E6
  45.   PRINT USING"        ##.##"; elapsedTime!;
  46.   PRINT " sec. (IBM-XT ca.  5.11 sec.)";
  47.   IF elapsedtime! > 0 THEN
  48.     faktor2! = 511/elapsedtime!
  49.     PRINT USING "  Faktor: ####.# %"; faktor2!
  50.   END IF
  51. END SUB
  52.  
  53. SUB Benchmark.3(faktor3!)
  54. LOCAL a$, elapsedtime!
  55.   PRINT "Benchmark 3:"
  56.   PRINT "  Stringmanipulationen:";
  57.   MTIMER  :  a$=""
  58.   DO
  59.     a$ = a$ + "i"
  60.   LOOP UNTIL LEN(a$) >= 2000
  61.   DO
  62.     a$ = LEFT$(a$, LEN(a$) - 1)
  63.   LOOP UNTIL LEN(a$) <= 10
  64.   elapsedtime! = MTIMER/1E6
  65.   PRINT USING "  ##.##"; ElapsedTime!;
  66.   PRINT " sec. (IBM-XT ca. 19.29 sec.)";
  67.   IF elapsedtime! > 0 THEN
  68.     faktor3! = 1929/elapsedtime!
  69.     PRINT USING "  Faktor: ####.# %"; faktor3!
  70.   END IF
  71. END SUB
  72.  
  73. SUB Benchmark
  74. LOCAL gesamtfaktor!
  75.   CALL SubMen("Speed-Test")
  76.   CALL QPrint(7, 1, " Bitte warten !", 143)
  77.   DELAY 1               ' Eventuelles Tastendrücken abwarten
  78.   LOCATE 7,1  :  COLOR 7,0
  79.   CALL Benchmark.1(faktor1!)  :  PRINT
  80.   CALL Benchmark.2(faktor2!)  :  PRINT
  81.   CALL Benchmark.3(faktor3!)  :  PRINT
  82.   gesamtfaktor! = (faktor1! + faktor2! + faktor3!) / 3
  83.   PRINT  :  PRINT  :  COLOR 15,0
  84.   PRINT "Berechnung des Durchschnittwertes:"
  85.   PRINT "  Gesamtfaktor (Vergleich mit IBM-XT";
  86.   PRINT " INTEL 8088, 4,77 MHz): ";
  87.   PRINT USING "####.# %"; Gesamtfaktor!
  88.   COLOR 7,0
  89. END SUB
  90.