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/07/11 12:06:50
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`]
xT]KA+,nܙf@([)>.+%-!UbԢUL)~ч$Oޙ$eH֗{=sٹI>,S,Z;qE]]"\c%zeHkY㐽do6K[?νcش!N9@F2i'eRS{bi&J$P HHX 9<8 x<7ErA'òcUM$  8H0 p(= bdL߷/Ty cwC@#?GrΑڲm31X闖 mxy Ι4ӹ?׼#_v.u0oF^SꄆG0%EdG1$IF"$~t! Jr0@:kKڀlnt#X0/Qf B=L^PC_vVn 1}ocJa ҹClNW`O[e{mNׁ^u?TN!\v oar[:-5msWf ˬp=Z=d;dEv{(g`%_5Vdo6׻:2ye"}jMOP0f\?ka

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

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`]
分别给两个图象取好名字（比如a,b）,然后：
Show[a,b,PlotRange -> All]