r

2e

2e

x+y > 2e

-2e > x-y

x-y < 2e

y=k\,x-m+n

Sinus-Teddy

n = 2
m = 1
k = 15 (slider from -10 to 20, step 0.1)
r = 7.06 (slider from 0 to 30, step 0.01)
O = (0, 0)
e = 3
E': ((-e), 0)
E: (e, 0)
g_a: x + y = (2 * e)
g_c: (-2 * e) = x - y
g_b: x - y = (2 * e)
o(x, y) = x + y > 6
p(x, y) = (-x) + y < 6
s_1(x, y) = x - y < 6
D_3 = Point(g_c)
D_4 = Point(g_b)
D_1 = Intersect(g_c, g_a)
D_2 = Intersect(g_a, g_b)
Vieleck1, a_1, d_1, g_1, c = Polygon(D_3, D_1, D_2, D_4)
A = Point(a)
Q_1: (r, 0)
B = Point(a)
f(x) = (k * sin((m * (x - 1)))) + (n * x)
r_Q = Segment(O, Q_1)
g_Q = OrthogonalLine(Q_1, xAxis)
Q = Intersect(f, g_Q, (7.06, 10.799944341824606))
D = (7.050000000000015, 10.110656881813412)
Kr_E = Circle(E, x(Q_1))
Kr'_E = Circle(E', y(Q))
s = Circle(E', k)
P_c, P_c' = Intersect(Kr'_E, Kr_E)
P_d, P_d' = Intersect(s, Kr_E)
i = Segment(D, Q_1)
r' = Segment(Q, Q_1)
F = Intersect(g_Q, r')
H = Intersect(g_Q, r')
Text6: "k=" + k + ""
Ortslinie1 = Locus(P_c, r)
Ortslinie2 = Locus(P_c', r)
I = (-25.91452516019202, 11.686888719127335)
J = (-4.036362342202632, 11.309679015368895)