[Date Index] [Thread Index] [Author Index]
Re: Inverse of "PowerExpand"
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.