Discovering the Formula for the Volume of a Sphere

GeoGebra Commands & Parameters

1. Sequence((ii, f_1(ii)), ii, 0, 4, 0.1) → l3
2. Zip(abs(y(A) - y(PP)), PP, l3) → l2
3. Element(l3, IndexOf[Min[l2], l2]) → E
4. Corner(5) → AppSize
5. Segment((-2, 0), (-2, 4)) → f
6. Segment((2, 0), (2, 4)) → g
7. Circle(A, 2) → c
8. Segment((0, -1), (2, -1)) → R
9. Translate(hGuideline, Vector[(Vector[Corner[4], Corner[1]] / 500 * 16)]) → hGuideline'
10. Segment((3, 0), (3, 4)) → H
11. Text("\frac{1}{3}", B, true, true, 1, 0) → text4
12. Text("\frac{2}{3}", C, true, true, 1, 0) → text5
13. Text("1", D, true, true, 1, 0) → text6
14. Zip(Segment[PP - (0.1, 0), PP + (0.1, 0)], PP, {B, C, D}) → l1
15. Mirror(f_1, t) → o
16. Intersect(c, Line[(0, heightWater), (1, heightWater)]) → F, G
17. If(Defined[G], abs(x) ≥ x(G) ∧ r(x) ≤ y ≤ heightWater, r(x) ≤ y ≤ heightWater) → v
18. expandCircle(A, 92 + (7 * pulsing), Corner[1], Corner[3], Corner[5]) → pulsingObject
19. onboardingTextOffset(Corner[onboardingText_{1}, 1], Corner[onboardingText_{1}, 3], onboardingCase_{1}, Corner[1], Corner[3], Corner[5]) → OnboardingTextOffset_{1}