       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?