MathGroup Archive 2006

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

Search the Archive

Re: Forcing surds into the numerator

  • To: mathgroup at smc.vnet.net
  • Subject: [mg64679] Re: [mg64656] Forcing surds into the numerator
  • From: "David Park" <djmp at earthlink.net>
  • Date: Sun, 26 Feb 2006 05:08:01 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Tony,

I don't know if there is an automatic method for getting these
simplifications. But they could be done 'by hand'.

step1 = 1/(3 + Sqrt[2]);
Module[{fac = Subtract @@ Denominator[step1]},
  Fold[FullSimplify[#2#1] &, step1, {fac, 1/fac}]
  ]
(1/7)*(3 - Sqrt[2])

step2 = Sin[Pi/12];
4# & /@ Apart[step2]/4
(1/4)*(-Sqrt[2] + Sqrt[6])

I'm hoping you will get better answers.

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/


From: Tony King [mailto:mathstutoring at ntlworld.com]
To: mathgroup at smc.vnet.net


Does anyone know how I can force Mathematica to display surds in the
numerator of an expression, or a function that can be applied to do the job?

For example, FullSimplify[1/(3+Sqrt[2])] returns itself and not 1/7
(3-root2)

Similarly, Sin[Pi/12] returns (-1+root3)/(2root2) and not 1/4 (root6-root2)

Many thanks

Tony



  • Prev by Date: Re: FindRoot & NDSolve
  • Next by Date: Q: How do I format text within a cell of GridBox[]?
  • Previous by thread: Re: Re: Forcing surds into the numerator
  • Next by thread: Re: Forcing surds into the numerator