作业帮mathematica新人求教!怎么模拟三维的球体的运动
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/05/19 20:55:35
mathematica新人求教!怎么模拟三维的球体的运动
想模拟一个球体沿着一个轨道运动 球心的坐标(x,y,z)是都是关于时间t的表达式 想用Sphere函数,但是貌似函数中不能引入参数t 应该怎么弄?
想模拟一个球体沿着一个轨道运动 球心的坐标(x,y,z)是都是关于时间t的表达式 想用Sphere函数,但是貌似函数中不能引入参数t 应该怎么弄?
你看看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}] 你大概还想加个轨道： 0.1]; Animate[Show[img, Graphics3D[Sphere[{x[t], y[t], z[t]}, 0.1]]], {t, 0, 10}]
再问： 还是弄不来 能不能具体点 我现在有球心的坐标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}] 你大概还想加个轨道：