r

2e

2e

r'

x+y > 2e

y-x < 2e

x-y < 2e

r = 4 (slider from 0 to 30, step 0.1)
Q: (r, 0)
g_Q = OrthogonalLine(Q, xAxis)
k = 25 (slider from 0 to 40, step 0.1)
m = -2
n = 5
g: (m * x) + (n * y) = k
O = (0, 0)
e = 3
E': ((-e), 0)
E: (e, 0)
d_r: x + y = (2 * e)
m_r: (-2 * e) = x - y
n_r: x - y = (2 * e)
dr(x, y) = x + y > 6
mr(x, y) = (-x) + y < 6
nr(x, y) = x - y < 6
D_3 = Point(m_r)
D_4 = Point(n_r)
D_1 = Intersect(m_r, d_r)
D_2 = Intersect(d_r, n_r)
Vieleck1, a_1, d_1, f_1, c = Polygon(D_3, D_1, D_2, D_4)
C = Intersect(g, g_Q)
b = Segment(O, Q)
Kr_E = Circle(E, x(C))
Kr'_E = Circle(E', y(C))
s = Circle(E', k)
P_c, P_c' = Intersect(Kr'_E, Kr_E)
j = Segment(C, Q)
Text6: "k=" + k + ""
desc1 = Locus(P_c, r)
desc2 = Locus(P_c', r)