Woz calculates "e"

[Gerson W. Barbosa]

(03-06-2016 07:24 PM)Dwight Sturrock Wrote:  e^1

A short 12C program commemorating Woz's e^1 program:

0
STO 0
1
2
ENTER
n!
1/x
STO +0
X<>Y
1
-
x=0
GTO 15
GTO 05
RCL 0
1
+

Just curious about how it would look on the HP-33C red LED display :-)

Code:


01-       1     1
02-      31     ENTER
03-   23  0     STO 0
04-      31     ENTER
05-      22     Rv
06-23 61  0     ST0 * 0
07-       1     1
08-      51     +
09-      21     x<>y
10-  24   0     RCL  0
11-  15   3   g 1/x
12-      51     +
13-  14  74   f PAUSE
14-      21     x<>y
15-       1     1
16-       2     2
17-   4  51   f x>y
18-  13  05     GTO 05
19-      22     Rv
20-      22     Rv
21-  13  00     GTO 00

Edited to fix a typo (33C, not 34C)

P.S.: HP-12C version:

Code:


01-       1     1
02-      36     ENTER
03-   44  0     STO 0
04-44 20  0     ST0 * 0
05-       1     1
06-      40     +
07-      34     x<>y
08-   45  0     RCL  0
09-      22     1/x
10-      40     +
11-   43 31   g PSE
12-      34     x<>y
13-   43 36     LASTx
14-   42 14   f RND
15-   43 35   g x=0
16-43,33 19     GTO 19
17-      33     Rv
18-43,33 04     GTO 04
19-      33     Rv
20-      33     Rv
21-43,33 00     GTO 00

f 2 GTO 00 R/S -->

2.00
2.50
2.67
2.71
2.72
2.72

f 9 R/S -->

2.000000000
2.500000000
2.666666667
2.708333334
2.716666667
2.718055556
2.718253969
2.718278771
2.718281527
2.718281803
2.718281828
2.718281830