(12C) X to Power of X Equation

[Dieter]

(02-18-2018 01:41 PM)Dieter Wrote:  Now let's see if the iteration process can be done automatically. ;-)

Indeed the 11C version proposed in the other thread can be adapted for the 12C.
Including a loop counter. ;-)

Code:

01 LN
02 STO 0
03 1
04 +
05 LN
06 ENTER
07 LN
08 0
09 x<=y?
10 X<>Y
11 X<>Y
12 R↓
13 -
14 5
15 STO 1
16 R↓
17 ENTER
18 ENTER
19 ENTER
20 RCL 0
21 X<>Y
22 e^x
23 /
24 -
25 X<>Y
26 1
27 +
28 /
29 LstX
30 1/x
31 1
32 +
33 X<>Y
34 x
35 LstX
36 X<>Y
37 2
38 /
39 CHS
40 1
41 +
42 /
43 -
44 -
45 x=0?
46 GTO 57
47 1
48 STO-1
49 RCL 1
50 x=0?
51 GTO 57
52 R↓
53 R↓
54 R↓
55 LstX
56 GTO 17
57 LstX
58 ST0/0
59 e^x
60 RCL 0
61 GTO 00

The program works for input > 1.

Since the last digit may be off the program returns two values in X and Y that usually bracket the exact solution.

Example:

1000 [R/S] => 4,555535705
   [X<>Y]   => 4,555535705

EEX 9 [R/S] => 9,295086903
   [X<>Y]    => 9,295086898

Here in fact the exact result is right in the middle: 9,295086900 376...

Dieter