O' (x_0, y_0)

A (x_0+1, y_0+a)

P (x, y)

P (X, Y)

x - x_0

y - y_0

(x_0+1, y_0)

(0, b)

(x_1, 0)

O' = (0, 0)
i = OrthogonalLine(O', xAxis)
d = Line(O' + (1.0, 0.0), i)
A = Point(d)
r = Line(O', A)
y0: y(O')
x0: x(O')
a: y(A) - y0
O = (0, 0)
u = Vector(O', O)
P = Point(r)
P_1: P + u
N: (x(P), y0)
j: y = y0
g = Segment(P, (x0, y(P)))
h = Segment(P, (x(P), y0))
lista1: {Polygon[(-10.0, -10.0), (-10.0, 10.0), (20.0, 10.0), (20.0, -10.0)]}
b: -2.0 * a * x0
x00: round(100.0 * x0) / 100.0
A_1: (x0, y(Corner[4.0]) - 0.1)
y00: round(100.0 * y0) / 100.0
texto1: "y\;=\;" + (If[a ≟ 1.0, "", If[a ≟ -1.0, "-", "" + a]]) + (If[x00 ≟ 0.0, "\;x", "\;(x"]) + (If[x00 ≟ 0.0, "", If[x00 > 0.0, "-\;" + (abs(x00)), "+\;" + (abs(x00))]]) + (If[x00 ≟ 0.0, "", ")"]) + (If[y00 ≟ 0.0, "", If[y00 > 0.0, "+\;" + (abs(y00)), "-\;" + (abs(y00))]])
v = Vector(P, P_1)
c = Line(O, P_1)
B_1 = Intersect(d, j)
polígono1: {Polygon[O', B_1, A]}
α = Angle(B_1, O', A)
C: A + u
w = Vector(A, C)
B: (0.0, y0 - a * x0)
D: (x0 - y0 / a, 0.0)