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>
- Solving complex equations