Volume = 1000 cm³

r = 5 (slider from 1 to 20, step 0.1)
A = (0, 0, 0)
B: (0, 0, 1000 / (((π * r) * r)))
a, c, d, b = Cylinder(A, B, r)
texte1: "Rayon = " + r + " cm"
texte2: "Hauteur = " + (1000 / (((π * r) * r))) + " cm"
C = (39.678013937282394, -131.6409625435538)
e = Circle(C, r)
D: (x(C), y(C) - r)
f = Segment(C, D)
g = OrthogonalLine(D, f)
h = Circle(D, (π * r))
E = Intersect(h, g, 1)
F = Intersect(h, g, 2)
i = OrthogonalLine(E, g)
j = OrthogonalLine(F, g)
k = Circle(E, 1000 / (((π * r) * r)))
G, H = Intersect(k, i)
l = OrthogonalLine(G, i)
I = Intersect(j, l)
poly1, e_1, g_1, i_1, f_1 = Polygon(E, G, I, F)