两平行四边形间公共底边与直角三角形

GeoGebra 命令及参数

1. Polygon(B, A, C) → Triangle, c_1, b_1, a_1
2. Angle(B, A, C) → α
3. Locus(C, a) → loc1
4. Integral((4 + (2 * x) - (2 * x^(2)))^(2), -1, 2) → Integ
5. If(togDF ≟ 1, "Show Instructions", "Show volume integral") → ToggleDirectionVolumeIntegral
6. If(togS ≟ 1, "Hide surface", "Show surface") → ShowSurface
7. Surface(u, (v * f(u)) + ((1 - v) * g(u)), 0, u, -1, 2, v, 0, 1) → Base
8. Surface(u, g(u), ((2 * v) * (g(u) - f(u))), v, 0, 1, u, -1, 2) → SurfaceBack
9. Surface(u, (v * f(u)) + ((1 - v) * g(u)), (2 * ((v * f(u)) + ((1 - v) * g(u)) - f(u))), v, 0, 1, u, -1, 2) → SurfaceFront
10. Sequence(Polygon[(-1 + (k * h), f(-1 + ((k + p) * h))), (-1 + (k * h), g(-1 + ((k + p) * h))), (-1 + ((k + 1) * h), g(-1 + ((k + p) * h))), (-1 + ((k + 1) * h), f(-1 + ((k + p) * h)))], k, 0, m - 1) → SlicesBase
11. Sequence(Polygon[(-1 + (k * h), f(-1 + ((k + p) * h)), 0), (-1 + (k * h), g(-1 + ((k + p) * h)), 0), (-1 + (k * h), g(-1 + ((k + p) * h)), ht(-1 + ((k + p) * h)))], k, 0, m - 1) → SidesLeft
12. Sequence(Polygon[(-1 + ((k + 1) * h), f(-1 + ((k + p) * h)), 0), (-1 + ((k + 1) * h), g(-1 + ((k + p) * h)), 0), (-1 + ((k + 1) * h), g(-1 + ((k + p) * h)), ht(-1 + ((k + p) * h)))], k, 0, m - 1) → SidesRight
13. Sequence(Surface[-1 + ((k + u) * h), (v * g(-1 + ((k + p) * h))) + ((1 - v) * f(-1 + ((k + p) * h))), (v * ht(-1 + ((k + p) * h))), u, 0, 1, v, 0, 1], k, 0, m - 1) → SlicesTop
14. Sequence(Surface[-1 + ((k + u) * h), g(-1 + ((k + p) * h)), (v * ht(-1 + ((k + p) * h))), u, 0, 1, v, 0, 1], k, 0, m - 1) → SlicesBack
15. Sequence(Area[Element[SidesLeft, k]], k, 1, m) → Areas