Wolfram Mathematica: Почему бы не искать максимум в реальных числах?

Question

Maximize[{Log[B e^(20 a)] - (B (-1 + e^(20 a)))/(a Log[e]), a > 0, 
  B > 0, e > 1}, {a, B, e}, Reals]

Answer 1

Вероятно, нет решения в замкнутой форме для этого трансцендентного уравнения.

NMaximize[{Log[B e^(20 a)] - (B (-1 + e^(20 a)))/(a Log[e]), a > 0, 
  B > 0, e > 1}, {a, B, e}, Reals]

Придает

{- 1.55421, {a -> 1.14072, B -> 3.85825 * 10 ^ -6, e -> 1.67175}}

и сообщение

Значение функции Indeterminate не является числом в {a, B, e} = {1.153668136677547,0., +1,688137312684115}