.if SYSPAGE = ODD .pn pref A- .pn 1
This appendix describes a method to increase the speed of the programs presented.
The method of speeding up all of the programs is very simple. All you have to do, is to delete all outmost left parentheses. After having done so, you must also change all absolute addresses accordingly.
The gains in execution time for the greatest input values the various programs can handle, can be found in this table: ÚÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ Program ³ Gain ³ # of "(" ³ Comment ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPF1 ³ 0'43" ³ 1423 ³ Do you really think you can change all ³ ³ ³ ³ ³ addresses in 43 seconds? ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPF2 ³ 35'30" ³ 71196 ³ The time for calculating 610! will be ³ ³ ³ ³ ³ 6h30', but you still need a recharger, ³ ³ ³ ³ ³ so why bother? ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPe1 ³ 21'40" ³ 43316 ³ The same comment applies to this program. ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPe2 ³ 1h42' ³ 169200 ³ Don't bother deleting all "("s: Start the ³ ³ ³ ³ ³ program when you get home from work and it ³ ³ ³ ³ ³ will be ready the next day at about the ³ ³ ³ ³ ³ same time. ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPe3 ³ 11'20" ³ 22697 ³ Is it worth spending time on a program you ³ ³ ³ ³ ³ are going to use once? ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPP1 ³ 2h49' ³ 338639 ³ This is the gain is calculating arctan(1/5) ³ ³ ³ ³ ³ to 1188 places, ³ ³ ³ ³ ³ ³ ³ ³ 49'30" ³ 99647 ³ and this is the gain for calculating ³ ³ ³ ³ ³ arctan(1/239). ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPP2 ³ 17h38' ³ 2116919 ³ OK, this time you win. Go ahead and delete ³ ³ ³ ³ ³ all "("s. ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPL ³ 4h06' ³ 493020 ³ How often do you calculate Ln(2) to ³ ³ ³ ³ ³ 1188 places? ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPR1 ³ 0'46" ³ 1550 ³ You may forget this one too! ³ ÃÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ EPR2 ³ 1'40" ³ 3280 ³ By now you know what to do! ³ ÀÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
The above times were obtained by multiplying the execution time for "(", approximately 30 milli-seconds, by the number of times a "(" is executed in a program.
If you really want to delete all "("s, you can find them at the following steps: :dl tsize=10 headhi=1 termhi=1 :dthd.Program :ddhd.Steps containing left parentheses :dt.EPF1 :dd.011,\057,\085,\086. :dt.EPF2 :dd.011,\027,\041,\042,\043,\067,\086,\103. :dt.EPe1 :dd.039. :dt.EPe2 :dd.027,\051,\057. :dt.EPe3 :dd.033,\068,\069,\083,\104,\123,\147. :dt.EPP1 :dd.011,\029,\056,\085,\086. :dt.EPP2 :dd.018,\019,\075,\076,\131. :dt.EPL :dd.011,\029,\078,\079. :dt.EPR1 :dd.029,\048,\073,\088,\089. :dt.EPR2 :dd.141,\148. :edl