C (x_0, y_0)

P (x, y)

P (X, Y)

x - x_0

y - y_0

C = (0, 0)
O = (0, 0)
u = Vector(C, O)
i = OrthogonalLine(C, xAxis)
y0: y(C)
x0: x(C)
f(x) = abs(x - x(C)) + y(C)
V = Point(f)
k: x(V - C)
e: (x - x0) * (y - y0) = sgn(k) * k^(2.0)
P = Point(e)
P_1: P + u
N: (x(P), y0)
j: y = y0
g = Segment(P, (x0, y(P)))
h = Segment(P, (x(P), y0))
v = Vector(P, P_1)
lista1: {Polygon[(-10.0, -10.0), (-10.0, 10.0), (20.0, 10.0), (20.0, -10.0)]}
b: -2.0 * k * x0
A: (x0, y(Corner[4.0]) - 0.1)
V_1: V + u
hiperbola: x * y = sgn(k) * k^(2.0)
texto1: "y\;=\; \frac{" + (sgn(k) * k^(2.0)) + " }{" + (If[x0 ≟ 0.0, "x", "(x\;" + (If[x0 < 0.0, "+\;", "-\;"]) + (abs(x0)) + ")"]) + " } \;" + (If[y0 ≟ 0.0, "", If[y0 < 0.0, "-\;", "+\;"] + (abs(y0))])
w = Vector(V, V_1)