TI 81 Newton's Method Program
Prgm1:NEWTON
:Input X
:Lbl 1
:X - Y1/NDeriv(y1,.001) -> X
:Disp x
:Pause
:Goto 1
Entering the program:
Underlined words represent buttons to press
# represents the cursor
Keystrokes Screen
Prgm
cursor across to EDIT
cursor down to next empty Prgm
ENTER Prgm1:#A
NEWTON ENTER Prgm1:NEWTON
:#
Prgm
cursor across to I/O
cursor down to 2
ENTER :Input#
X ENTER :Input X
:
Prgm
cursor across to ctl
cursor down to 1 ENTER :Lbl #
1 ENTER :Lbl 1
:#
X - 2nd YVARS :X - #
cursor to 1 ENTER :X - Y1
MATH cursor down to 8 ENTER :X - Y1/NDeriv (#
2nd YVARS cursor to 1 ENTER :X - Y1/NDeriv (Y1#
ALPHA :X - Y1/NDeriv (Y1,#
.001 STO X ENTER :.001 ->X
:#
Prgm cursor across to I/O
cursor down to 1 ENTER X ENTER :Disp X
:#
Prgm cursor across to CTL
cursor down to 6 ENTER ENTER :Pause
:#
Prgm cursor across to CTL
cursor down to 2 ENTER 1 ENTER :Goto 1
:#
2nd CLEAR
To find the roots of an equation, type the equation in Y1
Now hit Prgm, cursor across to EXEC, cursor down to prgm1 NEWTON
Prgm # will appear on the screen press ENTER
?# will appear on the screen Type in an estimate of the root
?2 then repeatedly hit ENTER to zero in on the solution
To quit press ON and cursor down to 2 for QUIT