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>
- Replacement rule for a quotient