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!
>
> --
> 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

```

• Prev by Date: Re: Solving complex equations
• Next by Date: correction
• Previous by thread: Solving complex equations
• Next by thread: Re: Solving complex equations