{xsol, ysol} =
NDSolveValue[{x'[t] == 2 x[t] - 2 x[t]^2 - x[t]*y[t],
y'[t] == 2 y[t] - 2 y[t]^2 - x[t]*y[t], x[0] == 0.5,
y[0] == 1}, {x, y}, {t, 5000}];
ParametricPlot[{xsol[t], ysol[t]}, {t, 0, 5000}]
求解这个微分方程组以后,想不止画出一组初值条件下的[x,y](关于参数 t的)的二维图形,比如,我想画出x(0)={1,1,1,1,1,1,1,1,1,1},y(0)={0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1}(x(0),y(0)一一对应的这么多初值条件在同一个图中的所有加上箭头的曲线,箭头方向代表随时间的演化)
NDSolveValue[{x'[t] == 2 x[t] - 2 x[t]^2 - x[t]*y[t],
y'[t] == 2 y[t] - 2 y[t]^2 - x[t]*y[t], x[0] == 0.5,
y[0] == 1}, {x, y}, {t, 5000}];
ParametricPlot[{xsol[t], ysol[t]}, {t, 0, 5000}]
求解这个微分方程组以后,想不止画出一组初值条件下的[x,y](关于参数 t的)的二维图形,比如,我想画出x(0)={1,1,1,1,1,1,1,1,1,1},y(0)={0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1}(x(0),y(0)一一对应的这么多初值条件在同一个图中的所有加上箭头的曲线,箭头方向代表随时间的演化)