\START85\
\COMMENT=Program file dated 03/14/00, 15:59
\NAME=euler
\FILE=C:\TI85LINK\PROGRAMS\EULER.85P
:ClLCD
:Disp ""
:Disp "   Euler's  Method"
:Disp ""
:Disp "   by Nick Markham"
:Disp ""
:Disp "  markhamnr@aol.com"
:Pause 
:ClLCD
:0\->\t
:{6,4}\->\dim MAT1
:InpST "dy/dx: ",eqn
:\St>Eq\(eqn,eqn)
:Disp "Initial conditions: "
:Prompt x,y
:Input "maximum x: ",\LC-theta\
:Input "dx: ",r
:ClLCD
:Lbl Lup
:x\->\MAT1(1+t,1)
:y\->\MAT1(1+t,2)
:eqn\->\MAT1(1+t,3)
:eqn*r\->\MAT1(1+t,4)
:eqn*r+y\->\y
:r+x\->\x
:t+1\->\t
:If t<6
:Goto Lup
:Disp "x     y     y'     dy"
:
:round(MAT1,4)\->\MAT1
:Pause MAT1
:If MAT1(6,1)<\LC-theta\
:Then
:0\->\t
:ClLCD
:Goto Lup
:End
:ClLCD
\STOP85\