\start83\
\comment=Program file dated 10/07/97, 14:24
\name=PARABOLA
\file=J:\PARABOLA.AS3
prgmFACSU
Disp "CHOICE 1"
Disp "Y= A(X-H)\^2\+K"
Disp ""
Disp "CHOICE 2"
Disp "X= A(Y-K)\^2\+H"
Disp ""
Input "ENTER 1 OR 2",C
If C=1
Then
Prompt A
Prompt H
Prompt K
Else
Prompt A
Prompt K
Prompt H
End
10\->\S
abs((1/A)\->\L
Lbl 1
\(-)\S\->\Xmin
S\->\Xmax
\(-)\S\->\Ymin
S\->\Ymax
If C=1
Then
"A(X-H)\^2\+K"\->\Y\1\
K+1/(4A)\->\E
H\->\F
Else
"K+\root\(((1/A)(X-H))"\->\Y\1\
"K-\root\(((1/A)(X-H))"\->\Y\2\
H+1/(4A)\->\F
K\->\E
End
ZSquare
If C=1
Then
K-1/(4A)\->\D
Line(Xmin,D,Xmax,D)
Line(H-L/2,E,H+L/2,E)
Line(F,Ymin,F,Ymax)
Else
H-1/(4A)\->\D
Line(D,Ymin,D,Ymax)
Line(F,K+L/2,F,K-L/2)
Line(Xmin,E,Xmax,E)
End
Pause 
ClrHome
Disp "(1) ZOOM IN"
Disp "(2) ZOOM OUT"
Disp "(3) NUMERICAL"
Disp "    RESULTS"
Disp ""
Input "ENTER 1,2,3 ",R
If R=3
Goto 3
If R=1
Then
S/2\->\S
Else
S*2\->\S
End
Goto 1

Lbl 3
ClrHome
Disp "VERTEX ="
Disp "X =",H\>\Frac
Disp "Y =",K\>\Frac
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "FOCUS ="
Disp "X = ",F\>\Frac
Disp "Y = ",E\>\Frac
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "EQ OF DIRECTRIX"
Disp ""
If C=1
Then
Disp "Y= ",D\>\Frac
Else
Disp "X= ",D\>\Frac
End
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "AXIS OF SYM"
If C=1
Then
Disp "X= ",H\>\Frac
Else
Disp "Y= ",K\>\Frac
End
Disp "LENGTH OF"
Disp "LATUS RECTUM =",L\>\Frac
Pause 
ClrHome

\stop83\