本文，用Mathematica来绘制球面上的波浪线。文中图片都是高清大图，请点击放大。
工具/原料
电脑
Mathematica
方法/步骤
1、先确定球面的参数方程：r={Cos[u]Co衡痕贤伎s[v],Cos[u]Sin[v],Sin[u]};再根据参数方程来绘制球面图像晗稍噔猷：ParametricPlot3D[r,{u,0,2Pi},{v,0,Pi},Axes->False,Boxed->False]
2、下面，在球面上画出赤道：绯摺驼予ParametricPlot3D[r/.{u->0,v->t},{t,0,2Pi},PlotStyle->Blue]
3、赤道线上下波动，就得到波浪线：u->Sin[6*t]这个波浪线的波动幅度很大。
4、为了减少波动幅度，可以乘上一个小数，或者除以一个大一点的数字：u->Sin[6*t]/6
5、调整波动频率和波动幅度：u->Sin[36*t]/16
6、还可以把波浪线从赤品疏饯懒道上移动到别的纬度，比如北纬30°：u->Pi/6+Sin[36*t]/16
7、北极上的波浪线是什么样的？纬度是Pi/2。
