积极 AI Logo 积极 AI

球坐标三维可视化（robphy）

球坐标三维可视化（robphy）
几何画板及绘图内容加载中，请稍等……
2019-02-01 06:30
向量解析几何立体几何微积分参数方程
① 本范例通过GeoGebra动态展示三维空间中球坐标系的完整结构，包括径向、极角与方位角三个方向的单位向量场以及球面上的网格与坐标曲线。② 核心数学概念涉及球坐标与直角坐标的转换、三维向量分解、单位向量（r帽、θ帽、φ帽）的几何意义，以及参数曲面（球面）的构造。③ 作图要点：利用Surface命令绘制球面，Vector命令生成三个方向的向量场，CurveCartesian绘制坐标曲线，Segment连接参考线段；通过Zip、Flatten、Simplify等列表操作管理大量向量对象，并设置滑块（r、theta、phi）实现动态交互。④ 适合大学微积分、多元函数或向量分析课程中讲解球坐标与曲线坐标系的辅助教学，也可用于高中进阶三维几何的直观演示。

GeoGebra 命令及参数

  1. Simplify(sin(theta(x, y, z))) → sinTheta
  2. Flatten(Sequence[Sequence[Sequence[(i, j, k), i, (-N), N], j, (-N), N], k, (-N), N]) → grid
  3. Zip(Vector[(1, 0, 0)], P, grid) → xHats
  4. Simplify(cos(theta(x, y, z))) → rZ
  5. Simplify((sinTheta(x, y, z) * sinPhi(x, y, z))) → rY
  6. Simplify((sinTheta(x, y, z) * cosPhi(x, y, z))) → rX
  7. Zip(Vector[(rX(P), rY(P), rZ(P))], P, grid) → rHats
  8. Zip(Vector[P, P + If[abs(v) > maxMag, Vector[(maxMag * UnitVector[v])], Vector[v]]], P, grid, Vector[v], rHats) → fieldOFrHAT
  9. Simplify(cos(theta(x, y, z))) → cosTheta
  10. Zip(Vector[(thetaX(P), thetaY(P), thetaZ(P))], P, grid) → thetaHats
  11. Zip(Vector[P, P + If[abs(v) > maxMag, Vector[(maxMag * UnitVector[v])], Vector[v]]], P, grid, Vector[v], thetaHats) → fieldOFthetaHAT
  12. Zip(Vector[(phiX(P), phiY(P), phiZ(P))], P, grid) → phiHats
  13. Zip(Vector[P, P + If[abs(v) > maxMag, Vector[(maxMag * UnitVector[v])], Vector[v]]], P, grid, Vector[v], phiHats) → fieldOFphiHAT
  14. Surface((u * cos(PhiValue)), (u * sin(PhiValue)), v, u, 0, 5, v, -5, 5) → constPhiCyl
  15. Vector(Q, Q + ((phiX(Q), phiY(Q), phiZ(Q)) * 2)) → QphiHat
  16. Vector(Q, Q + ((rX(Q), rY(Q), rZ(Q)) * 2)) → QrHat
  17. Vector(Q, Q + ((thetaX(Q), thetaY(Q), thetaZ(Q)) * 2)) → QthetaHat
  18. CurveCartesian((((rValue * sin(u)) * cos(PhiValue)), ((rValue * sin(u)) * sin(PhiValue)), (rValue * cos(u))), u, 0, ThetaValue) → ThetaVar
  19. CurveCartesian((((rValue * sin(ThetaValue)) * cos(u)), ((rValue * sin(ThetaValue)) * sin(u)), (rValue * cos(ThetaValue))), u, 0, PhiValue) → PhiVar
  20. Surface(((u * cos(PhiValue)) * sin(v)), ((u * sin(PhiValue)) * sin(v)), (u * cos(v)), u, 0, rValue + 2, v, 0, π) → constPhiRad
  21. Surface(((u * cos(v)) * sin(ThetaValue)), ((u * sin(v)) * sin(ThetaValue)), (u * cos(ThetaValue)), u, 0, rValue + 2, v, 0, (2 * π)) → constTheta
  22. CurveCartesian((((u * sin(ThetaValue)) * cos(PhiValue)), ((u * sin(ThetaValue)) * sin(PhiValue)), (u * cos(ThetaValue))), u, 0, rValue) → rVar
  23. Surface((u * sin(v)), ((u * 0) * sin(v)), (u * cos(v)), u, rValue, rValue + 0.1, v, 0, π) → zeroPhiRad
  24. Flatten(Sequence[Sequence[Sequence[(i, j, k), i, (-N), N], j, (-N), N], k, (-N), N]) → gridRECT
  25. Flatten(Sequence[Sequence[Sequence[(((r * sin((t * π / ((2 * N))))) * cos(((p * 2) * π / ((2 * N))))), ((r * sin((t * π / ((2 * N))))) * sin(((p * 2) * π / ((2 * N))))), (r * cos((t * π / ((2 * N)))))), r, 1, (2 * N)], t, 0, (2 * N)], p, 0, (2 * N)]) → gridSPH
  26. CurveCartesian((((rValue * sin(ThetaValue)) * cos(u)), ((rValue * sin(ThetaValue)) * sin(u)), 0), u, 0, PhiValue) → PhiVarXYPplane
  27. Segment((0, 0, 0), (((rValue * sin(ThetaValue)) * cos(PhiValue)), ((rValue * sin(ThetaValue)) * sin(PhiValue)), 0)) → RadiusProjectionOnXYplane
  28. Segment(Q, (((rValue * sin(ThetaValue)) * cos(PhiValue)), ((rValue * sin(ThetaValue)) * sin(PhiValue)), 0)) → VerticalDroppedFromQ

AI 绘图提示语参考

在三维空间中绘制球坐标系的结构，包括径向、极向和方位角单位矢量场，以及球面上的网格线和坐标曲线。展示球面，使用三个方向的矢量场表示单位矢量，绘制坐标曲线，并添加参考线。通过滑块交互探索径向、极角和方位角的变化，并可视化球坐标与笛卡尔坐标的转换。
以上提示语为根据原始绘图命令整理而来，仅供参考。