Question

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`时候可以连接起来的 但我不知道具体如何操作 谢谢了~

Answer 1

分别给两个图象取好名字（比如a, b），然后：

Show[a, b, PlotRange -> All]