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.