Cylinder Volume Demonstration by Daud Ijarles Lebang

GeoGebra Commands & Parameters

1. Cylinder(A, B, r) → a, c, d, b
2. Point(d) → C
3. Ray(B, C) → f
4. Line(C, zAxis) → g
5. Intersect(g, c) → D,
6. Segment(B, C) → i
7. Segment(A, D) → j_1
8. Segment(C, D) → k
9. Polygon(A, B, C, D) → q1, a_1, b_1, c_1, d_1
10. Line(A, B) → j
11. Sequence(Rotate[C, ((i * 360) * ° / n), B], i, 0, n) → L_1
12. Sequence(Rotate[D, ((i * 360) * ° / n), A], i, 0, n) → L_2
13. Sequence(Segment[Rotate[C, ((i * 360) * ° / n), B], Rotate[D, ((i * 360) * ° / n), A]], i, 0, n) → L_3
14. Sequence(Segment[Rotate[B, ((i * 360) * ° / n), B], Rotate[C, ((i * 360) * ° / n), B]], i, 0, n) → L_4
15. Sequence(Segment[Rotate[A, ((i * 360) * ° / n), B], Rotate[D, ((i * 360) * ° / n), B]], i, 0, n) → L_5
16. Sequence(Rotate[q1, ((i * 360) * ° / n), j], i, 0, n) → L_6
17. Point(d) → G
18. Segment(C, G) → l
19. OrthogonalLine(B, l, space) → m
20. Intersect(m, l) → H
21. Segment(B, H) → p
22. Segment(C, G) → dx
23. Segment(B, H) → dy
24. Sequence(CircleSector[((j * dx) + dx / 2, dy), ((j * dx) + 0, 0), ((j * dx) + dx, 0)], j, 0, n / 2 - 1) → L_7
25. Sequence(CircleSector[((j * dx), 0), ((j * dx) + dx / 2, dy), ((j * dx) + ((-dx)) / 2, dy)], j, 1, n / 2) → L_8
26. Sequence(CircleSector[((j * dx) + dx / 2, dy, h), ((j * dx) + 0, 0, h), ((j * dx) + dx, 0, h), xOyPlane], j, 0, n / 2 - 1) → L_9
27. Sequence(CircleSector[((j * dx), 0, h), ((j * dx) + dx / 2, dy, h), ((j * dx) + ((-dx)) / 2, dy, h), xOyPlane], j, 1, n / 2) → L_{10}
28. Sequence(Segment[((i * dx), 0, 0), ((i * dx), 0, h)], i, 0, n / 2) → L_{11}
29. Sequence(Segment[((i * dx) - dx / 2, dy, 0), ((i * dx) - dx / 2, dy, h)], i, 0, n / 2 + 1) → L_{12}
30. Sequence(Polygon[((((2 * i) - 1) * dx / 2), dy, 0), ((((2 * i) - 1) * dx / 2), dy, h), ((i * dx), 0, h), ((i * dx), 0, 0)], i, 1, n / 2) → L_{13}
31. Sequence(Polygon[((((2 * i) + 1) * dx / 2), dy, h), ((((2 * i) + 1) * dx / 2), dy, 0), ((i * dx), 0, 0), ((i * dx), 0, h)], i, 1, n / 2) → L_{14}