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}