AS_3 = r_1

BS_3 = r_2

r variieren

A = (-15.993994565144074, 13.710083513287008)
B = (-8.889738748675082, 13.736011454223027)
L_1 = Ray(A, B)
F_1: (-5, 0)
F_2: (5, 0)
r = 10.9 (slider from 0 to 20, step 0.1)
c = Circle(A, r)
S_{3} = Intersect(c, L_1, 1)
d = Circle(F_1, r)
abstandAS1 = Distance(A, S_{3})
TextAS1: Name[A] + (Name[S_{3}]) + " = " + abstandAS1
abstandAB = Distance(A, B)
TextAB: Name[A] + (Name[B]) + " = " + abstandAB
e = Circle(F_2, (A * S_{3}) - Distance[A, B])
r_2: Distance[A, S_{3}] - Distance[A, B]
f = Circle(F_2, r_2)
S_1 = Intersect(d, f, 1)
S_2 = Intersect(d, f, 2)
g = Segment(A, S_{3})
C = Point(f)
h = Segment(F_2, C)
D = Point(d)
i = Segment(D, F_1)