%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:8
File Name:F1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
X\x^2-Y\x^2
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:301
File Name:DRAWLINE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If A>C
\Then A\->F
C\->A
F\->C
B\->F
D\->B
F\->D
\IfEnd
\If A>\Xmax
\Then \Return
\IfEnd
\If C<\Xmin
\Then \Return
\IfEnd
\If A<\Xmin
\Then B+(D-B)(\Xmin-A)/(C-A)\->B
\Xmin\->A
\IfEnd
\If C>\Xmax
\Then D-(D-B)(C-\Xmax)/(C-A)\->D
\Xmax\->C
\IfEnd
\If B>D
\Then A\->F
C\->A
F\->C
B\->F
D\->B
F\->D
\IfEnd
\If B>\Ymax
\Then \Return
\IfEnd
\If D<\Ymin
\Then \Return
\IfEnd
\If B<\Ymin
\Then A+(C-A)(\Ymin-B)/(D-B)\->A
\Ymin\->B
\IfEnd
\If D>\Ymax
\Then C-(C-A)(D-\Ymax)/(D-B)\->C
\Ymax\->D
\IfEnd
\Plot A,B
\Plot C,D
\Line

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:649
File Name:SLOPFIEL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->E
\Xscl\->G
\If \Yscl<G
\Then \Yscl\->G
\IfEnd
"Field (0\->no,1\->yes)"?\->A
\If A\<>0
\Then \Int (\Xmin/\Xscl)\->H
H\Xscl<\Xmin\=>H+1\->H
\Do
\Int (\Ymin/\Yscl)\->I
I\Yscl<\Ymin\=>I+1\->I
\Do
H\Xscl\->X
I\Yscl\->Y
\Prog "F1"
\Ans\->K
\sqrt(1+K\x^2)\x^-1\->J
JK\->K
.3GJ\->J
.3GK\->K
X-J\->A
Y-K\->B
X+J\->C
Y+K\->D
\Prog "DRAWLINE"
I+1\->I
\Int (\Ymax/\Yscl)\->J
J\Yscl>\Ymax\=>J-1\->J
\LpWhile I\<=J
\Int (\Xmax/\Xscl)\->J
J\Xscl>\Xmax\=>J-1\->J
H+1\->H
\LpWhile H\<=J
\IfEnd
1\->E
\While 1
"X0"?\->G
"Y0"?\->H
(\Xmax-\Xmin)/78\->I
G\->J
H\->K
\While J<\Xmax
J\->X
K\->Y
\Prog "F1"
I\Ans\->L
J+I/2\->X
K+L/2\->Y
\Prog "F1"
I\Ans\->M
J+I/2\->X
K+M/2\->Y
\Prog "F1"
I\Ans\->N
J+I\->X
K+N\->Y
\Prog "F1"
I\Ans\->O
J\->A
K\->B
J+I\->J
K+(L+2M+2N+O)/6\->K
J\->C
K\->D
\Prog "DRAWLINE"
\WhileEnd
G\->J
H\->K
\While J>\Xmin
J\->X
K\->Y
\Prog "F1"
I\Ans\->L
J-I/2\->X
K-L/2\->Y
\Prog "F1"
I\Ans\->M
J-I/2\->X
K-M/2\->Y
\Prog "F1"
I\Ans\->N
J-I\->X
K-N\->Y
\Prog "F1"
I\Ans\->O
J\->A
K\->B
J-I\->J
K-(L+2M+2N+O)/6\->K
J\->C
K\->D
\Prog "DRAWLINE"
\WhileEnd
\WhileEnd
%End