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