Ver ec. explícita

A = (3, 1)
m: y(A) / x(A)
P = (2, 4)
O = Intersect(xAxis, yAxis)
d = Vector(O, A)
r = Line(P, d)
B = Intersect(r, yAxis)
f(x) = m x + y(B)
T4: "y = " + f
G = (10, 6)
T2: "Sustituyendo en la ec. de la recta: " + (y(d) x(G)) + " " + (-x(d) y(G)) + " = " + (y(d) x(G) - x(d) y(G))
T3: "Sustituyendo en la ec. de la recta: " + (y(d) x(G)) + " + " + (-x(d) y(G)) + " = " + (y(d) x(G) - x(d) y(G))
T5: "Sustituyendo en la ec. de la recta: " + (y(d) x(G)) + " + 0 = " + (y(d) x(G) - x(d) y(G))
b = false