%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3555
File Name:CONICS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 1
\ClrText
"ANALYZE"
"(1)AX\x^2+CY\x^2+DX+EY+F=0"
"(2)Y=AX\x^2+BX+C"
"(3)X=AY\x^2+BY+C"
"CHOICE="?\->G
\ClrText
\If G=1
\Then "AX\x^2+CY\x^2+DX+EY+F=0"
"A="?\->A
0\->B
"C="?\->C
"D="?\->D
"E="?\->E
"F="?\->F
\IfEnd
\If G=2
\Then "Y=AX\x^2+BX+C"
"A="?\->A
0\->B
0\->C
"B="?\->D
-1\->E
"C="?\->F
\IfEnd
\If G=3
\Then "X=AY\x^2+BY+C"
0\->A
0\->B
"A="?\->C
-1\->D
"B="?\->E
"C="?\->F
\IfEnd
A=0\ And C=0\ And D=0\ And E=0\=>\Goto1
\If A=0\ And C=0
\Then \ClrText
\Locate 1,1,"DEGENERATE CONIC"
\Locate 1,2,"ONE LINE"
\If E\<>0
\Then -D/E\->S
1\->J
\While \Abs (\Int (JS)-JS)>1\EE-6
\Isz J
\WhileEnd
JS\->S
\Locate 1,3,"Y=("
4\->L
J\<=1\=>\Dsz L
S\<>0\=>\Locate L,3,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+1\->L
\If J>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,J
L+\Int (\log J)+2\->L
\Locate L,3,")"
\Isz L
\IfEnd
S\<>0\=>\Locate L,3,"X+"
F>0\=>\Locate L+1,3,"-"
\Locate L+2,3,F
\Else -F/D\->S
1\->J
\While \Abs (\Int (JS)-JS)>1\EE-6
\Isz J
\WhileEnd
JS\->S
\Locate 1,3,"X="
\Locate 3,3,S
S\<>0\=>\Int (\log (\Abs S))+(S<0)+4\->L
\If J>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,J
\IfEnd
\IfEnd
\Goto0
\IfEnd
B\x^2-4AC\->T
\If T=0
\Then \If C=0
\Then -D/(2A)\->H
-(AH\x^2+DH+F)/E\->K
-E/(4A)\->P
\Else -E/(2C)\->K
-(CK\x^2+EK+F)/D\->H
-D/(4C)\->P
\IfEnd
\ClrText
\Locate 1,1,"PARABOLA OPENS "
C=0\ And P>0\=>\Locate 16,1,"UP"
C=0\ And P<0\=>\Locate 16,1,"DOWN"
A=0\ And P>0\=>\Locate 16,1,"RIGHT"
A=0\ And P<0\=>\Locate 16,1,"LEFT"
\Locate 1,2,"VERTEX: ("
1\->I
\While \Abs (\Int (IH)-IH)>1\EE-6
\Isz I
\WhileEnd
IH\->R
\Locate 10,2,R
R\<>0\=>\Int (\log (\Abs R))+(R<0)+11\->L
R=0\=>11\->L
\If I>1
\Then \Locate L,2,"\slash"
\Locate L+1,2,I
L+\Int (\log I)+2\->L
\IfEnd
\Locate L,2,","
1\->J
\While \Abs (\Int (JK)-JK)>1\EE-6
\Isz J
\WhileEnd
JK\->S
\Locate L+1,2,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+2\->L
S=0\=>L+2\->L
\If J>1
\Then \Locate L,2,"\slash"
\Locate L+1,2,J
L+\Int (\log J)+2\->L
\IfEnd
\Locate L,2,")"
\Locate 1,3,"AXIS: "
C=0\=>\Locate 7,3,"X="
C=0\=>\Locate 9,3,H
A=0\=>\Locate 7,3,"Y="
A=0\=>\Locate 9,3,K
\Locate 1,4,"FOCUS: ("
A=0\=>H+P\->N
C=0\=>K+P\->N
1\->O
\While \Abs (\Int (ON)-ON)>1\EE-6
\Isz O
\WhileEnd
ON\->N
9\->L
C=0\=>\Locate L,4,R
A=0\=>\Locate L,4,N
C=0\ And R\<>0\=>L+\Int (\log (\Abs R))+(R<0)\->L
A=0\ And N\<>0\=>L+\Int (\log (\Abs N))+(N<0)\->L
\Isz L
\If (C=0\ And I>1)\ Or (A=0\ And O>1)
\Then \Locate L,4,"\slash"
C=0\=>\Locate L+1,4,I
A=0\=>\Locate L+1,4,O
C=0\=>L+\Int (\log I)+2\->L
A=0\=>L+\Int (\log O)+2\->L
\IfEnd
\Locate L,4,","
\Isz L
C=0\=>\Locate L,4,N
A=0\=>\Locate L,4,S
C=0\ And N\<>0\=>L+\Int (\log (\Abs N))+(N<0)\->L
A=0\ And S\<>0\=>L+\Int (\log (\Abs S))+(S<0)\->L
\Isz L
\If (C=0\ And O>1)\ Or (A=0\ And J>1)
\Then \Locate L,4,"\slash"
C=0\=>\Locate L+1,4,O
A=0\=>\Locate L+1,4,J
C=0\=>L+\Int (\log O)+2\->L
A=0\=>L+\Int (\log J)+2\->L
\IfEnd
\Locate L,4,")"
\Locate 1,5,"DIRECTRIX: "
C=0\=>\Locate 12,5,"Y="
A=0\=>\Locate 12,5,"X="
C=0\=>\Locate 14,5,K-P
A=0\=>\Locate 14,5,H-P
\Goto0
\IfEnd
-D/(2A)\->H
1\->I
\While \Abs (\Int (IH)-IH)>1\EE-6
\Isz I
\WhileEnd
IH\->R
-E/(2C)\->K
1\->J
\While \Abs (\Int (JK)-JK)>1\EE-6
\Isz J
\WhileEnd
JK\->S
AH\x^2+CK\x^2-F\->M
\If M=0
\Then \ClrText
\Locate 1,1,"DEGENERATE CONIC"
\If AC>0
\Then \Locate 1,2,"POINT"
\Locate 1,3,"X="
\Locate 3,3,H
\Locate 1,4,"Y="
\Locate 3,4,K
\IfEnd
\If AC<0
\Then \Locate 1,2,"INTERSECTING LINES"
\Locate 1,3,"Y=(+\slash-) "
\Locate 9,3,\sqrt(-A/C)
\If H=0
\Then \Locate 9,4,"X"
10\->L
\Else \Locate 9,4,"(X-"
H<0\=>\Locate 11,4,"+"
12\->L
\IfEnd
\If R\<>0
\Then \Locate L,4,\Abs R
L+\Int (\log (\Abs R))+1\->L
\IfEnd
\If I>1
\Then \Locate L,4,"\slash"
\Locate L+1,4,I
L+\Int (\log I)+2\->L
\IfEnd
R\<>0\=>\Locate L,4,")"
\If K\<>0
\Then \Locate 9,5,"+"
K<0\=>\Locate 9,5,"-"
\Locate 10,5,\Abs S
\IfEnd
\If J>1
\Then \Int (\log (\Abs S))+11\->L
\Locate L,5,"\slash"
\Locate L+1,5,J
\IfEnd
\Goto0
\IfEnd
\If AC>0\ And AM<0
\Then \Locate 1,3,"NO SOLUTION"
\IfEnd
\Goto0
\IfEnd
M/A\->X
M/C\->Y
\If T<0
\Then \ClrText
\If X=Y
\Then \Locate 1,1,"CIRCLE"
\Locate 1,2,"CENTER: ("
\Locate 10,2,R
R\<>0\=>\Int (\log (\Abs R))+(R<0)+11\->L
R=0\=>11\->L
\If I>1
\Then \Locate L,2,"\slash"
\Locate L+1,2,I
L+\Int (\log I)+2\->L
\IfEnd
\Locate L,2,","
\Locate L+1,2,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+2\->L
S=0\=>L+2\->L
\If J>1
\Then \Locate L,2,"\slash"
\Locate L+1,2,J
L+\Int (\log J)+2\->L
\IfEnd
\Locate L,2,")"
\Locate 1,3,"RADIUS="
\Locate 8,3,\sqrtX
\Else \Locate 1,1,"ELLIPSE"
\Locate 1,2,"MAJOR AXIS "
X>Y\=>\Locate 12,2,"HORIZONTAL"
Y>X\=>\Locate 12,2,"VERTICAL"
\Locate 1,3,"CENTER: ("
\Locate 10,3,R
R\<>0\=>\Int (\log (\Abs R))+(R<0)+11\->L
R=0\=>11\->L
\If I>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,I
L+\Int (\log I)+2\->L
\IfEnd
\Locate L,3,","
\Locate L+1,3,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+2\->L
S=0\=>L+2\->L
\If J>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,J
L+\Int (\log J)+2\->L
\IfEnd
\Locate L,3,")"
\Locate 1,4,"SEMI-MJR AXIS="
\Locate 1,5,"SEMI-MNR AXIS="
\If X>Y
\Then \Locate 15,4,\sqrtX
\Locate 15,5,\sqrtY
\Else \Locate 15,4,\sqrtY
\Locate 15,5,\sqrtX
\IfEnd
\Locate 1,6,"CNTR TO FOCUS="
\Locate 15,6,\sqrt\Abs (X-Y)
\IfEnd
\Goto0
\IfEnd
\If T>0
\Then \ClrText
\Locate 1,1,"HYPERBOLA"
\Locate 1,2,"T-VRS AXIS "
X>0\=>\Locate 12,2,"HORIZONTAL"
Y>0\=>\Locate 12,2,"VERTICAL"
\Locate 1,3,"CENTER: ("
\Locate 10,3,R
R\<>0\=>\Int (\log (\Abs R))+(R<0)+11\->L
R=0\=>11\->L
\If I>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,I
L+\Int (\log I)+2\->L
\IfEnd
\Locate L,3,","
\Locate L+1,3,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+2\->L
S=0\=>L+2\->L
\If J>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,J
L+\Int (\log J)+2\->L
\IfEnd
\Locate L,3,")"
\Locate 1,4,"CNTR TO VERTEX="
X>0\=>\Locate 16,4,\sqrtX
Y>0\=>\Locate 16,4,\sqrtY
\Locate 1,5,"CNTR-IM VERTEX="
X>0\=>\Locate 16,5,\sqrt\Abs Y
Y>0\=>\Locate 16,5,\sqrt\Abs X
\Locate 1,6,"CNTR TO FOCUS="
\Locate 15,6,\sqrt\Abs (X-Y)
\IfEnd
\Lbl 0
%End