作业帮用mathematica画出动态的摆线图怎么画?
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/16 01:45:57
用mathematica画出动态的摆线图怎么画?
像这样的?：
Animate[ParametricPlot[{t - Sin[t] ,1 - Cos[t]},{t,0,t0},
PlotRange -> {{0,10 Pi},{0,2}}],{t0,0,10 Pi}]
再问： 可是这不是动态图啊
再答： ……这咋不是动态了？还是说你要导出为Gif格式？那样的话就这样： a = Table[ParametricPlot[{t - Sin[t], 1 - Cos[t]}, {t, -0.1, t0}, PlotRange -> {{0, 10 Pi}, {0, 2}}], {t0, 0, 30, 0.3}] Export["test.gif", a] 其中的具体参数自己调。导出的图位于默认的目录下，可以通过执行 Directory[] 来查看目前的默认目录。
Animate[ParametricPlot[{t - Sin[t] ,1 - Cos[t]},{t,0,t0},
PlotRange -> {{0,10 Pi},{0,2}}],{t0,0,10 Pi}]
再问： 可是这不是动态图啊
再答： ……这咋不是动态了？还是说你要导出为Gif格式？那样的话就这样： a = Table[ParametricPlot[{t - Sin[t], 1 - Cos[t]}, {t, -0.1, t0}, PlotRange -> {{0, 10 Pi}, {0, 2}}], {t0, 0, 30, 0.3}] Export["test.gif", a] 其中的具体参数自己调。导出的图位于默认的目录下，可以通过执行 Directory[] 来查看目前的默认目录。