A: (0, 0, 0)
B: (4, 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)
u = Vector(G, H)
v = Vector(G, C)
w = Vector(G, F)
α = Angle(C, G, H)
β = Angle(H, G, F)
γ = Angle(F, G, C)