A = Intersect(xAxis, yAxis)
B = Point(yAxis)
a = OrthogonalLine(B, yAxis)
C = Point(a)
D: (-x(C), 2.0)
b = Segment(D, A)
c = Segment(C, A)
d = Segment(D, C)
E = Point(yAxis)
F = Point(yAxis)
e = OrthogonalLine(F, b)
f = OrthogonalLine(F, c)
g = Line(E, f)
h = Line(E, e)
G = Intersect(g, e)
H = Intersect(f, h)
u = Vector(F, G)
v = Vector(F, H)
w = Vector(F, E)
i = Segment(G, E)
j = Segment(F, H)
k = Segment(H, E)
Text1: "Kraft = " + (Length[w])
Text2: "Seitenkraft = " + (Length[v])
M = (0, 0)
Vieleck1, m, d_1, c_1 = Polygon(D, C, M)