首先，是NDSolve而不是NDsolve，Mathematica是区分大小写的。
其次……其实你看看警告信息就该明白的——方程过定了，也就是，你给的方程数目过多了（两个未知数你给了三个方程），试着去掉了那个代数方程（也就是第二个方程，不含导数的那个）之后，就可解了。不过积分步长又是早早耗光了，但是好歹算到了0.3多（图上只到了0.15，那是因为后面是复根），比之前好很多嘛。
————
试着强制提升了一下计算精度，发现只能算到0.15左右。看来默认情况下能算到0.3是因为误差……
————
仔细一看，你的那个代数方程还写错了……是y[t]而不是Y[t]。然后，去掉你的第一个方程，保留第二三个方程，这个问题就可解了！你试试！：
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024