【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]：