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 +

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/11 17:39:24
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 +

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 +
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’ 需要把路径画出来,求救.

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 +
我只是想说,mathematica 的NDsolve特别难用.