Small Solver Program

[Gamo]

I just fine tune this solver program for HP-11C

Added the iterations limit to 28 loops count
Added the condition test to end program when root is found.

If iteration is over 28 loops count this indicate that user must use a closer guess.

-------------------------------------------

Procedure:

Use R1 for unknown X in your equation. End your formula with [RTN]

X1 ENTER X2 [A] display Answer

Answer is in R1

------------------------------------------------------------------------
Program:

Code:


LBL A
STO 0
Rv
STO 1
28
STO I  // Store Loop Count Limit
CLx
---------------------
LBL 0
GSB B
GSB 1
STO 1
GSB B
GSB 1
RCL 1
X=Y  // End if Root is found
GTO 2
DSE  // Loop Limit Counter
GTO 0
CLx
FIX 9  // 0.000000000 indicate that Maximum Loops is use up.
PSE
PSE
FIX 4 
GTO 2
---------------------
LBL 1  // Solver Routine
RCL 0
÷
CHS
RCL 1
+
RTN
--------------------
LBL 2
RCL 1  // Answer 
RTN
--------------------
LBL B
.  // f(x) equation start here
.
.  // X = Register 1 [R1]
.
.
RTN

Gamo