Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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.




  • Prev by Date: full QR decomposition
  • Next by Date: Precisio in ListContourPlot?
  • Previous by thread: Re: Re: Inverse of "PowerExpand"
  • Next by thread: Re: Inverse of "PowerExpand"