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/