Součtová a rozdílová konstrukce elipsy
Author: Radka Hamříková

A = (1, 1)
B = (7, 1)
M = (5, 3)
o_1 = Line(A, B)
o_2 = LineBisector(A, B)
S = Intersect(o_1, o_2)
k = Circle(M, 3)
G = Point(k)
a = Vector(M, G)
R', R = Intersect(k, o_2)
n = Line(R, M)
h = Line(M, R')
U' = Intersect(h, o_1)
U = Intersect(n, o_1)
b = Segment(U', M)
a_1 = Segment(U, M)
c = Circle(S, a_1)
C = Intersect(c, o_2, 2)
d = Segment(S, C)
D = Intersect(c, o_2, 1)
e = Segment(D, S)
f = Circle(C, 3)
E, F = Intersect(f, o_1)
g = Ellipse(E, F, M)