MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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