Newton's Numerical Solve Routine:
This program uses the Newton-Raphson method to find the roots (zeros) of a function
numerically. You must enter the function in Y1 before running the program. You will be
prompted to give an initial guess. The program will then take over and locate the root.
PROGRAM:NEWTON
:INPUT "INITIAL X=",X
:LBL N
:X-Y1/NDERIV(Y1,X,X)->R
:DISP R
:PAUSE
:IF ABS (X-R)\<=\ABS (X/1\EE\10)
:STOP
:R->X
:GOTO N