a) Desplaza los valores h, k y p. Observa y anota

b) Borra los trazos previos con Control y F, en el teclado

c) Da clic en boton de la parte inferior iquierda de la Pantalla
Observa y toma nota
 

h = 3 (slider from -5 to 5, step 0.1)
k = 2 (slider from -5 to 5, step 0.1)
r = 2.12 (slider from -8 to 8, step 0.02)
V: (h, k)
p = 1.5 (slider from -5 to 5, step 0.1)
F: (h + p, k)
Directriz: x = h - p
Eje: y = k
RectaAuxiliar: x = r + h
c: (x - (h + p))^(2) + (y - k)^(2) = (p + r)^(2)
A = Intersect(c, RectaAuxiliar, 1)
B = Intersect(c, RectaAuxiliar, 2)
distanciaBDirectriz = Distance(B, Directriz)
b = Segment(B, F)
d = OrthogonalLine(B, Directriz)
C = Intersect(Directriz, d)
e = Segment(C, B)
distanciaFB = Distance(F, B)
TextoFB: "\overline{" + (Name[F]) + (Name[B]) + "} \, = \, " + distanciaFB
f = Distance(B, Directriz)
TextoBDirectriz: "\overline{" + (Name[B]) + (Name[Directriz]) + "} \, = \, " + f