Pour créer le point I, 
taper dans la ligne de saisie :
I=B+1/3*Vecteur[B,C]

Procéder de même pour les points J et K.

Créer un curseur a dans cette fenêtre
avant de créer L.

A = Point(yAxis)
B = Intersect(xAxis, yAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
c, 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)