(11C) Three Solvers

[Gamo]

This solver is good to run on HP-11C, it run fast by depending on
your FIX accuracy value and user who not good at stacks manipulation.
This solver use Register 1 for the unknow X in the equation simply use
R1 for all X in your equations as shown in the example below.

Enter your equations with your X on R1
Enter educated guess and press [A]

Example: [USER] [FIX 4]

Find X with this equation: 55X^3 + 21X^2 - 11X - 1111 = 0

Enter f(x) equation to Lable [E]

[GTO] [E] g [P/R] this steps direct to f(x) routine

RCL 1
3
Y^X
55
x
RCL 1
X^2
21
x
+
RCL 1
11
x
-
1111
-
RTN

g [P/R]

Enter Guess: 4 [A] took about 20 second answer X=2.6253

Program:

Code:


LBL A
STO 1
1
%
STO 2
GSB E
STO 3
LBL 1
RCL 2
STO+1
RND
X=0
GTO 0
GSB E
RCL 3
X<>Y
STO 3
-
STO÷2
RCL 3
STOx2
GTO 1
LBL 0
RCL 1
RTN
LBL E
.// Use R1 for you unknow X
.
.
RTN

Gamo 6/22/2020