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 ? > >Many thanks in advance, > >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 Graduate Student UMBC Department of Mechanical Engineering Phone: 410 455 8134

**References**:**Replacement rule for a quotient***From:*Nicolas Girard <nicolas.girard@strasbourg.fr>