r = 2 (slider from -5 to 5, step 0.01)
a = 2 (slider from -5 to 5, step 0.01)
c = 2 (slider from -5 to 15, step 0.01)
C: (c, 0)
B: ((-a), 0)
M = (0, 0)
c_1 = Circle(M, r)
ms = 0 (slider from -5 to 5, step 0.1)
d: x = (ms * y) + c
Q_1 = Point(c_1)
e = Line(B, Q_1)
E = Intersect(e, d)
u = Vector(Q_1, E)
P_1 = Translate(B, u)
v = Vector(B, P_1)
Ortslinie1 = Locus(P_1, Q_1)
Ortslinie2 = Locus(P_1, Q_1)
b = OrthogonalLine(M, xAxis)
Q' = Mirror(Q_1, b)
w = Vector(Q_1, Q')
f = Vector(Q', P_1)
F: (((-2) * a), 0)
A: (a, 0)
Q = Point(yAxis)
G = Midpoint(F, Q)
g = Circle(G, Q)
h = Circle(Q, (2 * a))
D, H = Intersect(h, g)
P = Midpoint(Q, D)
i = Segment(Q, D)
Ortslinie3 = Locus(P, Q)
j = Segment(F, D)
α = Angle(Q, D, F)
Ortslinie4 = Locus(P, Q)