[Date Index]
[Thread Index]
[Author Index]
# 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**
| |