AB2008_1c 体积正方形截面

GeoGebra 命令及参数

1. Segment(A, B) → AB
2. Integral((g(x) - f(x))^(2), 0, 2) → Integ
3. If(togDF ≟ 1, "Show Instructions", "Show volume integral") → ToggleDirectionVolumeIntegral
4. If(togS ≟ 0, "Show Surface", "Hide Surface") → ShowSurface
5. Surface(u, (v * g(u)) + ((1 - v) * f(u)), g(u) - f(u), u, 0, 2, v, 0, 1) → Top
6. Surface(u, f(u), (v * (g(u) - f(u))), u, 0, 2, v, 0, 1) → Front
7. Surface(u, g(u), (v * (g(u) - f(u))), u, 0, 2, v, 0, 1) → Back
8. Locus(C, s) → loc1
9. Locus(D, s) → loc2
10. Angle(B, A, D) → α
11. Polygon(A, B, C, D) → Square, a, b, c, d
12. Sequence(Polygon[((k * h), f(((k + p) * h)), 0), ((k * h), g(((k + p) * h)), 0), ((k * h), g(((k + p) * h)), ht(((k + p) * h))), ((k * h), f(((k + p) * h)), ht(((k + p) * h)))], k, 0, m - 1) → SidesLeft
13. Sequence(Polygon[(((k + 1) * h), f(((k + p) * h)), 0), (((k + 1) * h), g(((k + p) * h)), 0), (((k + 1) * h), g(((k + p) * h)), ht(((k + p) * h))), (((k + 1) * h), f(((k + p) * h)), ht(((k + p) * h)))], k, 0, m - 1) → SicesRight
14. Sequence(Surface[((k + u) * h), (v * f(((k + p) * h))) + ((1 - v) * g(((k + p) * h))), ht(((k + p) * h)), u, 0, 1, v, 0, 1], k, 0, m - 1) → Tops
15. Sequence(Surface[((k + u) * h), f(((k + p) * h)), (v * ht(((k + p) * h))), u, 0, 1, v, 0, 1], k, 0, m - 1) → SidesFront
16. Sequence(Surface[((k + u) * h), g(((k + p) * h)), (v * ht(((k + p) * h))), u, 0, 1, v, 0, 1], k, 0, m - 1) → SidesBack
17. Sequence(Polygon[((k * h), f(((k + p) * h)), 0), ((k * h), g(((k + p) * h)), 0), (((k + 1) * h), g(((k + p) * h)), 0), (((k + 1) * h), f(((k + p) * h)), 0)], k, 0, m - 1) → Bottoms
18. Sequence(Area[Element[SidesLeft, k]], k, 1, m) → Areas
19. Surface(u, (v * f(u)) + ((1 - v) * g(u)), 0, u, 0, 2, v, 0, 1) → Base