Re: Solving complex equations

*To*: mathgroup at smc.vnet.net*Subject*: [mg91215] Re: [mg91157] Solving complex equations*From*: Andrzej Kozlowski <akoz at mimuw.edu.pl>*Date*: Sat, 9 Aug 2008 07:48:40 -0400 (EDT)*References*: <200808081112.HAA11483@smc.vnet.net>

On 8 Aug 2008, at 13:12, Adel Elsabbagh 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 > > eq = a + b I + c + d I == 3 + 4 I; Thread[(ComplexExpand[Through[{Re, Im}[#1]]] & ) /@ eq] {a + c == 3, b + d == 4} Andrzej Kozlowski

**References**:**Solving complex equations***From:*"Adel Elsabbagh" <aelsabbagh@gmail.com>