7
$\begingroup$

I solve the equation $2^x + 2^{x + 4} + 2^{x + 3} == 3^x + 3^{x + 4} + 3^{x + 3}$. I tried

Solve[2^x + 2^{x + 4} + 2^{x + 3} == 3^x + 3^{x + 4} + 3^{x + 3}, x, Reals] // FullSimplify

{{x -> -(Log[109/25]/Log[3/2])}}

How can I write the answer -(Log[109/25]/Log[3/2]) in the form -Log[3/2,Log[109/25]?

$\endgroup$
5
  • $\begingroup$ See and mathematica.stackexchange.com/a/107405 and the SystemOptions setting "AutosimplifyTwoArgumentLog". $\endgroup$
    – Goofy
    Commented Jan 15 at 4:48
  • 1
    $\begingroup$ @Goofy I tried that first thing. But here it does not work. This is a reverse problem. !Mathematica graphics How will this option otherwise help here? $\endgroup$
    – Nasser
    Commented Jan 15 at 5:03
  • $\begingroup$ @Nasser this worked for me: !Mathematica graphics $\endgroup$
    – Goofy
    Commented Jan 15 at 5:17
  • $\begingroup$ @Goofy sure. But you had to do the manual step Log[a_]/Log[b_] :> Log[b, a] after setting this flag. I thought you meant without doing this manual step. This is same solution as Syed but instead of using Defer this setting is used in its place. $\endgroup$
    – Nasser
    Commented Jan 15 at 5:25
  • $\begingroup$ @Nasser Of course. How could you possibly make Mma use a particular base for Log? That's not what blocking autosimplification is about. Defer only holds up autosimplification for output purposes. It reverts to natural log when evaluated. That does not happen if autosimplification is turned off. They're different, no? $\endgroup$
    – Goofy
    Commented Jan 15 at 5:31

1 Answer 1

9
$\begingroup$
sol = First@
   Solve[2^x + 2^{x + 4} + 2^{x + 3} == 3^x + 3^{x + 4} + 3^{x + 3}, 
    x, Reals] // FullSimplify

x /. sol /. Log[a_]/Log[b_] :> Defer[Log[b, a]]

-Log[3/2, 109/25]

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.