%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:212
File Name:SLOPEFLD
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"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
%End