Re: Replacement rule for a quotient

• To: mathgroup at smc.vnet.net
• Subject: [mg60410] Re: [mg60394] Replacement rule for a quotient
• From: Pratik Desai <pdesai1 at umbc.edu>
• Date: Fri, 16 Sep 2005 03:48:51 -0400 (EDT)
• References: <200509150916.FAA15815@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Nicolas Girard wrote:

>Hi all,
>I'm afraid I couldn't find how to write the replacement rule that would
>transform, for instance
>
>
>a^2.c^3.d.e   a
>----------- + -
>b^2.f^3.g     b
>
>into
>
>    c^3.d.e
>q^2.-------- + q
>     f^3.g
>
>
>where . is the standard Times[] and ^ is the standard Power[].
>
>Could you please give me a hand for this ?
>
>
>cheers,
>Nicolas
>
>
>
Here is my attempt using Simplify
Clear[foo, a, b, c, d, e, f, q]
foo = ((a^2*c^3*d*e)/(b^2*f^3*g)) + a/b
\$Assumptions = {a = q*b, b = a/q}
Simplify[foo]

>>\!\(q + \(c\^3\ d\ e\ q\^2\)\/\(f\^3\ g\)\)

or something similar like this
Clear[foo, a, b, c, d, e, f, q]
foo1 = ((a^2*c^3*d*e)/(b^2*f^3*g)) + a/b
Simplify[foo1, Assumptions -> {a = q*b, b = a/q}] // TraditionalForm

--
Pratik Desai