Не удается найти переменную с помощью функции Solve [выражение, переменная]

Question

Мне нужно решить уравнение с 1 неизвестным, появляющимся в показателе степени 3 раза. После запуска Wolfram продолжает работать и никогда не заканчивает вычисления.

Решить [51684,2 / 342077 * 0,048 / 0,148 * 26,09 / 22,19 == Опыт [т / 26,09] - Опыт [(22,19 т - 26,09 т) / 22,19 * 26,09], т]

Я думаю, что результаты должны быть примерно 10-100.

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]