A = Intersect(xAxis, yAxis)
B = (6, 0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, FlächeABCD, FlächeADHE, FlächeABFE, FlächeBCGF, FlächeCDHG, FlächeEFGH, KanteAD, KanteAB, KanteBC, KanteCD, KanteAE, KanteDH, KanteEH, KanteEF, KanteBF, KanteFG, KanteCG, KanteGH = Cube(A, B, C)
P6 = Midpoint(H, E)
P1 = Midpoint(E, F)
P2 = Midpoint(F, B)
P3 = Midpoint(B, C)
P4 = Midpoint(C, D)
P5 = Midpoint(D, H)
Vieleck1, p1, p2, p3, p4, p5, p6 = Polygon(P1, P2, P3, P4, P5, P6)
f = Segment(P2, G)
g = Segment(P1, G)
h = Segment(P6, G)
i = Segment(P3, G)
j = Segment(P4, G)
k = Segment(P5, G)
I = Midpoint(P1, P4)
l = Segment(I, G)