# TITLE:  Newton RootFinder
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   14Dec1994, 9850version:15Nov1996
# MAKE:   CASIO
# MODEL:  fx7700GE or greater
# SIZE:   56
# NOTES:  Store your function of x in function memory 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 "NEWTROOT"

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