作业帮mathematica求轨迹,
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/07/08 17:53:05
mathematica求轨迹,
有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是原来的90%,以后每着地一次,速度都比上次减少10%,求此球在第三次着地前的轨迹.
我知道很简单,但是我不会做囧,求高人赐教……
OTL，我说了用mathematica做
我要的是代码
有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是原来的90%,以后每着地一次,速度都比上次减少10%,求此球在第三次着地前的轨迹.
我知道很简单,但是我不会做囧,求高人赐教……
OTL，我说了用mathematica做
我要的是代码
x1[t_]=10*Sqrt[2]*t/2;h1[t_]=10*Sqrt[2]*t/2-(1/2)*10*t^2;g1=ParametricPlot[{x1[t],h1[t]},{t,0,Sqrt[2]},AspectRatio->1];x2[t_]=10+0.9*10*Sqrt[2]*t/2; h2[t_]=0.9*10*Sqrt[2]*t/2-(1/2)*10*t^2;g2=ParametricPlot[{x2[t],h2[t]},{t,0,9*Sqrt[2]/10},AspectRatio->1];x3[t_]=10+8.1+0.9*0.9*10*Sqrt[2]*t/2; h3[t_]=0.9*0.9*10*Sqrt[2]*t/2-(1/2)*10*t^2;g3=ParametricPlot[{x3[t],h3[t]},{t,0,0.9*0.9*10*Sqrt[2]/10},AspectRatio->1];Show[g1,g2,g3,PlotRange->All,AxesLabel->"Height"]我用的是mathematica7.0完成的,如果你使用的版本比较低可能会出现错误的结果.如果有疑问可以给我发邮件（rz1991@foxmail.com）