# TITLE:  Newton RootFinder
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   14Dec1994
# MAKE:   CASIO
# MODEL:  fx7700GE or greater
# SIZE:   54
# NOTES:  Store your function of x in f1.
#         Run the program and enter an estimated root.
#         The program then displays results of successive 
#         iterations of the newton-raphson method.
#         If it converges then the number of steps will be shown.


@@ Program 1

Mcl
"EST"?->X
Lbl 1
X-f1/d/dx(f1,X)_
Ans=X=>Goto 2
Ans->X
Isz A
Goto 1:Lbl 2
"STEPS":A