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

Drag generator point G.  Move point A

Double click to open independently

A_1 = Point(a)
b = OrthogonalLine(A_1, a)
A = Point(a)
c = Circle(A_1, A)
G = Point(c)
d = Segment(A_1, G)
e = OrthogonalLine(G, a)
f = OrthogonalLine(G, b)
D = Intersect(b, f)
E = Intersect(a, e)
g = Segment(D, E)
G_1 = Midpoint(D, E)
loc1 = Locus(G_1, G)
k = 1.48 (slider from 0 to 2, step 0.01)
G' = Dilate(G_1, k, D)
loc2 = Locus(G', G)