Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*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: 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



  • Prev by Date: Re: basic issue with do and :=
  • Next by Date: Re: Strange error when using InequalityPlot3D
  • Previous by thread: Re: Replacement rule for a quotient
  • Next by thread: Re: Replacement rule for a quotient