r

A = (2, 1)
B = (0, 0)
C = (-0.98, 1.24)
u = Vector(B, C)
a = OrthogonalLine(A, u)
u1: x(u)
u2: y(u)
u3: u1 * x(A) + u2 * y(A)
texto1: "r: " + (LaTeX[u1]) + "x+( " + (LaTeX[u2]) + "y)=" + (LaTeX[u3]) + ""
texto2: "\vec {\bf u}=(" + (LaTeX[u1]) + "," + (LaTeX[u2]) + ")"