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

Drag the generator point G.  Move any other points.

Double click to open independently.

A_1 = (-4.772277227722772, 6.1741958105646635)
B = (6.772277227722772, 6.1741958105646635)
a = Line(A_1, B)
C = Point(a)
D = Point(a)
c = Circle(C, D)
A = (-0.8514851485148515, 1.873957194899818)
G = Point(c)
b = OrthogonalLine(G, a)
F = Intersect(a, b)
d = Line(A, G)
P = 0.5 (slider from -2 to 2, step 0.0050)
P_2 = Dilate(G, P, A)
e = Line(P_2, F)
Q = 2 (slider from -3 to 4, step 0.01)
F' = Dilate(F, Q, P_2)
loc1 = Locus(F', G)