在后面加入两条语句：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]的曲线的曲线。可以看出曲线趋于平衡
42245
