积极 AI Logo 积极 AI

Frenet–Serret 标架带状三角剖分可视化

Frenet–Serret 标架带状三角剖分可视化
几何画板及绘图内容加载中，请稍等……
2020-11-03 05:30
向量立体几何导数参数方程滑块动画
该范例演示了如何利用 Frenet–Serret 标架（切线、法线、副法线）在三维空间曲线周围生成动态的带状曲面，并通过三角剖分（triangulation）代替传统曲面定义来提升渲染速度。核心数学概念包括空间曲线的曲率 κ、挠率 τ、Frenet–Serret 公式、向量微分与正交标架。作图要点：使用 CurveCartesian 定义参数曲线，Derivative 求导得到切向量，Vector 构造标架向量，Zip 与 Sequence 批量生成剖分点，Textfield 与 InputBox 控制参数（如旋转角 Rx/Ry/Rz、参数范围 min/max、条带数量等），并通过滑块（onPlay）实现动态旋转与播放。适合大学微分几何、计算机图形学或数学建模课程，也可用于高中进阶拓展，帮助直观理解空间曲线的局部几何性质与曲面离散化方法。

GeoGebra 命令及参数

  1. Textfield(min) → InputBoxmin
  2. Textfield(max) → InputBoxmax
  3. Textfield(Rx) → InputBoxRx
  4. Textfield(Ry) → InputBoxRy
  5. Textfield(Rz) → InputBoxRz
  6. CurveCartesian((Rx(t), Ry(t), Rz(t)), t, 0, (2 * π)) → R
  7. Derivative(R, 1) → V
  8. Derivative(R, 2) → A
  9. Derivative(R, 3) → J
  10. CurveCartesian(R(t), t, min, max) → c
  11. CurveCartesian(V(t) / LV(t), t, 0, (2 * π)) → T
  12. CurveCartesian(V(t) ⊗ A(t), t, 0, (2 * π)) → VxA
  13. CurveCartesian(VxA(t) / LVxA(t), t, 0, (2 * π)) → B
  14. CurveCartesian(B(t) ⊗ T(t), t, 0, (2 * π)) → N
  15. Vector(Pc, Pc + PT) → vT
  16. Vector(Pc, Pc + PN) → vN
  17. Vector(Pc, Pc + PB) → vB
  18. LaTeX(κ, true, true) → textκ
  19. LaTeX(τ, true, true) → textτ
  20. Zip(R(t), t, Lt) → LR
  21. Zip(R(t) - N(t) / 5, t, Lt + ts / 2) → LNm
  22. Zip(R(t) + N(t) / 5, t, Lt + ts / 2) → LNp
  23. Sequence(Polygon[{Element[LR, k], Element[LR, k + 1], Element[LNp, k]}], k, 1, n) → LN1
  24. Sequence(Polygon[{Element[LR, k], Element[LR, k + 1], Element[LNm, k]}], k, 1, n) → LN2
  25. Sequence(Polygon[{Element[LNp, k], Element[LR, k + 1], Element[LNp, k + 1]}], k, 1, n) → LN3
  26. Sequence(Polygon[{Element[LNm, k], Element[LR, k + 1], Element[LNm, k + 1]}], k, 1, n) → LN4
  27. Zip(R(t) - B(t) / 5, t, Lt + ts / 2) → LBm
  28. Zip(R(t) + B(t) / 5, t, Lt + ts / 2) → LBp
  29. Sequence(Polygon[{Element[LR, k], Element[LR, k + 1], Element[LBp, k]}], k, 1, n) → LB1
  30. Sequence(Polygon[{Element[LR, k], Element[LR, k + 1], Element[LBm, k]}], k, 1, n) → LB2
  31. Sequence(Polygon[{Element[LBp, k], Element[LR, k + 1], Element[LBp, k + 1]}], k, 1, n) → LB3
  32. Sequence(Polygon[{Element[LBm, k], Element[LR, k + 1], Element[LBm, k + 1]}], k, 1, n) → LB4

AI 绘图提示语参考

在三维空间中绘制一条由参数函数生成的曲线，使用可调的旋转分量与参数范围。对曲线求一阶、二阶、三阶导数以得到切向、法向与副法向单位方向，并构造沿曲线的离散移动参考框架。以曲线上每个采样参数点为中心，分别在切向-法向、切向-副法向等正交平面内取偏移点，形成多组由三角形面片拼接的三角网格带状曲面。把每组面片沿参数方向连接成连续“Frenet–Serret”缎带，并用滑块控制曲线与面片的参数、采样范围与网格密度。
以上提示语为根据原始绘图命令整理而来，仅供参考。