Vieleck1, a, b, c, d = Polygon((0.0, 0.0), (10.0, 0.0), (10.0, 10.0), (0.0, 10.0))
Liste1 = Sequence(Sequence[(1.0 + 2.0 * i, 1.0 + 2.0 * j), i, 0.0, 4.0], j, 0.0, 4.0)
P = (6.48, 6.38)
Liste2 = Sequence(Sequence[Segment[P, Element[Element[Liste1, i], j]], i, 1.0, 5.0], j, 1.0, 5.0)
Liste3 = Sequence(Sum[Element[Liste2, i]], i, 1.0, 5.0)
e = Sum(Liste3)
Text1: "Summe: " + e + " E"