积极 AI Logo 积极 AI

旋转体体积计算 by ngboonleong

旋转体体积计算 by ngboonleong
几何画板及绘图内容加载中，请稍等……
2019-02-15 11:17
立体几何微积分积分几何作图滑块动画
本范例演示了如何通过积分计算旋转体的体积。涉及的核心数学概念包括定积分、积分计算和体积几何。作图要点使用了GeoGebra的Textfield、Integral、Sequence、Sum、Surface、CircumcircleSector等命令和对象，通过滑块动画和图形展示，适合高中和大学低年级学生学习微积分和立体几何。

GeoGebra 命令及参数

  1. Textfield(f) → inputBox1
  2. Textfield(upperlimit) → inputBox2
  3. Textfield(lowerlimit) → inputBox3
  4. Integral(f, ll, ul) → AreabyDefiniteIntegral
  5. Sequence(Polygon[(dx, 0), (dx, f(dx)), (dx + (ul - ll) / number, f(dx)), (dx + (ul - ll) / number, 0)], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → LeftRectanglesEstimate
  6. Sum(LeftRectanglesEstimate) → AreaLeftRectangleEstimate
  7. Sequence(Polygon[(dx, 0), (dx, f(dx + (ul - ll) / number)), (dx + (ul - ll) / number, f(dx + (ul - ll) / number)), (dx + (ul - ll) / number, 0)], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → RightRectanglesEstimate
  8. Sum(RightRectanglesEstimate) → AreaRightRectangleEstimate
  9. Sequence(x = dx, dx, ll, ul, (ul - ll) / number) → VerticalLinesWithinLimits
  10. Sequence((dx, f(dx)), dx, ll, ul, (ul - ll) / number) → PointsOnCurvefWithinLimits
  11. Surface(fprime, θ, xAxis) → CurvedBoundary
  12. CircumcircleSector((ll, f(ll), 0), (ll, (f(ll) * cos(θ / 3)), (f(ll) * sin(θ / 3))), (ll, (f(ll) * cos(θ)), (f(ll) * sin(θ)))) → LLDisc
  13. CircumcircleSector((ul, f(ul), 0), (ul, (f(ul) * cos(θ / 3)), (f(ul) * sin(θ / 3))), (ul, (f(ul) * cos(θ)), (f(ul) * sin(θ)))) → ULDisc
  14. Sequence(Polygon[(dx, 0, 0), (dx, (f(dx) * cos(θ)), (f(dx) * sin(θ))), (dx + (ul - ll) / number, (f(dx) * cos(θ)), (f(dx) * sin(θ))), (dx + (ul - ll) / number, 0, 0)], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → LeftRectangleRotate
  15. Sequence(CircumcircleSector[(dx, f(dx), 0), (dx, (f(dx) * cos(θ / 3)), (f(dx) * sin(θ / 3))), (dx, (f(dx) * cos(θ)), (f(dx) * sin(θ)))], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → LeftCylinderLeftSector
  16. Sequence(CircumcircleSector[(dx + (ul - ll) / number, f(dx), 0), (dx + (ul - ll) / number, (f(dx) * cos(θ / 3)), (f(dx) * sin(θ / 3))), (dx + (ul - ll) / number, (f(dx) * cos(θ)), (f(dx) * sin(θ)))], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → LeftCylinderRightSector
  17. Sequence(Surface[u, (f(dx) * cos(v)), (f(dx) * sin(v)), u, dx, dx + (ul - ll) / number, v, 0, θ], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → LeftCylinderCurvedSurface
  18. Sequence(Cylinder[(dx, 0, 0), (dx + (ul - ll) / number, 0, 0), f(dx + (ul - ll) / number)], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → RightCylinderEstimate
  19. Sequence(CircumcircleSector[(dx, f(dx + (ul - ll) / number), 0), (dx, (f(dx + (ul - ll) / number) * cos(θ / 3)), (f(dx + (ul - ll) / number) * sin(θ / 3))), (dx, (f(dx + (ul - ll) / number) * cos(θ)), (f(dx + (ul - ll) / number) * sin(θ)))], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → RightCylinderLeftSector
  20. Sequence(CircumcircleSector[(dx + (ul - ll) / number, f(dx + (ul - ll) / number), 0), (dx + (ul - ll) / number, (f(dx + (ul - ll) / number) * cos(θ / 3)), (f(dx + (ul - ll) / number) * sin(θ / 3))), (dx + (ul - ll) / number, (f(dx + (ul - ll) / number) * cos(θ)), (f(dx + (ul - ll) / number) * sin(θ)))], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → RightCylinderRightSector
  21. Sequence(Polygon[(dx, 0, 0), (dx, (f(dx + (ul - ll) / number) * cos(θ)), (f(dx + (ul - ll) / number) * sin(θ))), (dx + (ul - ll) / number, (f(dx + (ul - ll) / number) * cos(θ)), (f(dx + (ul - ll) / number) * sin(θ))), (dx + (ul - ll) / number, 0, 0)], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → RightRectangleRotate
  22. Sum(RightCylinderEstimate) → VolumeRightCylinderEstimate
  23. Sequence(Cylinder[(dx, 0, 0), (dx + (ul - ll) / number, 0, 0), f(dx)], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → LeftCylinderEstimate
  24. Sum(LeftCylinderEstimate) → VolumeLeftCylinderEstimate
  25. Integral((f(x))^(2)) → h_1
  26. Sequence(Surface[u, (f(dx + (ul - ll) / number) * cos(v)), (f(dx + (ul - ll) / number) * sin(v)), u, dx, dx + (ul - ll) / number, v, 0, θ], dx, ll, ul - (ul - ll) / number, (ul - ll) / number) → RightCylinderCurvedSurface
  27. Surface(u, (v * f(u)), 0, u, lowerlimit, upperlimit, v, 0, 1) → Areain3D