Construction par étapes de la figure :
a=1 : [HB] et M sur [HB]
a=2 : [AM] et [MC]
a=3 : Angle AMC
Déplacer le point M
a=4 : plan (ABH)

Avec un clic droit sur le plan (ABH),
sélectionner “ Créer une vue en 2D”
puis déplacer le point M.

A = Point(yAxis)
B = Intersect(xAxis, yAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a_1, 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)
b = Segment(H, B)
M = Point(b)
c = Segment(A, M)
d = Segment(M, C)
α = Angle(A, M, C)
e = Plane(A, B, H)
a = 0 (slider from 0 to 4, step 1)