Tangent from point on the Parabola.
Author: M. Dabbs, R. Walcott

Drag point P.  Move point S.

Double click to open independently

A = (-0.96, 0.98)
B = (9.82, 0.98)
a = Line(A, B)
D_0 = Point(a)
b = OrthogonalLine(D_0, 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_0, S)
l = OrthogonalLine(O, a)
h = OrthogonalLine(P, b)
C = Intersect(l, h)
M = Midpoint(O, C)
j = Line(P, M)
i = Segment(M, C)
k = Segment(M, O)