积极 AI Logo 积极 AI

圆的面积推导：从扇形到积分

圆的面积推导：从扇形到积分
几何画板及绘图内容加载中，请稍等……
2018-12-14 02:38
圆积分变换几何作图滑块动画
该范例通过动态几何演示圆的面积公式A=πr²的推导过程，将圆分割为多个扇形并重新排列，直观展示扇形拼合后近似形成矩形的过程，同时结合定积分思想说明面积计算的本质。核心数学概念包括圆的面积、扇形、弧长、旋转、全等以及定积分。作图要点：使用Slider控制分割数n，通过Sequence生成等分点，利用Rotate旋转扇形，Sector和Arc构造扇形区域，CurveCartesian绘制边界曲线，Circle和Ray辅助定位，Midpoint和Intersect计算关键点，最终通过多个文本对象动态显示面积数值与公式。适合中学几何教学、微积分入门以及数学实验课，帮助学生从直观操作过渡到严谨的积分推导。

GeoGebra 命令及参数

  1. Segment(E, (x(E) + 2, y(E))) → a
  2. Point(a) → F
  3. Min(x(F) - x(E), 1) → k
  4. Point(yAxis) → O
  5. Sequence(If[k < 1, (x(O) + ((l * sin((i * φ))) * cos((i * φ)) / sin(φ)), y(O) + ((l * sin((i * φ))) * sin((i * φ)) / sin(φ))), (x(O) + (l * i), y(O))], i, 0, (2 * n)) → list2
  6. Sequence((x(O) + sin((i * θ)), y(O) + 1 - cos((i * θ))), i, 0, (2 * n)) → list1
  7. Max(x(F) - x(E) - 1, 0) → k'
  8. Rotate((x(O) + 0, y(O) + 1), ((-k) * θ / 2), O) → A
  9. Rotate(O, ((-k) * θ / 2), O) → O'
  10. Rotate(Element[list1, 1], ((-k) * θ / 2), O) → B
  11. Sector(Rotate[Circle[(x(O) + 0, y(O) + 1), O], ((-k) * θ / 2), O], Rotate[O, ((-k) * θ / 2), O], Rotate[Element[list1, 1], ((-k) * θ / 2), O]) → c
  12. Rotate((x(O) + 0, y(O) + 1), ((-k) * θ / 2), O) → C
  13. Rotate(O, ((-k) * θ / 2), O) → O'_1
  14. Rotate(Element[list1, 1], ((-k) * θ / 2), O) → D
  15. Arc(Rotate[Circle[(x(O) + 0, y(O) + 1), O], ((-k) * θ / 2), O], O'_1, D) → d
  16. CurveCartesian(t - sin(t), 1 - cos(t), t, 0, 6.28319) → b
  17. Circle((0, 1), 1) → h
  18. Ray((0, 0), (1, 0)) → i
  19. Point(Segment[(0, 1), (6.28319, 1)]) → H
  20. Segment(H, (x(H), 0)) → j
  21. Midpoint(j) → I
  22. Midpoint(a) → J
  23. Circle(L, 1 / (1 - m)) → p
  24. Circle((0, 0), 1 / (1 - m)) → q
  25. Intersect(p, q, 1) → M
  26. Intersect(p, q, 2) → N
  27. Circle((0, 1), 1) → c_1
  28. Segment((0, 0), (6.283185307179586, 0)) → e
  29. Segment(G, (x(G), y(G) - 1)) → r
  30. Sequence(Sector[Rotate[Translate[Circle[(x(O) + 0, y(O) + 1), Element[list1, i]], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], Rotate[Translate[Element[list1, i], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], Rotate[Translate[Element[list1, i + 1], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]]], i, 1, n) → list3
  31. Sequence(Sector[Rotate[Rotate[Translate[Circle[(x(O) + 0, y(O) + 1), Element[list1, i]], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], (180° * k'), (x(O) + (n * l) - sin(θ / 2) / 2, y(O) + cos(θ / 2) / 2)], Rotate[Rotate[Translate[Element[list1, i], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], (180° * k'), (x(O) + (n * l) - sin(θ / 2) / 2, y(O) + cos(θ / 2) / 2)], Rotate[Rotate[Translate[Element[list1, i + 1], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], (180° * k'), (x(O) + (n * l) - sin(θ / 2) / 2, y(O) + cos(θ / 2) / 2)]], i, n + 1, (2 * n)) → list4
  32. CircleArc((0, 1 / (1 - m)), O, L) → s
  33. Segment(Q, R) → g

AI 绘图提示语参考

绘制一个动态演示圆面积公式的图形：一个圆被等分成多个扇形，通过滑块控制分割数量。当分割数较少时，扇形保持圆弧排列；当分割数增多时，扇形被平移并旋转，重新排列成一个近似矩形的形状。矩形的一边等于圆的半径，另一边等于半周长（πr）。同时显示一条摆线（旋轮线）作为边界参考，以及辅助的圆、射线和线段。图中标注关键点、中点，并动态显示面积数值和公式，直观展示从扇形到积分求面积的过渡。
以上提示语为根据原始绘图命令整理而来，仅供参考。