Höhe h_s

x_4 = 2.5 (slider from 2.5 to 7.5, step 0.1)
x_3 = 2.5 (slider from -2.5 to 2.5, step 0.1)
x_2 = 2.5 (slider from 2.5 to 7.5, step 0.1)
B = Point(xAxis)
A = Intersect(xAxis, yAxis)
Vieleck1, a, b, c, d, C, D = Polygon(A, B, 4.0)
x_1 = 2.5 (slider from -2.5 to 2.5, step 0.1)
e = Segment(A, C)
f = Segment(D, B)
F = Intersect(f, e)
S: (x_1, 2.5)
S_1: (2.5, x_2)
Vieleck3, l, m, n = Polygon(D, S_1, C)
S_2: (2.5, x_3)
Vieleck4, p, q, r = Polygon(S_2, B, A)
S_3: (x_4, 2.5)
Vieleck5, s, t, a_1 = Polygon(S_3, C, B)
Vieleck2, g, h, i = Polygon(A, S, D)
j = OrthogonalLine(S, i)
G = Intersect(j, i)
k = Segment(G, S)
α = Angle(i, k)