MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: rationalize numerator of quotient


The problem is to avoid immediate cancelation of the two factors. There are 
probably a number of ways. Here are two.

MultiplyByOne::usage =
  "MultiplyByOne[onefactor][expr] will multiply by onefactor and \
expand both the numerator and denominator of expr before \
simplifying.";
MultiplyByOne[onefactor_][expr_] :=
 Simplify[Expand[one Numerator[expr]]/Expand[one Denominator[expr]]]

(Sqrt[x] - 2)/(x - 4) // MultiplyByOne[Sqrt[x] + 2]
1/(2 + Sqrt[x])

MultiplyByOne::usage =
  "MultiplyByOne[onefactor][expr] will first multiply expr by \
onefactor and expand, then divide by onefactor and simplidy.";
MultiplyByOne[onefactor_][expr_] :=
 With[{work = Expand[onefactor expr]},
  Simplify[work/onefactor]]

(Sqrt[x] - 2)/(x - 4) // MultiplyByOne[Sqrt[x] + 2]
1/(2 + Sqrt[x])


-- 
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/


"Murray Eisenberg" <murray at math.umass.edu> wrote in message 
news:fcb3ok$fjj$1 at smc.vnet.net...
>I have a quotient such as:
>
>   (Sqrt[x] - 2)/(x-4)
>
> I want to "rationalize the numerator" by multiplying numerator and
> denominator each by Sqrt[x] + 2 so as to obtain result:
>
>   1/(Sqrt[x]+2)
>
> How?
>
> -- 
> Murray Eisenberg                     murray at math.umass.edu
> Mathematics & Statistics Dept.
> Lederle Graduate Research Tower      phone 413 549-1020 (H)
> University of Massachusetts                413 545-2859 (W)
> 710 North Pleasant Street            fax   413 545-1801
> Amherst, MA 01003-9305
> 



  • Prev by Date: Re: Problem with FrameTicks and BarLabels
  • Next by Date: Job - Applied Mathematician - Bellevue WA
  • Previous by thread: Re: rationalize numerator of quotient
  • Next by thread: Re: rationalize numerator of quotient