Marble Displacement Simulation

GeoGebra Commands & Parameters

1. Point(xAxis) → V
2. Point(xAxis) → U
3. Max(0, (time - 14 - Mod[time - 14, 3]) / 3 + 1) → rocks
4. Max(0, Min[water_{st. height} * 3.14 * 1.75^(2) / 0.3, water_{st. height} * 3.14 * 1.75^(2) + rocks * 4 / 3 * 3.14 * radius_{marble}^(3)] - 3.14 * 1.75^(2) * 2) → cup_{vol}
5. Min(0.75, (8 * cup_{vol} / 6.28 + 1)^(1 / 3) / 2) → cup_{rad}
6. Min(6 * (cup_{rad} - 0.5) * (1 - plug), 1.5) → cup_{height}
7. Translate(W, Vector[cup_{height} / 1.5 * Vector[W, W_2]]) → W_3
8. Translate(V, Vector[cup_{height} / 1.5 * Vector[V, V_2]]) → V_3
9. Translate(U, Vector[cup_{height} / 1.5 * Vector[U, U_2]]) → U_3
10. Ellipse(U_3, V_3, W_3) → g_1
11. Point(g_1) → V_5
12. Min(water_{st. height} / 0.5, If[plug ≟ 0 ∧ (water_{st. height} * 3.14 * 1.75^(2) + rocks * 4 / 3 * 3.14 * radius_{marble}^(3) < 21.2), 2, 4]) → water_{max}
13. Min(water_{max}, water_{st. height} + rocks * 4 / 3 * radius_{marble}^(3) / 1.75^(2)) → water_{ht}
14. Ellipse(A_1, A_3, A_2) → c_1
15. Translate(c_1, Vector[(0, 0), (0, 4)]) → c_2
16. Point(c_2) → B_1
17. Point(c_2) → B_2
18. Point(c_1) → B_3
19. Point(c_1) → B_4
20. Segment(B_4, A_3) → a
21. Segment(B_1, B_4) → b
22. Segment(B_2, B_3) → c
23. Point(c_1) → B_{12}
24. Translate(c_1, Vector[(0, 0), (0, water_{ht})]) → c_3
25. Point(c_3) → B_5
26. Point(c_3) → B_6
27. Point(c_1) → B_7
28. Point(c_1) → B_8
29. Point(c_3) → B_9
30. Point(c_3) → B_{10}
31. Point(c_1) → B_{11}
32. Polygon(B_6, B_9, B_5, B_{10}, B_{11}, B_8, B_7, B_{12}) → poly1, i, l, h, m, n, k, j, r
33. Ellipse(U, V, W) → e
34. Ellipse(U_2, V_2, W_2) → f
35. Point(f) → Y_1
36. Point(f) → Y_2
37. Point(e) → Y_3
38. Point(e) → Y_5
39. Segment(Y_3, Y_2) → g
40. Segment(Y_5, Y_1) → p
41. Polygon(T_1, T_2, T_3, T_4, T_5, T_6, T_7) → poly2, d, q, s, t, a_1, b_1, d_1
42. Polygon(U_3, U, V_4, W, V, V_3, W_3, V_5) → poly3, e_1, f_1, h_1, i_1, j_1, k_1, l_1, m_1
43. Point(e) → T_{10}
44. Point(e) → T_{11}
45. Circle(A, 1.75) → p_1
46. Circle(C_2, radius_{marble}) → q_1
47. Circle(C_3, radius_{marble}) → q_2
48. Circle(C_4, radius_{marble}) → q_3
49. Circle(C_5, radius_{marble}) → q_4
50. Circle(C_6, radius_{marble}) → q_5
51. Sequence(Circle[(1.9 + Mod[fill_{pattern} * k, 2.7], Max[15 + 3 * k - time, 0.3 * (k - Mod[k, 5]) / 5]), radius_{marble}], k, 0, 100) → list1