a = 1 (slider from -5 to 5, step 1)
k = 3 (slider from -5 to 5, step 0.1)
c(x) = cos(x)
Q = Point(c)
B = Intersect(xAxis, yAxis)
b = Line(Q, B)
c_1 = Circle(Q, k)
P, P' = Intersect(c_1, b)
Ortslinie1 = Locus(P', Q)
Ortslinie2 = Locus(P, Q)
d = Segment(Q, P)
e = Segment(Q, P')
u = 0.9 (slider from -5 to 5, step 0.1)
f: (y * u) = (c(u) * x)
g: (x - u)^(2) + (y - c(u))^(2) = k^(2)
A, C = Intersect(g, f)
Ortslinie3 = Locus(A, u)
Ortslinie4 = Locus(C, u)