MathGroup Archive 2011

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

Search the Archive

Re: Combine sqrts in denominator

  • To: mathgroup at smc.vnet.net
  • Subject: [mg122438] Re: Combine sqrts in denominator
  • From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
  • Date: Fri, 28 Oct 2011 05:37:11 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201110271032.GAA08881@smc.vnet.net>

It only simplifies further if you make certain assumptions, e.g.



Assuming[Element[h | r, Reals], FullSimplify[
   1/(Sqrt[Sqrt[h^2 + r^2] - h]*Sqrt[Sqrt[h^2 + r^2] + h])]]

1/Abs[r]


Assuming[Element[h, Reals] && r > 0, 
  FullSimplify[1/(Sqrt[Sqrt[h^2 + r^2] - h]*Sqrt[Sqrt[h^2 + r^2] + h])]]

1/r


Andrzej Kozlowski




On 27 Oct 2011, at 12:32, Tom D wrote:

> I'm doing a calculation that results in terms of the form
> 
> 1/ Sqrt[ -h + Sqrt[h^2 + r^2]] * 1/Sqrt[h + Sqrt[h^2 + r^2]] * (other
> functions)
> 
> One sees that this simplifies to (other functions)/r.
> 
> It would helpful to make Mathematica perform this simplification, but
> I have not been able to get Simplify[] or FullSimplify[] or anything
> else to do it.
> 
> How would I be able to do this?
> 
> Thanks,
> Tom
> 




  • Prev by Date: List plot with random size for each point
  • Next by Date: Matematica Beginner/Student and Mysql
  • Previous by thread: Re: Combine sqrts in denominator
  • Next by thread: Re: Combine sqrts in denominator