Question

mathematica 求微分方程数值解 并画图

求微分方程 x'(t)=x(1-0.1y);y'(t)=-0.5y+0.02xy;x(0)=25;y(0)=2在【0,15】的数值解，并画出的图形
请把程序代码告诉我。。急。。求。。

Answer 1

sol=NDSolve[{x'[t]Šx[t](1-0.1y[t]),y'[t]Š-0.5y[t]+0.02x[t] y[t],x[0]==25,y[0]Š2},{x,y},{t,15}]

{{x&reg;InterpolatingFunction[{{0.,15.}},<>],y&reg;InterpolatingFunction[{{0.,15.}},<>]}}

ParametricPlot[Evaluate[{x[t],y[t],x'[t],y'[t]}/.sol],{t,0,20}]

Answer 2

可以再把这道题做一遍发给我吗-=- 575964451@qq.com 谢了！