       Re: Solving complex equations

• To: mathgroup at smc.vnet.net
• Subject: [mg91203] Re: Solving complex equations
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Sat, 9 Aug 2008 07:46:21 -0400 (EDT)
• References: <g7h9m1\$b6e\$1@smc.vnet.net>

```Hi,

myConjugate[eqn_Equal] := myConjugate /@ eqn
myConjugate[expr_] := expr /. {I -> -I, a_Complex :> Conjugate[a]}
myRe[eqn_Equal] := myRe /@ eqn
myRe[expr_] := (expr + myConjugate[expr])/2
myIm[eqn_Equal] := myIm /@ eqn
myIm[expr_] := (expr - myConjugate[expr])/(2 I)

and

{myRe[#], myIm[#]} &[a + b I + c + d I == 3 + 4 I]

Regards
Jens

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

```

• Prev by Date: Re: Running Notebooks inside a notebook:
• Next by Date: Re: Solving complex equations
• Previous by thread: Re: Solving complex equations
• Next by thread: Re: Solving complex equations