Ellipse Construction 15
Author: M. Dabbs, R. Walcott

Drag the generator point G.  Move any other Blue Points.

Double click to open independently

A = (-3.8613861386138613, 7.160489071038252)
B = (6.514851485148515, 3.7873661202185795)
a = Line(A, B)
C = Point(a)
α = 1.3177235852557188 rad (slider from 0 to 6.283185307179586, step 0.008726646259971648)
b = OrthogonalLine(C, a)
D = Point(b)
c = Circle(C, D)
E = Point(c)
d = Line(C, E)
G = Point(d)
e = OrthogonalLine(G, d)
G_1 = Point(e)
f = Circle(G, G_1)
H, I = Intersect(f, a)
g = Segment(G, I)
h = Segment(G, H)
I' = Rotate(I, α, G)
β = Angle(I, G, I')
H' = Rotate(H, α, G)
γ = Angle(H, G, H')
i = Segment(G, I')
j = Segment(G, H')
k = Segment(H', H)
l = Segment(I', I)
loc1 = Locus(I', G)
loc2 = Locus(H', G)
loc3 = Locus(H', G)
loc4 = Locus(I', G)