圆盘-垫圈法求体积演示

GeoGebra 命令及参数

1. Intersect(eqG_i, l_c) → P_{gc}
2. Intersect(eqF_i, l_c) → P_{fc}, B
3. Textfield(a) → inputBox_a
4. Textfield(b) → inputBox_b
5. Min(abs(rad_f), abs(rad_g)) → rad_i
6. Max(abs(rad_f), abs(rad_g)) → rad_o
7. Segment((0, x_{rotation}), (0, If[abs(rad_f) ≥ abs(rad_g), y(P_{fc}), y(P_{gc})])) → r_o
8. Segment((0, x_{rotation}), (0, If[abs(rad_f) < abs(rad_g), y(P_{fc}), y(P_{gc})])) → r_i
9. Textfield(n) → InputBox1
10. Circle(P, rad_i, x = 0) → cs3_i
11. Circle(P, rad_o, x = 0) → cs3_o
12. Plane((x_{rotation}, y_i, rad_o), y + (0 * z) = y_i) → pln3d
13. Circle(P, rad_i, x = 0) → cs3_{i2}
14. SelectedIndex(lstTraceOpt) → lstTOIndex
15. Textfield(eqF_i) → InputBox_f
16. Textfield(eqG_i) → InputBox_g
17. Intersect(eqF_i, l_a) → P_{fa},
18. Intersect(eqF_i, l_b) → P_{fb}, A
19. Intersect(eqG_i, l_a) → P_{ga}
20. Intersect(eqG_i, l_b) → P_{gb}
21. If(rad_o ≠ rad_f, If[abs(rad_f) ≟ rad_i, eqF_i, eqG_i], eqG_i) → rwash_{3in}
22. If(rad_o ≠ rad_f, If[abs(rad_f) ≟ rad_o, eqF_i, eqG_i], eqF_i) → rwash_{3out}
23. Intersect(rwash_{3in}, l_c, (1, 1)) → P_{ic}
24. Intersect(rwash_{3out}, l_c, (1, 1)) → P_{oc}
25. Segment(P_{oc}, P_{ic}) → r_{fg}
26. Sequence(Segment[Rotate[P_{fc}, i°, l_r], Rotate[P_{gc}, i°, l_r]], i, 0, 360, 1) → wash_3
27. Sequence(Rotate[P_{ic}, i°, l_r], i, 0, 360, 1) → wash_{3i}
28. Sequence(Rotate[P_{oc}, i°, l_r], i, 0, 360, 1) → wash_{3o}