Wolfram mathematica 非线性微分方程的求解

我一般不使用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:：reps:{Dsolve[]}既不是替换规则列表，也不是有效的分派表，因此不能用于替换

有人知道为什么指数项会制造麻烦吗

谢谢你可以试试

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

---

试试mathematica.stackoverflow.com我尝试了你的解决方案，但没有给出书面答案！对于这个系统，当然，但对于我的系统，maple和python给出了一个与mathematica不同甚至是不同的行为的答案！然后，您应该编辑您的问题，以在maple和python的绘图形式中包含您期望的内容。