A = (-3.6555430608947503, -2.3484136892744587, 0)
B = (1.780656986663267, -2.710036522061799, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
I = Midpoint(arêteBC)
J = Midpoint(arêteCD)
b = Segment(E, C)
M = Point(b)
c = Segment(I, M)
α = Angle(I, M, J)
d = Segment(M, J)
β = Angle(I, M, C)