r

A = (3.34, 1.4)
B = (1.66, 1.42)
C = (1.04, 2.72)
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]) + ")"