DISTANCE, DTR, MIDPOINT, and PARABOLA

DISTANCE.ti

@@ -0,0 +1,19 @@
+PROGRAM:DISTANCE
+Disp "sqrt((X2-X1a)^2+(Y2-Y1)^2)"
+Pause 
+Disp ""
+Disp "X1"
+Input A 
+Disp "Y2"
+Input B
+Disp "X2"
+Input C
+Disp "Y2"
+Input D
+Disp ""
+Disp "sqrt("
+Disp (C-A)^2+(D-B)^2
+Pause 
+Disp ""
+Disp sqrt((C-A)^2+(D-B)^2)
+

DTR.ti

@@ -0,0 +1,8 @@
+PROGRAM:DTR
+Disp "CONVERT DEGREES TO RADIANS"
+Disp ""
+Pause
+Disp "DEGREES"
+Input D
+D*pi/180->R
+Disp R

MIDPOINT.ti

@@ -0,0 +1,19 @@
+DPROGRAM:MIDPOINT
+Disp "( (X1+X2)/2 , (Y1+Y2)/2 )"
+Pause
+Disp ""
+Disp "X1"
+Input A
+Disp "Y1"
+Input B
+Disp "X2"
+Input C
+Disp "Y2"
+Input D
+Disp ""
+Disp "("
+Disp ((A+C)/2)
+Disp ","
+Disp ((B+D)/2)
+Disp ")"
+

PARABOLA/PARABOLA.ti

@@ -0,0 +1,15 @@
+PROGRAM:PARABOLA
+1.2649799174976319->S
+2.3313342761673461->V
+Disp "STANDARD OR VERTEX? (S/V)"
+Input F
+If F=S 
+Then 
+prgmSTANDARD
+Else
+If F=V
+Then
+prgmVERTEX
+Else
+Disp "INVALID ARGUMENT"
+

PARABOLA/STANDARD.ti

@@ -0,0 +1,26 @@
+PROGRAM:STANDARD
+Disp "Y=AX^2+BX+C"
+Pause
+Disp "A"
+Input A
+Disp "B"
+Input B
+Disp "C"
+Input C
+(-B/(2A))->H
+(A*H^2)+(B*H)+C->K
+Disp "FOCUS COORDINATES"
+Disp H
+K+(1/(4A))->P
+Disp P
+Pause
+Disp "DIRECTRIX EQUATION"
+K-(1/4A))->D
+Disp "Y=",D
+Pause
+Disp "LINE OF SYMMETRY EQUATION"
+Disp "Y=",H
+Pause
+Disp "VERTEX COORDINATES"
+Disp H,K
+

PARABOLA/VERTEX.ti

@@ -0,0 +1,20 @@
+PROGRAM:VERTEX
+Disp "Y=A(X-H)^2+K"
+Pause
+Disp "A"
+Input A
+Dsp "H"
+Input H
+Disp "K" 
+Input K
+Disp "FOCUS COORDINATES"
+Disp H,K+(1/(4A))
+Pause
+Disp "DIRECTRIX EQUATION"
+Disp "Y=",K-(1/(4A))
+Disp "LINE OF SYMMETRY EQUATION"
+Disp "Y=",H
+Pause
+Disp "VERTEX COORDINATES"
+Disp H,K
+