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