你看看Animate的帮助.还是弄不来 能不能具体点 我现在有球心的坐标x[t] y[t] z[t] 球半径是常数 怎么做出球沿轨道运动的效果？这样明白了没：Clear[x, y, z];x[t_] = Sin[t];y[t_] = Cos[t];z[t_] = Cos[t];Animate[Graphics3D[Sphere[{x[t], y[t], z[t]}, 0.1], PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}, {-1.1, 1.1}}], {t, 0, 10}]你大概还想加个轨道：img = ParametricPlot3D[{x[t], y[t], z[t]}, {t, 0, 2 Pi}, PlotRangePadding -> 0.1];Animate[Show[img, Graphics3D[Sphere[{x[t], y[t], z[t]}, 0.1]]], {t, 0, 10}]