Search All of the Math Forum:
Views expressed in these public forums are not endorsed by
NCTM or The Math Forum.



Radical conjugates
Posted:
Feb 4, 2013 1:26 AM


Hello, I wanted a function that takes a numerical expression of the form
a + b Sqrt[c]
or
a Sqrt[b] + c Sqrt[d]
and returns its conjugate, namely a  b Sqrt[c] and (a Sqrt[b]  c Sqrt[d]) respectively.
I wrote
RadicalConjugate[x_] := Module[{c}, c = Cases[x, Power[_]]; If[Length[c] > 0, x /. c[[1]] > c[[1]], x] ]
and it seems that it works. Anyway, do you have a different approach?
Thank you.
  Francisco Javier Garc=EDa Capit=E1n http://garciacapitan.99on.com



