mathematica中怎么把不同定义域的两张图像放在一起第一张图的代码：s = NDSolve[{Derivative[1][v][t] == (-115200 + 4 v[t] + v[t]^2)/3200 -y[t]/40,y'[t] == v[t],v[3.2467617010715495`] == -100.59038616773991`,y[3.2467617010715495`]

来源：学生作业帮助网编辑：作业帮时间：2024/05/12 09:24:44

mathematica中怎么把不同定义域的两张图像放在一起第一张图的代码：s = NDSolve[{Derivative[1][v][t] == (-115200 + 4 v[t] + v[t]^2)/3200 -y[t]/40,y'[t] == v[t],v[3.2467617010715495`] == -100.59038616773991`,y[3.2467617010715495`]
mathematica中怎么把不同定义域的两张图像放在一起
第一张图的代码：
s = NDSolve[{Derivative[1][v][t] == (-115200 + 4 v[t] + v[t]^2)/3200 -
y[t]/40,y'[t] == v[t],
v[3.2467617010715495`] == -100.59038616773991`,
y[3.2467617010715495`] == -166},{v,y},{t,3.2467617010715495`,
25}]
Plot[Evaluate[{v[t],y[t]} /.s],{t,3.2467617010715495`,25}]
第二章图的代码：
Plot[{(25600 (-1 + Sqrt[25601]) (-1 + E^((Sqrt[25601] t)/
800)))/(-12800 - 12801 E^((Sqrt[25601] t)/800) +
Sqrt[25601] E^((Sqrt[25601] t)/800)),-(1/(-12801 + Sqrt[25601]))
4 (-19201 t + 6401 Sqrt[25601] t +
10240800 Log[25601 - Sqrt[25601]] -
800 Sqrt[25601] Log[25601 - Sqrt[25601]] -
10240800 Log[
12800 - (-12801 + Sqrt[25601]) E^((Sqrt[25601] t)/800)] +
800 Sqrt[25601]
Log[12800 - (-12801 + Sqrt[25601]) E^((Sqrt[25601] t)/
800)])},{t,0,3.2467617010715495`}]
他们其实可以在t=3.2467617010715495`时候可以连接起来的但我不知道具体如何操作