搜搜做题作业网Mathematica 动画：用Mathematica画一个小球在一正弦曲线上运动
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/05/10 04:40:18
Mathematica 动画：用Mathematica画一个小球在一正弦曲线上运动
7.0或8.0上运行
Manipulate[
Show[Graphics[Circle[{x,Sin[x]},.2],
PlotRange -> {{-7,7},{-1.3,1.3}}],
Plot[Sin[i],{i,-7,7},
PlotRange -> {{-7,7},{-1.3,1.3}}]],{x,-2*Pi,2*Pi}]
Manipulate[
Show[Graphics[Circle[{x,Sin[x]},.2],
PlotRange -> {{-7,7},{-1.3,1.3}}],
Plot[Sin[i],{i,-7,7},
PlotRange -> {{-7,7},{-1.3,1.3}}]],{x,-2*Pi,2*Pi}]