Wolfram mathematica 无法使用solve[expression，variable]函数求解变量

我需要解一个方程，其中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左右

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}]

或

或

---

您知道Stack Exchange上有一个专门的Mathematica站点吗？您知道Stack Exchange上有一个专门的Mathematica站点吗？

{t -> 0.0128273}

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