wolfram-mathematica - 无法使用 Solve[expression, variable] 函数求解变量

Question

我需要求解一个方程，其中 1 个未知数出现在指数中 3 次。一旦启动，Wolfram 就会一直“运行……”并且永远不会完成计算。

求解[51684.2/342077 * 0.048 / 0.148 * 26.09/22.19 == Exp[t/26.09] - Exp[(22.19 t - 26.09 t) / 22.19*26.09], t]

我认为结果应该在 10-100 左右。

标签： wolfram-mathematica

Answer 1

a = 51684.2/342077*0.048/0.148*26.09/22.19;
b = Exp[(22.19 t - 26.09 t)/22.19*26.09];
FindRoot[a == Exp[t/26.09] - b, {t, 0}]

{t -> 0.0128273}

或者

NSolve[a == Exp[t/26.09] - b, t, Reals]