非线性微分方程的求解

Question

我一般不使用Mathematica，我需要它与其他程序进行比较。我想解决三个微分和非线性方程组的系统。为此我使用Dsolve。当我放置非线性项（指数）时，一切都会出错。

这里是我的代码：

equa = {x'[t] == z[t] - Exp[y[t]], 
y'[t] == z[t] - y[t], 
z'[t] == x[t] + y[t] - z[t], 
x[0] == 0, 
y[0] == 0, 
z[0] == 0}; 
slt = DSolve[equa, {x, y, z}, t] 
Plot[{x[t] /. slt}, {t, 0, 10}] 

，并且错误是这样的：

DSolve :: dsvar：0.1不能用作变量。

的replaceAll ::代表：{Dsolve [< < 1 >>]}既不是更换规则列表，也没有一个有效的调度表，所以不能用于替换

是否有人知道为什么指数术语会带来麻烦吗？

感谢

Answer 1

您可以尝试

s = NDSolve[equa, {x, y, z}, {t, 0, 10}]; 
Plot[Evaluate[({x[t], y[t], z[t]} /. s)], {t, 0, 1}]