level 11
无情天魔精致
楼主
用ViewPoint实现三维旋转,但是似乎只能遍历曲线的一部分,而另一部分始终避而远之,这是为什么?
代码和动画效果如下:
r[u_, v_] := {Cos[u] Cos[v], Cos[u] Sin[v], Sin[u]};
a = Show[ParametricPlot3D[r[v, 2 Sin[v]], {v, 0, 2 Pi}, Axes -> False,
Boxed -> False],
ListPointPlot3D[r[
#, 2 Sin[#
]] & /@ Range[0, 2 Pi, Pi/18],
PlotStyle -> Green]];
Manipulate[
Show[a, Graphics3D[{Red, PointSize[0.02], Point[{r[t, 2 Sin[t]]}]}],
ViewPoint -> 2 r[t, 2 Sin[t]], SphericalRegion -> True,
ImageSize -> 365], {t, Pi/180., 2 Pi, Pi/180.}]

2019年02月22日 12点02分
1
代码和动画效果如下:
r[u_, v_] := {Cos[u] Cos[v], Cos[u] Sin[v], Sin[u]};
a = Show[ParametricPlot3D[r[v, 2 Sin[v]], {v, 0, 2 Pi}, Axes -> False,
Boxed -> False],
ListPointPlot3D[r[
#, 2 Sin[#
]] & /@ Range[0, 2 Pi, Pi/18],
PlotStyle -> Green]];
Manipulate[
Show[a, Graphics3D[{Red, PointSize[0.02], Point[{r[t, 2 Sin[t]]}]}],
ViewPoint -> 2 r[t, 2 Sin[t]], SphericalRegion -> True,
ImageSize -> 365], {t, Pi/180., 2 Pi, Pi/180.}]

