Rytzova konstrukce elipsy
Author: Radka Hamříková

R = (0.42, 0.02)
T = (4.32, 0.16)
V = (3.66, 2.7)
a_1 = Segment(R, T)
b_1 = LineBisector(R, T)
S = Intersect(a_1, b_1)
c = Line(V, S)
U = Mirror(V, S)
d = Segment(V, U)
k = OrthogonalLine(S, d)
e = Circle(S, V)
V', H = Intersect(e, k)
f = Line(R, V')
g = LineBisector(R, V')
O = Intersect(g, f)
l = Circle(O, S)
G_1, G_2 = Intersect(l, f)
o_2 = Line(G_2, S)
o_1 = Line(G_1, S)
distanceG1R = Distance(G_1, R)
Texta: "\overline{" + (Name[G_1]) + (Name[R]) + "} \, = \, " + distanceG1R
distanceRG2 = Distance(R, G_2)
TextRG2: "\overline{" + (Name[R]) + (Name[G_2]) + "} \, = \, " + distanceRG2
h = Circle(S, 3.12)
p = Circle(S, 1.6)
A, B = Intersect(h, o_1)
C, D = Intersect(p, o_2)
q = Circle(C, 3.12)
E, F = Intersect(q, o_1)
r = Ellipse(E, F, C)
b = Segment(G_1, R)
a = Segment(R, G_2)