f(x) = -x^(2.0) + 4.0
A = Point(xAxis)
B = Point(xAxis)
a = OrthogonalLine(B, xAxis)
b = OrthogonalLine(A, xAxis)
C = Intersect(f, a)
D = Intersect(f, b, 1.0)
Vieleck1, c, d, a_1, b_1 = Polygon(C, D, A, B)
E = Point(f)
F: (-x(E), y(E))
G: (x(E), 0.0)
H: (-x(E), 0.0)
Vieleck2, e, f_1, h, g = Polygon(E, F, H, G)
TextVieleck2: "Fläche " + (Name[E]) + (Name[F]) + (Name[H]) + (Name[G]) + " = " + Vieleck2