P(x; y)

L bewegen

p = 5 (slider from 0 to 10, step 1)
L = Point(xAxis)
s = OrthogonalLine(L, xAxis)
A = Point(yAxis)
c = Circle(A, p)
F = Intersect(c, yAxis, 2)
g = Segment(F, L)
M = Midpoint(g)
m = LineBisector(g)
P = Intersect(m, s)
B = (-3.4189432111752383, 4.972367417848864)
C = (-2.0706902825022944, 2.924060083903423)
E = (-2.018834400630258, 1.7313748008465843)
G = Point(xAxis)
H = Point(xAxis)
I = Point(xAxis)
f = Line(H, I)
p' = Segment(A, F)