a = 1 (slider from 0.01 to 20, step 0.01)
f_a(x) = 4 x / (x^(2) + a)
H_a: (sqrt(a), 2 / sqrt(a))
T_a: (-sqrt(a), -2 / sqrt(a))
b = Segment(T_a, H_a)
abstandTaHa = Distance(T_a, H_a)
TextTaHa: "\overline{" + (Name[T_a]) + (Name[H_a]) + "} \, = \, " + abstandTaHa
C = Rotate(T_a, 90°, H_a)
c = Segment(H_a, C)
C' = Rotate(H_a, 90°, C)
α = Angle(C, H_a, C')
d = Segment(C', C)
e = Segment(C', T_a)
poly1, h_a, t_a, c', c_1 = Polygon(H_a, T_a, C', C)
Textpoly1: "Fläche " + " = " + poly1
text1: "H_a" + H_a + ""
text2: "T_a" + T_a + ""
A = (0, 0)
B: (sqrt(3 a), sqrt(3 a) / a)
D: (-sqrt(3 a), -sqrt(3 a) / a)
W_0: "W_0" + A + ""
text3: "W_1" + B + ""
text4: "W_2" + D + ""
g(x) = 2 / x