[Date Index] [Thread Index] [Author Index]

Re: Inverse of "PowerExpand"

• To: mathgroup at smc.vnet.net
• Subject: [mg51644] Re: [mg51620] Inverse of "PowerExpand"
• From: "David Park" <djmp at earthlink.net>
• Date: Wed, 27 Oct 2004 23:43:00 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

Klaus,

One method...

Log[a] + 2*Log[b] - Log[c];
% //. (a_.)*Log[b_] + (c_.)*Log[d_] -> Log[b^a*d^c]

Log[(a*b^2)/c]

Concerning your previous posting, an expression like...

\!\(Log[\(a\ b\^2\)\/c]\)

can be copied and pasted into a Mathematica notebook even though it is not
easy to read in a posting. An Input/Output cell can be converted to
InputForm before copying into a posting or the Copy As Input Form palette
can be downloaded from..

http://eclecticdreams.net/DrBob/mathematica.htm


David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: Klaus G [mailto:Karl_boehme_9 at msn.com]
To: mathgroup at smc.vnet.net

PowerExpand[Log[a*b*b/c]]

gives:

Log[a] + 2 Log[b] - Log[c]

Which Function will return the original "Log"?

Klaus G.