a = (0, 0)
B = (6, 0)
A = (0, 0)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
Cub, 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 = Point(arêteAB)
AI = Distance(A, I)
K: (0, AI)
J: (AI, AI)
poly1, a_1, i, j, k = Polygon(A, I, J, K)
Pris, L, M, N, O, faceAIML, faceIJNM, faceJKON, faceAKOL, faceLMNO, arêteAL, arêteIM, arêteJN, arêteKO, arêteLM, arêteMN, arêteNO, arêteLO = Prism(poly1, 6 - AI)
texte1: "Volume = " + Pris + ""