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