SLOPFELD.8xp

Purpose: Display a slopefield.

Download SLOPFELD.8xp

Screenshots

Source Code

:Func:ClrHome
:Disp "BE SURE TO PUT"
:Disp "DY/DX=F(X,Y)"
:Disp "IN THE Y= EDITOR"
:Disp "AS Y1."
:Disp "PRESS ENTER"
:Disp "TO CONTINUE."
:Pause
:Lbl 1
:ClrHome
:Disp "NO. OF X VALUES"
:Input W
:Disp "NO. OF Y VALUES"
:Input L
:(YMax-Ymin)/LV
:(Xmax-Xmin)/WH
:ClrDraw
:FnOff
:Ymin+V/2Y
:For(R,1,L)
:Xmin+H/2X
:For(C,1,W)
:Y1M
:^-M*H/2+YS
:M*H/2+YT
:If abs(T-S)>V
:Then
:Y+V/2T
:Y-V/2S
:(T-Y)/M+XQ
:(S-Y)/M+XP
:Else
:X-H/2P
:X+H/2Q
:End
:YK
:Line(P,S,Q,T)
:KY
:X+HX
:End
:Y+VY
: