MDL MAIN

PROMPT Enter a value for X
Prompt user for guess
STO X1

LBL 0
Start loop
RCL X1

PRTX

ABS

 1 

+

 0.01 

*
Calculate h
STO H

RCL X1

GSB FX
Calculate f(X)
STO FX

RCL X1

RCL H

+

GSB FX
Calculate f(X+h)
RCL FX

-

1/X

RCL FX

*

RCL H

*
Calculate guess refinement
STO- X1

ABS

 0.000001 

X<Y?
Test convergence
GTO 0

RCL X1

RTN

LBL FX
The function f(x)
EXP

LASTX

X^2

 3 

*

-

RTN

