Re: Solving complex equations
- To: mathgroup at smc.vnet.net
- Subject: [mg91211] Re: [mg91157] Solving complex equations
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 9 Aug 2008 07:47:54 -0400 (EDT)
- Reply-to: hanlonr at cox.net
eqn = a + b I + c + d I == 3 + 4 I;
{Re /@ eqn, Im /@ eqn} // ComplexExpand
{a + c == 3, b + d == 4}
List @@ Simplify[Reduce[
{eqn, Element[{a, b, c, d}, Reals]}],
Element[{a, b, c, d}, Reals]]
{a + c == 3, b + d == 4}
Bob Hanlon
---- Adel Elsabbagh <aelsabbagh at gmail.com> wrote:
=============
Dear all,
If I have a complex equation in the form of
a+b I + c+d I == 3+ 4 I
where a, b, c, and d are all assumed to be real.
How do I tell Mathematica 6 to separate the real and imaginary parts to make
two equations in the form of
a + c == 3, and
b + d == 4.
I need this to apply it on a long list of equations.
Thanks in advance!
--
Adel Elsabbagh
http://www.svlab-asu.com/aelsabbagh.html