Distancias iguales

Vértice

Eje

Parámetro p

Lado recto

Cuadrado

Tangente

Ángulos

Rayo paralelo al eje

Recta principal

Lado recto

Mediatriz de FD

verDistancias = true
verVértice = false
verEje = false
verDistanciaFocal = false
verLadoRecto = false
verCuadrado = false
verTangente = false
verAngulos = false
verRayo = false
verRectaPrincipal = false
F = (6.38, 1.7)
B = (1.56, -2.5)
C = (-1.06, -2.96)
directriz = Line(C, B)
parabola = Parabola(F, directriz)
P = Point(parabola)
PF = Segment(P, F)
c = OrthogonalLine(P, directriz)
D = Intersect(directriz, c)
M: (F + D) / 2.0
eje = OrthogonalLine(F, directriz)
E = Intersect(eje, directriz)
V = Midpoint(F, E)
a = Line(F, directriz)
A, G = Intersect(parabola, a)
m = Segment(F, D)
PD = Segment(P, D)
ladoRecto = Segment(A, G)
b = LineBisector(F, D)
e = OrthogonalLine(G, directriz)
H = Intersect(directriz, e)
u = Vector(P - 1000.0 * (D - P), P)
v = Vector(P, F)
I = Intersect(eje, b)
α1 = Angle(D, P, I)
α2 = Angle(I, P, F)
J: P + P - I
K: P + P - D
α3 = Angle(J, P, K)
lista1 = Sequence(Intersect[parabola, Line[P + k * UnitVector[Vector[B, D]], P + k * UnitVector[Vector[B, D]] + D - P]], k, -10.0, -0.25, 0.25)
lista2 = Sequence(Intersect[parabola, Line[P + k * UnitVector[Vector[B, D]], P + k * UnitVector[Vector[B, D]] + D - P]], k, 0.25, 10.0, 0.25)
lista3: {Sequence[Segment[Element[lista1, k] - 1000.0 * (D - P), Element[lista1, k]], k, 1.0, Length[lista1]], Sequence[Segment[Element[lista2, k] - 1000.0 * (D - P), Element[lista2, k]], k, 1.0, Length[lista2]], Sequence[Segment[Element[lista1, k], F], k, 1.0, Length[lista1]], Sequence[Segment[Element[lista2, k], F], k, 1.0, Length[lista2]]}
polígono1: {Polygon[F, E, H, G]}
polígono2: {Polygon[F, D, P]}
rp = Line(V, directriz)
p = Segment(E, F)
L = (-1.32, -0.02)
lista4: {Polygon[L, L - (20.0, 0.0), L + (-(20.0), 20.0), L + (0.0, 20.0)]}