Dandelinsche Kugeln im Zylinder
Author: Prof. Dr. Dörte Haftendorn
Date: Nov. 06

r_1 = 3.000000000000001
A = Point(yAxis)
c = Circle(A, r_1)
d_1: x = -r_1
e_2: x = r_1
O = (0.03333333333333333, -0.033333333333333215)
a, b = Tangent(O, c)
F_1 = Intersect(c, a)
r = Segment(A, F_1)
F_2 = Mirror(F_1, O)
g = Mirror(c, O)
D = Mirror(A, O)
E = Intersect(a, e_2)
K = Intersect(e_2, xAxis)
H: (-y(E), 0)
H_1: (-y(E), r_1)
P, h_1, h, o = Polygon(H, O, H_1)
Q, e_1, o_1, f_1 = Polygon(O, K, E)
R, e, o_2, d = Polygon(O, F_1, A)
F_f: (x(F_1), 0)
v_f = Segment(F_1, F_f)
u_f = Segment(F_f, O)
n = Vector(O, H_1)