Punkte:

x

y

z

$+$

$x$

$-$

Kanten:

K1

K2

-

$+$

$x$

$-$

Punkte: {}
p1 = 0
p2 = 0
p3 = 0
Eingabefeld1 = Textfield(p1)
Eingabefeld2 = Textfield(p2)
Eingabefeld3 = Textfield(p3)
i = 0
k1 = 0
k2 = 0
Eingabefeld4 = Textfield(k1)
Eingabefeld5 = Textfield(k2)
Kanten: {}
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]])