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

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

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

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