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