积极 AI Logo 积极 AI

定积分简介与近似计算

定积分简介与近似计算
几何画板及绘图内容加载中，请稍等……
2020-09-03 03:49
函数数列微积分积分函数图像
该范例演示在闭区间上对函数图像作定积分几何意义，并通过矩形求和动态展示定积分的近似计算过程。核心数学概念涵盖定积分、黎曼和、函数图像、区间划分与极限逼近。作图要点：使用了 GeoGebra 命令 Textfield、Sequence、Integral、Sum 与 Segment，并通过 InputBox 控制函数表达式 f、积分上下限 a、b 以及矩形数量 n，生成 Dx、Lr、Lh、L 等左端点、右端点与中点矩形近似对象，并配合文本标签展示近似误差。适合高中微积分入门或大学数学分析初学者，用于课堂演示定积分定义与数值逼近。

GeoGebra 命令及参数

  1. Textfield(f) → InputBox1
  2. Textfield(a) → InputBox2
  3. Textfield(b) → InputBox3
  4. Textfield(n) → InputBox4
  5. Sequence(Polygon[(a + (k * Dx), 0), (a + (k * Dx), f(a + (k * Dx))), (a + ((k + 1) * Dx), f(a + (k * Dx))), (a + ((k + 1) * Dx), 0)], k, 0, n - 1) → Lr
  6. Sequence(f(a + (k * Dx)), k, 0, n - 1) → Lh, {9, 1.5999999999999996, 2.2, 6, 8.2}
  7. Sequence(f(a + (k * Dx)), k, 1, n) → Rh, {1.5999999999999996, 2.2, 6, 8.2, 4}
  8. Sequence(Polygon[(a + (j * Dx), 0), (a + (j * Dx), f(a + (j * Dx))), (a + ((j - 1) * Dx), f(a + (j * Dx))), (a + ((j - 1) * Dx), 0)], j, 1, n) → Rr
  9. Sequence(Polygon[(a + ((k - 1) * Dx), 0), (a + ((k - 1) * Dx), f(a + ((k - 0.5) * Dx))), (a + (k * Dx), f(a + ((k - 0.5) * Dx))), (a + (k * Dx), 0)], k, 1, n) → Mr
  10. Sequence(f(a + ((k - 0.5) * Dx)), k, 1, n) → Mh, {4, 1.2000000000000002, 4, 7.6, 7.2}
  11. Integral(f, a, b) → i
  12. Sequence(Polygon[(a + ((k - 1) * Dx), 0), (a + ((k - 1) * Dx), f(a + ((k - 1) * Dx))), (a + (k * Dx), f(a + (k * Dx))), (a + (k * Dx), 0)], k, 1, n) → Tt
  13. Sequence(Polygon[(a + ((k - 1) * Dx), 0), (a + ((k - 1) * Dx), (f(a + ((k - 1) * Dx)) + f(a + (k * Dx))) / 2), (a + (k * Dx), (f(a + ((k - 1) * Dx)) + f(a + (k * Dx))) / 2), (a + (k * Dx), 0)], k, 1, n) → Tr
  14. Sequence(Polygon[(a + ((k - 1) * Dx), 0), (a + ((k - 1) * Dx), (f'(a + ((k - 1 / 2) * Dx)) * ((-Dx)) / 2) + f(a + ((k - 1 / 2) * Dx))), (a + (k * Dx), (f'(a + ((k - 1 / 2) * Dx)) * Dx / 2) + f(a + ((k - 1 / 2) * Dx))), (a + (k * Dx), 0)], k, 1, n) → Mt
  15. Sequence(Polygon[(a + ((k - 1) * Dx), 0), (a + ((k - 1) * Dx), (1 / Dx * Integral[f, a + ((k - 1) * Dx), a + (k * Dx)])), (a + (k * Dx), (1 / Dx * Integral[f, a + ((k - 1) * Dx), a + (k * Dx)])), (a + (k * Dx), 0)], k, 1, n) → Av
  16. Sum(Av) → j
  17. Sequence(If[a + ((k - 1) * Dx) < x < a + (k * Dx), Polynomial[{(a + ((k - 1) * Dx), f(a + ((k - 1) * Dx))), (a + ((k - 0.5) * Dx), f(a + ((k - 0.5) * Dx))), (a + (k * Dx), f(a + (k * Dx)))}]], k, 1, n) → St
  18. Sequence(Segment[(a + (k * Dx), 0), (a + (k * Dx), f(a + (k * Dx)))], k, 0, n) → Ss
  19. Segment((a, 0), (b, 0)) → m

AI 绘图提示语参考

绘制一个函数图，展示定积分的几何意义及其数值近似。图形包括一条函数曲线、x轴上从a到b的区间，以及将区间等分成n份的矩形近似。具体画出左矩形和、右矩形和、中点矩形和，以及梯形近似和平均值近似，同时显示实际积分面积。添加文本标签解释各种近似方法的收敛性。构造顺序为先设定函数和参数，然后绘制函数曲线，再依次生成矩形多边形和线段，最后标注积分区域和说明文字。
以上提示语为根据原始绘图命令整理而来，仅供参考。