MathGroup Archive 2000

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

Search the Archive

Re: Question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg25265] Re: [mg25258] Question
  • From: Andrzej Kozlowski <andrzej at tuins.ac.jp>
  • Date: Sun, 17 Sep 2000 17:33:34 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

on 00.9.17 5:47 PM, Steven Spear at smitsky at mindspring.com wrote:

> Hi, can anyone be so kind as to tell me how this problem:
> 
> 1/cbrt(m) +2    (One over the Cube Root of "m" plus Two)
> 
> ...can be solved in Mathematica by rationalizing the denominator? Thank you.
> Steve
> 
> 
> 
> 

As long as your m is a number the following will work for roots of degree
less than 5:

RationalizeDenominator1[expr_] :=
  
  FullSimplify[expr, ComplexityFunction ->
    (
      Count[#, _?
        (MatchQ[Denominator[#], Power[_, _Rational] _. + _.] &),
        {0, Infinity}
      ] + If[FreeQ[#, Root], 0, 1] &
    )
  ]

For example:

In[3]:=
RationalizeDenominator1[1/(3^(1/3) + 2)]

Out[3]=
1          1/3    2/3
-- (4 - 2 3    + 3   )
11

or

In[4]:=
RationalizeDenominator1[1/(7^(1/4) - 3)]

Out[4]=
1
-- (-27 - 3 Sqrt[7] - Sqrt[2 (63 + 44 Sqrt[7])])
74


It can also be one for expressions involving roots of degree higher than 5
but it is considerably more complicated. In fact already once explained how
to do this in this list (in 1999).
-- 
Andrzej Kozlowski
Toyama International University
JAPAN

http://platon.c.u-tokyo.ac.jp/andrzej/
http://sigma.tuins.ac.jp/



  • Prev by Date: Re: Question
  • Next by Date: Re: ParametricPlot3D is buggy
  • Previous by thread: Re: Question
  • Next by thread: Re: Question