# TITLE:  Slope Field
# AUTHOR: Alan Ziv 
# EMAIL:  ?
# WEB:    ?        
# DATE:   ?
# MAKE:   CASIO
# MODEL:  9850G

@@ Program "SLPFIELD"

"SLOPE FIELD"
"STORE d/dx(Y)=\f6(X,Y)FIRST"
Cls
(Ymax-Ymin)/62->C
(Xmax-Xmin)/126->D
For 0->J To 15
Xmin+(8J+3)D->E
For 0->K To 7
Ymin+(8K+3)C->F
E->X
F->Y
\f6->G
2D->H
Abs G>C/D=>2C/Abs G->H
If 2H>=D
Then Green Graph Y=G(X-E)+F,[E-H,E+H]
Else Green F-Line E,F+2C,E,F-2C
IfEnd
Next
Next
Green Graph Y=0