Mathematica描绘滚球某个点的运动轨迹(摆线)

        圆球上的某个点的运动轨迹可以分解成两个部分,第一部分为圆球整体的平移运动,第二部分为圆球原地的滚动。不难推出摆线的方程为x=t-sin(t), y=1-cos(t) (假设圆球的平移速度为1m/s,如果速度为v,则两个方程右侧都乘以v即可)。

       Mathematica代码为:      

Export["RolliingBall.gif", 
 Table[Show[{ParametricPlot[{t - Sin[t], 1 - Cos[t]}, {t, 0.01, t}, 
     PlotStyle -> {Thick, Blue}], 
    Graphics[{Thick, Circle[{t, 1}, 1]}], 
    Graphics[{Red, Disk[{t - Sin[t], 1 - Cos[t]}, 0.1]}]}, 
   PlotRange -> {{0, 2*2*Pi}, {0, 2}}], {t, 0, 2*2*Pi, 1.0/25}]]
生成了下面这张动态图:



  • 1
    点赞
  • 20
    收藏
    觉得还不错? 一键收藏
  • 5
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 5
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值