Punkte:

x

y

z

$+$

$x$

$-$

Kanten:

K1

K2

-

$+$

$x$

$-$

Punkte: {(2, 0, 3), (2, 0, 2), (2, -1, 2), (2, -2, 2), (2, -2, 3)}
p1 = 0
p2 = 0
p3 = 0
Eingabefeld1 = Textfield(p1)
Eingabefeld2 = Textfield(p2)
Eingabefeld3 = Textfield(p3)
i = 6
k1 = 0
k2 = 0
Eingabefeld4 = Textfield(k1)
Eingabefeld5 = Textfield(k2)
Kanten: {(1, 2), (2, 4), (4, 5)}
TextKanten = Sum(Sequence["\\n" + (Text[x(Element[Kanten, i])]) + "-" + (Text[y(Element[Kanten, i])]), i, 1, Length[Kanten]])
Verbindungen = Sequence(Segment[Element[Punkte, x(Element[Kanten, i])], Element[Punkte, y(Element[Kanten, i])]], i, 1, Length[Kanten])
TextPunkte = Sum(Sequence["\\n" + (i) + ": " + "(" + (Text[x(Element[Punkte, i])]) + "|" + (Text[y(Element[Punkte, i])]) + "|" + (Text[z(Element[Punkte, i])]) + ")", i, 1, Length[Punkte]])
P1 = Element(Punkte, 1)
P2 = Element(Punkte, 2)
P3 = Element(Punkte, 3)
P4 = Element(Punkte, 4)
P5 = Element(Punkte, 5)