Services & Resources / Wolfram Forums
MathGroup Archive
*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
  • Subject: [mg57180] Re: Modifying displayed form of an expression?
  • From: "Peltio" <peltio at>
  • Date: Fri, 20 May 2005 04:43:12 -0400 (EDT)
  • References: <d6bi6i$moa$> <d6heqc$d4c$>
  • Reply-to: "Peltio" <peltioNOSPAM at>
  • Sender: owner-wri-mathgroup at

"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


  • 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?