Z = (-0.0638767097897522, 0.14077086716262596)
a = 1 (slider from 0 to 3, step 0.1)
A = (0.5702407512449438, 1.4804556439964922)
B = (1.637522956789255, -0.9175801065361284)
b = Line(A, B)
P = Point(b)
c = Ray(Z, P)
abstandZP = Distance(Z, P)
TextZP: "\overline{" + (Name[Z]) + (Name[P]) + "} \, = \, " + abstandZP
d = Circle(Z, a / Distance[Z, P])
P' = Intersect(d, c)
Ortslinie1 = Locus(P', P)
e = Circle(Z, a)