Parabola Normal Construction
Author: M. Dabbs, R. Walcott

Drag point P.  Move points D and S.

Double click to open independently.

A = (-0.96, 0.98)
B = (9.82, 0.98)
a = Line(A, B)
D = Point(a)
b = OrthogonalLine(D, a)
S = Point(a)
E = Point(b)
c = Segment(E, S)
F = Midpoint(E, S)
d = OrthogonalLine(F, c)
e = OrthogonalLine(E, b)
G = Intersect(d, e)
loc1 = Locus(G, E)
P = Point(loc1)
f = Circle(P, S)
g = OrthogonalLine(P, b)
O = Midpoint(D, S)
l = OrthogonalLine(O, a)
h = Circle(S, P)
D_1 = Intersect(h, a, 2.0)
i = Segment(P, D_1)