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