Small RPN exponential routine

[Gerson W. Barbosa]

(01-20-2015 07:57 PM)James Dunn Wrote:  Gerson, Is your exponential routine similar to Toth's? (listed below)

Code:

001 - 43,22, d  LBL D
002 - 44 8      STO 8
003 - 1         1
004 - 44 32     STO I
005 - 44 9      STO 9
006 - 20        ×
007 - 43,22, 4  LBL 4
008 - 36        ENTER
009 - 36        ENTER
010 - 45 9      RCL 9
011 - 40        +
012 - 45 9      RCL 9
013 - 43 49     x=y
014 - 43 21     RTN
015 - 33        Rv
016 - 44 9      STO 9
017 - 43 24     ISZ
018 - 33        Rv
019 - 45 8      RCL 8
020 - 20        ×
021 - 45 32     RCL I
022 - 10        ÷
023 - 22 4      GTO 4

My HP-16C version:

Code:


01 g LBL A
02   STO I
03   1
04   STO 0
05 g CLx
06   x<>y
07   ENTER
08   ENTER
09   ENTER
10 g LBL 0
11   RCL 0
12   RCL I
13   *
14   STO 0
15   + 
16   *
17 g DSZ
20   GTO 0
19   RCL 0
20   /
21   x<>y
22   /
23 g RTN

Both have approximately the same size and both use Horner's method. My first HP-16C version of Thomas Klemm's more obvious method is only one step shorter, but I surely haven't converted it properly.

Regards,

Gerson.

P.S.: Contrary to what I stated, Victor Toth's program uses a different method. My bad, sorry!