Ortskurven

Ha 2012

F2 = Point(xAxis)
F1: (-x(F2), 0)
A = (5, 4)
B = (8, 4)
d = Segment(A, B)
r1 = 7.1 (slider from 0 to 10, step 0.1)
r2: r1 - d
c = Circle(F1, r1)
d_1 = Circle(F2, r2)
P, D = Intersect(c, d_1)
Ortslinie1 = Locus(P, r1)
Ortslinie2 = Locus(D, r1)
P' = Mirror(P, yAxis)
D' = Mirror(D, yAxis)
Ortslinie3 = Locus(P', r1)
Ortslinie5 = Locus(D', r1)
a = false
Text1: "r2 = " + r2