h = 5 (slider from -5 to 5, step 0.1)
a = 4.08 (slider from -6 to 6, step 0.02)
k = 0.4 (slider from -5 to 5, step 0.1)
p = 1.3 (slider from -5 to 5, step 0.1)
V: (h, k)
F: (h, k + p)
Directriz: y = k - p
c: (x - h)^(2) + (y - (k + p))^(2) = (p + a)^(2)
RectaAuxiliar: y = a + k
A = Intersect(c, RectaAuxiliar, 1)
B = Intersect(c, RectaAuxiliar, 2)
d = OrthogonalLine(B, Directriz)
C = Intersect(d, Directriz)
distanciaBDirectriz = Distance(B, Directriz)
Midpoint(B, ClosestPoint[Directriz, B])
TextoBDirectriz: "\overline{" + (Name[B]) + (Name[Directriz]) + "} \, = \, " + distanciaBDirectriz
distanciaFB = Distance(F, B)
Midpoint(F, B)
TextoFB: "\overline{" + (Name[F]) + (Name[B]) + "} \, = \, " + distanciaFB
b = Segment(F, B)
e = Segment(B, C)