DéplacementSphère

GraduerCylindre

RayonCylindre = 2 (slider from 0 to 5, step 0.1)
RayonSphère = 2 (slider from 0 to 5, step 0.1)
A = (-5.427016109230731, -3.355372722904693, 0.10747857041567666)
c = Circle(A, RayonCylindre, xOyPlane)
B = Point(c)
HauteurCylindre = 4 (slider from 0 to 10, step 0.1)
A': A + (0, 0, HauteurCylindre)
a, d, b = Cylinder(c, HauteurCylindre)
O = (-7.4012946923675855, 2.9987945673888206, 2.0166289999070894)
NiveauEau = 0.7 (slider from 0 to 1, step 0.1)
T: ((((4 / 3 * π) * RayonSphère) * RayonSphère) * RayonSphère)
C'': O + (0, 0, ((2 * RayonSphère) * NiveauEau) - RayonSphère)
A''': A + (0, 0, (2 / 3 * HauteurCylindre))
A''''': A + (0, 0, (1 / 3 * HauteurCylindre))
C': O - (0, 0, z(O))
l = Line(C', C'')
O': A + (0, 0, (1 / 2 * HauteurCylindre))
i = Sphere(O', RayonSphère)
o = false
m = true
O'': O - (0, 0, RayonSphère)
C_2: O'' + (0, 0, (RayonSphère * NiveauEau))
C_3: O'' + (0, 0, (RayonSphère * NiveauEau / 4))
C_4: O'' + (0, 0, ((2 * RayonSphère) * NiveauEau / 4))
C_5: O'' + (0, 0, ((3 * RayonSphère) * NiveauEau / 4))
C_6: O'' + (0, 0, ((6 * RayonSphère) * NiveauEau / 4))
C_7: O'' + (0, 0, ((7 * RayonSphère) * NiveauEau / 4))
C_8: O'' + (0, 0, ((5 * RayonSphère) * NiveauEau / 4))
liste2 = Sequence(x(Element[liste1, i]), i, 1, Dimension[liste1])
k, f, g = Cylinder(c, ((HauteurCylindre * (1 - NiveauEau)) * 2 / 3))
h' = Element(liste2, 2)
c_1 = Circle(A''''', RayonCylindre, l)
d_1 = Circle(A''', RayonCylindre, l)
h = Sphere(O, RayonSphère)
e = Sphere(O, RayonSphère - 0.05)
j = Surface(x(O) + ((RayonSphère * cos(u)) * cos(b)), y(O) + ((RayonSphère * cos(u)) * sin(b)), z(O) + (RayonSphère * sin(u)), u, -90*°, ((-90))° + acos((RayonSphère - h') / RayonSphère), b, -180*°, 180*°)