作业帮mathematica求轨迹,有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是原来的90%,以后每着地一次,速度都比上次减少10%,求此球在第三次着地前的轨迹.我知道
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/10 11:53:10
mathematica求轨迹,有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是原来的90%,以后每着地一次,速度都比上次减少10%,求此球在第三次着地前的轨迹.我知道
mathematica求轨迹,
有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是原来的90%,以后每着地一次,速度都比上次减少10%,求此球在第三次着地前的轨迹.
我知道很简单,但是我不会做囧,求高人赐教……
OTL，我说了用mathematica做
我要的是代码
mathematica求轨迹,有一球以10m/s的速度以水平线以45度向斜上方抛去,该球着地后仍保持原方向弹跳,但速度是原来的90%,以后每着地一次,速度都比上次减少10%,求此球在第三次着地前的轨迹.我知道
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）
三条轨迹均为抛物线.第一条高为5M.第二条高为4.05M.第三条高为3.28M
v＾2=2gh
h=v＾2/(2g)=5M
V1=v＊0.9=9M/S
V1＾2=2gh
h=V1＾2/(2g)=4.05M
V2=v＊0.9＊0.9=8.1
V2＾2=2gh
h=V2＾2/(2g)=3.28