wolfram-mathematica - 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]

标签： wolfram-mathematica

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} 处的数字