作业帮mathematica 求微分方程数值解 并画图
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/05/05 06:15:26
mathematica 求微分方程数值解 并画图
求微分方程 x'(t)=x(1-0.1y);y'(t)=-0.5y+0.02xy;x(0)=25;y(0)=2在【0,15】的数值解,并画出的图形
请把程序代码告诉我.急.求.
求微分方程 x'(t)=x(1-0.1y);y'(t)=-0.5y+0.02xy;x(0)=25;y(0)=2在【0,15】的数值解,并画出的图形
请把程序代码告诉我.急.求.
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®InterpolatingFunction[{{0.,15.}},<>],y®InterpolatingFunction[{{0.,15.}},<>]}}
ParametricPlot[Evaluate[{x[t],y[t],x'[t],y'[t]}/.sol],{t,0,20}]
{{x®InterpolatingFunction[{{0.,15.}},<>],y®InterpolatingFunction[{{0.,15.}},<>]}}
ParametricPlot[Evaluate[{x[t],y[t],x'[t],y'[t]}/.sol],{t,0,20}]