O = Intersect(xAxis, yAxis)
a = Sphere(O, 4)
cote = 3.3 (slider from 0 to 10, step 0.01)
B: (cote / 2, cote / 2, ((-cote)) / 2)
C: (cote / 2, ((-cote)) / 2, ((-cote)) / 2)
E = Point(Circle[B, Distance[C, B], Segment[C, B]])
b, F, G, H, I, J, faceBCFE, faceCFJG, faceBCGH, faceBEIH, faceEFJI, faceGHIJ, arêteCF, arêteBC, arêteBE, arêteEF, arêteCG, arêteFJ, arêteGJ, arêteGH, arêteBH, arêteHI, arêteEI, arêteIJ = Cube(C, B, E)
poly1, i, e, g = Polygon(E, G, I)
vol = Volume(a)
rapport: cote^(3) / vol
rapport2 = 0.5235987755982988
rapport3 = 0.3675525969478614