r'

r

r = 2.2 (slider from 0 to 9, step 0.01)
k = 5 (slider from -5 to 10, step 0.1)
f(x) = abs((k * sin(x)))
e = 2
rr: y = x - (2 * e)
au(x, y) = x + y ≥ (2 * e)
bu(x, y) = y ≤ x + (2 * e)
A_1 = PointIn(bu)
C: (0, (2 * e))
D: ((2 * e), 0)
cu(x, y) = y ≥ x - (2 * e)
ru: x + y = (2 * e)
ro: y = x + (2 * e)
B_1 = Point(rr)
Vieleck1, a_1, c_1, d_1, b_1 = Polygon(A_1, C, D, B_1)
B = Intersect(f, rr, (0, 0))
E': ((-e), 0)
Q: (r, f(r))
E: (e, 0)
c = Circle(E, x(Q))
d = Circle(E', y(Q))
P, P' = Intersect(d, c)
Ortslinie1 = Locus(P, r)
Ortslinie2 = Locus(P', r)
a = Segment(E', P)
b = Segment(P, E)