# TITLE:  Newton RootFinder
# AUTHOR: Roy F.A. Maclean
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro   
# DATE:   14DEc1994, 7000Gversion:26Mar1996
# MAKE:   CASIO
# MODEL:  fx6300G or greater
# SIZE:   104 + function
# NOTES:  This program uses two program areas.
#         Put your function of X in the second area
#         where it says f(x).
#         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
1 \10^ -6->Y     ; \10^ is the small 10 above the log button
Lbl 1
Prog 2:B->C
X+Y->X
Prog 2:B->U
X-2Y->X
Prog 2:B->V
X+Y->X
X-2CY/(U-V)_
Ans=X=>Goto 2
Ans->X
Isz A
Goto 1:Lbl 2
"STEPS":A

# __________________________________________
# __________________________________________

@@ Program 2

f(x)->B

# __________________________________________