百度作业网mathematica编程哪里错啦,急~~
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/06/23 04:41:26
mathematica编程哪里错啦,急~~
NDSolve[{y''[t] == -9.81, y[0] == 11, y'[0] == 0, x[t] = 1.5 t,
WhenEvent[y[t] == 0, y'[t] -> -0.80 y'[t]],
WhenEvent[y[t] == 0, x'[t] -> -0.80 x'[t]],
WhenEvent[
Abs[y'[t]] < 1*10^(-6), {tf = Sqrt[x^2 + y^2], Print[tf],
"StopIntegration"}]}, y, {x, 0, \[Infinity]}];
我承认很简单,但就是不会用,我是渣渣,别笑我.
y=-9.8t x=1.5t y0=11,当y=0时y‘=0.8y’ x‘=0.8x’ 需要把路径画出来,求救.
NDSolve[{y''[t] == -9.81, y[0] == 11, y'[0] == 0, x[t] = 1.5 t,
WhenEvent[y[t] == 0, y'[t] -> -0.80 y'[t]],
WhenEvent[y[t] == 0, x'[t] -> -0.80 x'[t]],
WhenEvent[
Abs[y'[t]] < 1*10^(-6), {tf = Sqrt[x^2 + y^2], Print[tf],
"StopIntegration"}]}, y, {x, 0, \[Infinity]}];
我承认很简单,但就是不会用,我是渣渣,别笑我.
y=-9.8t x=1.5t y0=11,当y=0时y‘=0.8y’ x‘=0.8x’ 需要把路径画出来,求救.
我只是想说,mathematica 的NDsolve特别难用.