Date: 16 September 2013

A = (5, 1)
B = (2, 4)
a = Vector((0, 0), A)
b = Vector((0, 0), B)
c = OrthogonalLine(B, a)
d = OrthogonalLine(A, c)
C = Intersect(c, d)
e = Segment((0, 0), C)
"\vert \vec b_a \vert = " + (abs(b Einheitsvektor[a])): "\vert \vec b_a \vert = \vert" + b + " . " + (UnitVector[a]) + "\vert  =  " + (LaTeX[abs(b * UnitVector[a])]) + ""
Text1: "\vert \vec b_a \vert = \vert" + (LaTeX[b]) + " . " + (LaTeX[UnitVector[a]]) + "\vert  =  " + (LaTeX[abs(b * UnitVector[a])]) + ""