Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

Re: Sqrt Problems




In a message dated 4/24/98 2:48:07 AM, REISER@HRTS.NRL.NAVY.MIL wrote:

>Forgive me if this is a simple question, but I am trying to get  "1" out
>of the following expression and I can't seem to figure out how:
>
>	u = Sqrt[a+I*b/a] * Sqrt[a^2+I*b] / Sqrt[a]
>
>Is there a package I'm missing or something?

It is not equal to one; however, I suspect that you are trying to do
something like

subst = Sqrt[x_]*Sqrt[y_] -> Sqrt[x*y]; 

u = Sqrt[a + I*b/a]*Sqrt[a^2 + I*b]/Sqrt[a] /. subst

Sqrt[(a^2 + I*b)*(a + (I*b)/a)]/Sqrt[a]

Simplify[%]

Sqrt[(a^2 + I*b)^2/a]/Sqrt[a]

PowerExpand[%]

(a^2 + I*b)/a

Simplify[%]

a + (I*b)/a

Bob Hanlon



  • Prev by Date: Mathematica 3.0.1 / Win95 woes
  • Next by Date: Re: 1+Cos[x]Cosh[x]==0 ?
  • Prev by thread: Re: Sqrt Problems
  • Next by thread: Re: Sqrt Problems