积极 AI Logo 积极 AI

切割四面体形成展开图

切割四面体形成展开图
几何画板及绘图内容加载中，请稍等……
2025-03-19 18:26
所属专题 La fábrica de teselados
本范例演示如何用 GeoGebra 将一个正四面体沿特定平面切割并展开为平面网状结构。首先介绍四面体的几何属性与切割线的生成，涉及立体几何、多边形的构建及展开图的形成。作图要点包括：使用 Vector 创建向量控制平移，Circle 绘制辅助圆，Mirror 实现对称镜像，PointIn 在体内取点，Spline 生成平滑曲线，Point 标记关键点，Translate、Rotate 实现平移与旋转，Sequence 与 Reverse 构造切割序列，Join 合并多段路径，Polygon 绘制展开面，Corner 求取棱角，Angle 测量二面角；通过滑块（Slider）驱动动画展示切割过程。适合高中及大学阶段学生学习立体几何、图形变换与 GeoGebra 操作。

GeoGebra 命令及参数

  1. Vector(D, D') → u1
  2. Circle((0, 0), 7) → c
  3. Mirror(A, B) → A'
  4. PointIn(t1(1)) → A3
  5. Spline(L4, 3) → a4
  6. PointIn(t4(1)) → A2
  7. PointIn(t3(1)) → A1
  8. Point(Segment[B, D']) → C1
  9. Spline(L1, 3) → a1
  10. PointIn(t2(1)) → A4
  11. Spline(L3, 3) → a3
  12. Spline(L2, 3) → a2
  13. Mirror(a4, B) → a4'
  14. Mirror(a1, C) → a1'
  15. Mirror(a2, C) → a2'
  16. Translate(a3, u1) → a3'
  17. Sequence(Point[a1, s], s, 0, 1, 0.05) → po1
  18. Sequence(Point[a2, s], s, 0, 1, 0.05) → po2
  19. Sequence(Point[a4', s], s, 0, 1, 0.05) → po4
  20. Sequence(Point[a4, s], s, 0, 1, 0.05) → po5
  21. Sequence(Point[a3, s], s, 0, 1, 0.05) → po6
  22. Reverse(Sequence[Point[a3', s], s, 0, 1, 0.05]) → po3
  23. Sequence(Point[a2', s], s, 0, 1, 0.05) → po7
  24. Reverse(Sequence[Point[a1', s], s, 0, 1, 0.05]) → po8
  25. Join({po1, po2, po3, po4, po5, po6, po7, po8}) → po
  26. Polygon(po) → pol1
  27. Translate(pol1, Vector[((aa - 3) * u1)]) → pol1'
  28. Rotate(pol1, If[2 < aa < 3, (pi * (aa - 2)), pi], C) → pol2
  29. Corner(1, 1) → Export_1
  30. Corner(1, 3) → Export_2
  31. Sequence({random(), random(), random()}, k, 1, númeroListas) → listaAzar
  32. Angle(F, Midpoint[A, C], D) → ang
  33. Rotate(a3, ((1 - a) * ang), Midpoint[A, C], Segment[A, C]) → b3
  34. Rotate(t3, ((1 - a) * ang), Midpoint[B, C], Segment[C, B]) → t3a
  35. Rotate(D', ((1 - a) * ang), Midpoint[B, C], Segment[C, B]) → DD
  36. Rotate(t4, ((1 - a) * ang), Midpoint[B, C], Segment[C, B]) → t4a
  37. Rotate(t4a, ((1 - a) * ang), Midpoint[B, DD], Segment[DD, B]) → t4b
  38. Rotate(a2, ((1 - a) * ang), Midpoint[B, C], Segment[C, B]) → b2a
  39. Rotate(b2a, ((1 - a) * ang), Midpoint[B, DD], Segment[DD, B]) → b2b
  40. Translate(pol2, Vector[((aa - 3) * u1)]) → pol2'
  41. Mirror(t3, C) → t3'
  42. Mirror(t1, B) → t1'
  43. Mirror(t4b, C) → t4b'
  44. Rotate(t2, ((1 - a) * ang), Midpoint[A, C], Segment[A, C]) → t2a
  45. Rotate(a1, ((1 - a) * ang), Midpoint[B, C], Segment[C, B]) → b1