傅科摆3D动力学模拟:地球自转可视化

傅科摆3D动力学模拟:地球自转可视化
几何画板及绘图内容加载中,请稍等……
2024-10-11 20:02
本范例用GeoGebra三维动态演示傅科摆的进动现象,模拟地球自转对摆动平面的影响。核心数学概念包括:向量运算(Vector、UnitVector)、旋转变换(Rotate)、立体几何(Sphere构建地球模型、OrthogonalPlane构建参考平面)、圆的轨迹(Circle、PolyLine)以及序列动画(Sequence实现连续轨迹)。通过tangent、intersect等命令绘制切线和交点,展示摆锤在地球表面运动时的轨迹随时间逐渐偏转的规律。适合高中及大学物理、数学建模课程,用于直观理解科里奥利力效应和地球自转的数学描述,也可作为立体几何与向量应用的教学案例。

GeoGebra 命令及参数

  1. Sphere((0, 0, 0), (0.999 * 5)) → tierra
  2. Vector((1; (-rot) + 180°; (-inclinacion))) → dir
  3. Sphere((0, 0, 0), 5) → esfera
  4. Circle(PS, (5; arg(A); 0°), PN) → merA
  5. Tangent(A, merA) → tanA,
  6. UnitVector(tanA) → uA
  7. Rotate(A + uA, ((-k) * f), A, dirA) → B
  8. UnitVector(dirA) → u
  9. Circle(O, (0.994 * 2), nF) → cirF
  10. Point(cirF) → M
  11. Segment(O, M) → h
  12. UnitVector((O - M) ⊗ nF) → n
  13. Sequence(Rotate[A + (r * uA), (k * 15°), A, dirA], k, 0, 23) → HorasF
  14. Rotate(reg, f, PN) → reg1
  15. Rotate(A, α, O, nF) → A1
  16. OrthogonalPlane(A, dirA) → planoA
  17. PolyLine(reg1) → pol
  18. Circle(A, 0.2, dirA) → c
  19. Intersect(Segment[M - dirA, M], planoA) → M'
  20. Intersect(Segment[A1 - dirA, A1], planoA) → A1'
  21. Circle((0, 0, 0), 5, Line[PS, PN]) → ecuador
  22. Rotate(A, (-α), O, nF) → A2
  23. Intersect(Segment[A2 - dirA, A2], planoA) → A2'
  24. Segment(A, If[op1a, A2' + (0.02 * UnitVector[A2' - A]), A1' + (0.02 * UnitVector[A1' - A])]) → i

AI 绘图提示语参考

绘制一个3D Foucault 摆动,展示地球自转对摆动平面的影响。首先画一个地球模型,然后创建一个指向摆动方向的向量。接着画一个参考平面,并在地球表面绘制赤道。通过旋转和移动,模拟摆动的轨迹,最终展示摆动平面随时间的逐渐变化。
以上提示语为根据原始绘图命令整理而来,仅供参考。