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/11/30 08:04:32
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 +
x]KAʐ1 n@Ћ܈ / Dhnb2!ƠW"ZAQ[5/%3 ό)XZKe=yBbdƆOb*z'l紵*1Hrv67 ~ #j2Do'*F!ME#xglgdvI8BUWRe\dC HhG,CO41h'_@'ּ@Ϛ_+h &g"$ ;ĞNY9L\,0N<$r֠my ymprqٸx,T* /f36,)ҁ5U vk3_62mNj|mySeexV#kyLw9:XlV3ȫ,gѽo0VS`&s$G6

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特别难用.