home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / pascal / 8058 < prev    next >
Encoding:
Internet Message Format  |  1993-01-12  |  2.5 KB
  1. Path: sparky!uunet!usc!cs.utexas.edu!asuvax!ennews!telesys!wierius!witsend!dcs
  2. Message-ID: <765355d2523469t258@witsend.uucp>
  3. Date: Monday, 11 January 1993 06:50:20 MST
  4. X-Mailer: TMail version 1.16R
  5. From: "D. C. Sessions" <dcs@witsend.tnet.com>
  6. Organization: Nobody but me -- really
  7. References: <mitchell.11@odie.ee.wits.ac.za> <1993Jan9.140610.28269@lugb.latrobe.edu.au> <11625@uqcspe.cs.uq.oz.au>
  8. Subject: Re: Faster Pascal
  9. Newsgroups: comp.lang.pascal
  10. Distribution: world
  11. Lines: 51
  12.  
  13. In <11625@uqcspe.cs.uq.oz.au>, muzzle@cs.uq.oz.au (Murray Chapman)  wrote:
  14. # 
  15. # In <1993Jan9.140610.28269@lugb.latrobe.edu.au> cscmd@lux.latrobe.edu.au (Mitch Davis) writes:
  16. # 
  17. # >In article <mitchell.11@odie.ee.wits.ac.za> mitchell@odie.ee.wits.ac.za (MITCHELL JAMES) writes:
  18. # >>Bascially, I'm trying to find a way to run Pascal code faster. I have access 
  19. # >>to a 486 but this is woefully inadequate (for my needs at least).
  20. # >I've had that problem, and I've solved it.  90% of the time, you can
  21. # >triple the speed of your program by re-writing it so it is smarter.
  22.  
  23. # Also, it's pretty well-known that on average, your computer spends 90% of
  24. # its time in 10% of the program.  In other words, there is no point in
  25. # trying to optimize statements that aren't executed multiple times.
  26. # 
  27. # For example:
  28. # 
  29. # 1:    R := R * 4;
  30. # 2:    for x := 1 to 100 do
  31. # 3:      for y := 1 to 100 do
  32. # 4:          line(0, 0, Sin(X) * R, Sin(Y) * R);
  33. # 
  34. # There would not be much point in changing line 1 to assembler code to do two
  35. # ASL's, as the speedup would be linear, and not all that much.
  36. # 
  37. # On the other hand, line 4 is executed 10000 times, and calls 20000 expensive
  38. # functions.  Make a lookup table for sin/cos, and you will save yourself 20000
  39. # function calls.
  40.  
  41.   Aside from table lookup (which might not be good enough in all
  42.   instances) there's an obvious optimization you ignored: removing
  43.   loop-invariant subexpressions.  ( Sin(X) * R ) is executed in
  44.   EVERY pass in your example, even though X is only taken 100 times.
  45.   Better to pull it out:
  46.  
  47. 2A: FOR x := 1 TO 100 DO BEGIN
  48. 2B:    sx := SIN( X ) * R;
  49. 3:     FOR y := 1 TO 100 DO
  50.  
  51.   Of course, you COULD build your table dynamically:
  52.  
  53.   FOR y := 1 TO 100 DO sy[ y ] := SIN( y ) * R;
  54.   FOR x := 1 TO 100 DO BEGIN
  55.     sx := SIN( x ) * R;
  56.     FOR x := 1 TO 100 DO
  57.       FOR y := 1 TO 100 DO
  58.         line( 0, 0, sx, sy[ y ] );
  59.  
  60. --- D. C. Sessions                            Speaking for myself ---
  61. --- Note new network address:                dcs@witsend.tnet.com ---
  62. --- Author (and everything else!) of TMail  (DOS mail/news shell) ---
  63.