Gegenvektor
Author: Markus Hohenwarter

a = (4, -3)
A = Point(a)
B = Point(a)
b = Segment(A, (x(B), y(A)))
c = Segment(B, (x(B), y(A)))
T1: "a = " + a
T2: "|a| = " + Length[a]