Volume of Solid of Revolution Around X-axis

GeoGebra Commands & Parameters

1. Point(xAxis) → A
2. Point(xAxis) → C
3. Textfield(f) → inputBox1
4. Textfield(A) → inputBox2
5. Textfield(C) → inputBox3
6. Textfield(C) → inputBox4
7. Textfield(C) → inputBox5
8. Segment(A, (x(A), f(x(A)))) → c
9. Segment(C, (x(C), f(x(C)))) → a
10. CircumcircleArc((x(A), f(x(A)), 0), (x(A), (f(x(A)) * cos(rotasi / 2)), (f(x(A)) * sin(rotasi / 2))), (x(A), (f(x(A)) * cos(rotasi)), (f(x(A)) * sin(rotasi)))) → d
11. CircumcircleArc((x(C), f(x(C)), 0), (x(C), (f(x(C)) * cos(rotasi / 2)), (f(x(C)) * sin(rotasi / 2))), (x(C), (f(x(C)) * cos(rotasi)), (f(x(C)) * sin(rotasi)))) → e
12. Segment(C, (x(C), (f(x(C)) * cos(rotasi)), (f(x(C)) * sin(rotasi)))) → b
13. Segment(A, (x(A), (f(x(A)) * cos(rotasi)), (f(x(A)) * sin(rotasi)))) → i
14. Rotate(g, rotasi, xAxis) → g_1
15. Textfield(rotasi) → inputBox6
16. Sequence(Rotate[g, b, xAxis], b, 0, rotasi, rotasi / garis) → list2
17. Sequence(CircumcircleArc[(b, f(b), 0), (b, (f(b) * cos(rotasi / 2)), (f(b) * sin(rotasi / 2))), (b, (f(b) * cos(rotasi)), (f(b) * sin(rotasi)))], b, x(A), x(C), (x(C) - x(A)) / partisi) → list1
18. Cylinder((x(B), 0, 0), (x(B) + h, 0, 0), f(x(B) + h)) → v, r, c_1, o
19. Polygon((x(B), 0), (x(B) + (x(C) - x(A)) / partisi, 0), (x(B) + (x(C) - x(A)) / partisi, f(x(B) + h)), (x(B), f(x(B) + h))) → poly2, q, s, t, a_1
20. Integral(f, x(A), x(C)) → l
21. Sequence(Cylinder[(x(A) + (i * h), 0, 0), (x(A) + ((i + 1) * h), 0, 0), f(x(A + h) + (h * i))], i, 0, partisi - 1) → list3
22. Surface(a, (f(a) * cos(b)), (f(a) * sin(b)), a, x(A), x(C), b, 0, rotasi) → k
23. Intersect(t, a_1) → D
24. Intersect(s, t) → E
25. Midpoint(D, E) → F