【Mathematica】怎么在球面上画波浪线？

1、绘制球面：

Show[ParametricPlot3D[{Cos[u] Cos[v], Cos[u] Sin[v], Sin[u]}, {u, 0, 2 Pi}, {v, 0, Pi}, Boxed -> False, Axes -> False, PlotPoints -> 100]

2、绘制波浪线，通过把u替换为关于v的三角函数：

aa = Show[

  ParametricPlot3D[{Cos[u] Cos[v], Cos[u] Sin[v], Sin[u]}, {u, 0, 2 Pi}, {v, 0, Pi}, Boxed -> False, Axes -> False, PlotPoints -> 100],

  ParametricPlot3D[{Cos[u] Cos[v], Cos[u] Sin[v], Sin[u]} /. u -> Sin[6 v]/6, {v, 0, 2 Pi}]]

3、u -> Sin[36 v]/6：

4、u -> Sin[36 v]/36：

5、u->Sin[36 v]/36 + 0.5：

6、u->Sin[36 v]/36 -0.6：

7、u -> Sin[36 v]/36 + #) & /@ Range[-1, 1, 0.1]：