(y-k)²=4p(x-h)

Foco: F(h+p,k)
Vertice: V(h,k)
Directriz: x = k - p
Eje: y = k
Lado Recto = 4p

h = 1 (slider from -5 to 5, step 0.1)
k = 2 (slider from -5 to 5, step 0.1)
p = 1 (slider from -5 to 5, step 0.1)
c: (y - k)^(2) = 4 * p * (x - h)
eje: y = k
F: (h + p, k)
V: (h, k)
Directriz: x = h - p
a: x = h + p
A = Intersect(c, a, 1)
B = Intersect(c, a, 2)
distanciaAB = Distance(A, B)
TextoAB: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + distanciaAB
b = Segment(A, B)