1、为了把球面螺旋线的出发点移动到赤道上，需要对曲纹坐标u进行调整：ParametricPlot3D[{Sin[u] S足毂忍珩in[v], Sin[u] Cos[v], Cos[u]} /. { u -> t/36 Cos[t] + Pi/2, v -> t/36 Sin[t]}, {t, 0, 10 Pi}, PlotPoints -> 1000, PlotStyle -> {Blue, Thickness[0.003]}]注意，u代表的是纬度，从极点移到赤道，需要把纬度加上90°；绘图区域t介于0到10π之间。
3、进一步看看这种扭曲现象：ParametricPlot3D[{Sin[u] Sin[v], Sin[u] Cos[v], Cos[u]} /. {u -> t/36 Cos[t] + Pi/2, v -> t/36 Sin[t]}, {t, 0, 50 Pi}, PlotPoints -> 1000, PlotStyle -> {Blue, Thickness[0.003]}]
5、增加一点极点附近的扭曲现象：ParametricPlot3D[{Sin[u] Sin[v], Sin[u] Cos[v], Cos[u]} /. {u -> t/150 Cos[t] + Pi/2, v -> t/150 Sin[t]}, {t, 0, 105 Pi}, PlotPoints -> 1000, PlotStyle -> {Blue, Thickness[0.002]}]
