Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: Solving complex equations

  • To: mathgroup at smc.vnet.net
  • Subject: [mg91221] Re: Solving complex equations
  • From: "David Park" <djmpark at comcast.net>
  • Date: Sat, 9 Aug 2008 07:49:49 -0400 (EDT)
  • References: <g7h9m1$b6e$1@smc.vnet.net>

One method:

ceqn1 = a1 + b1 I + c1 + d1 I == 3 + 4 I;
ceqn2 = a2 + b2 I + c2 + d2 I == 6 - 5 I;
cequations = {ceqn1, ceqn2};

f = Function[eqn, ComplexExpand[{Re[#], Im[#]}] & /@ eqn];

Thread[f@#] & /@ cequations // Flatten
{a1 + c1 == 3, b1 + d1 == 4, a2 + c2 == 6, b2 + d2 == -5}


-- 
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/


"Adel Elsabbagh" <aelsabbagh at gmail.com> wrote in message 
news:g7h9m1$b6e$1 at smc.vnet.net...
> 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!
>
> -- 
> Adel Elsabbagh
> http://www.svlab-asu.com/aelsabbagh.html
>
> 



  • Prev by Date: Re: Exported PDFs are too big in file size.
  • Next by Date: Re: Multiplying a vector over multiple vectors
  • Previous by thread: Re: Solving complex equations
  • Next by thread: sum question