Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

Re: Modifying displayed form of an expression?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg57180] Re: Modifying displayed form of an expression?
  • From: "Peltio" <peltio at trilight.zone>
  • Date: Fri, 20 May 2005 04:43:12 -0400 (EDT)
  • References: <d6bi6i$moa$1@smc.vnet.net> <d6heqc$d4c$1@smc.vnet.net>
  • Reply-to: "Peltio" <peltioNOSPAM at despammed.com.invalid>
  • Sender: owner-wri-mathgroup at wolfram.com

"Peltio" wrote

>It can be streamlined in a simple procedure, like this:
>
>    myCollect[fac_][f_] :=
>        Simplify[Numerator[f] fac]/Simplify[Denominator[f] fac]
>
>So that it can be called like this:
>
>    f // myCollect[Exp[-c]]
>
>A further step would be the identification of the positive signed
>exponential in the denominator.

Something like this should work,

    Denominator[f] /. Exp[c_] - Exp[d_] :> Exp[c]

as long as you don't have factors in front of the positive exponential. So
an 'automated' simplification procedure should look like:

    mySimplify[f_] :=
        myCollect[Denominator[f] /. Exp[c_] - Exp[d_] :>Exp[-c]][f]

    f //mySimplify

cheers,
Peltio


  • Prev by Date: Re: Plotting 2d graphs?
  • Next by Date: Re: Re: How to get an answer as a Root object?
  • Previous by thread: Re: Modifying displayed form of an expression?
  • Next by thread: Best way to maximize over a discrete space?