mathematica 画图问题

2024-12-02 22:31:48
推荐回答(2个)
回答(1):

在后面加入两条语句:

c = Table[{Evaluate[y[t] /. s][[1]], Evaluate[x[t] /. s][[1]]}, {t, 0, 4, 0.1}];
d = ListPlot[c, PlotJoined -> True, PlotRange -> All,AspectRatio -> Automatic];

这样就能画出x[y]的曲线的曲线。
可以看出曲线趋于平衡

回答(2):

42245