#wolfram-mathematica
#wolfram-mathematica
Вопрос:
Maximize[{Log[B e^(20 a)] - (B (-1 e^(20 a)))/(a Log[e]), a > 0,
B > 0, e > 1}, {a, B, e}, Reals]
Комментарии:
1. Есть сайт stack exchange, посвященный Mathematica: mathematica.stackexchange.com , вы можете задать вопрос там, если не получите ответа здесь.
Ответ №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}}
и сообщение
Неопределенное значение функции не является числом в {a, B, e} = {1.153668136677547,0.,1.688137312684115}