Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

Re: ``flattening" systems of equations

  • To:
  • Subject: [mg10410] Re: ``flattening" systems of equations
  • From: Julian Stoev <>
  • Date: Tue, 13 Jan 1998 02:07:14 -0500
  • Organization: Seoul National University, Republic of Korea
  • References: <69co6a$>

On 12 Jan 1998, Selwyn Hollis wrote:

|What is the  simplest way to convert a system of equations like this:
|{{a,b,...}=={c,d,...}, e==f}
|into this:
|{a==c, b==d,..., e==f}?
|(Solve[] works on systems in either form, but FindRoot[] seems to
|require the second.)

Flatten@Map[Thread,{{a1,a2}=={b1,b2}, c1==d1}] Out[10]=
Flatten@Map[Thread,{{a1,a2,a3}=={b1,b2,b3}, c1==d1}] Out[11]=
Flatten@Map[Thread,{{a1,a2,a3}=={b1,b2,b3}, c1==d1,c2==d2}] Out[12]=
{a1==b1,a2==b2,a3==b3,c1==d1,c2==d2} In[13]:=
Flatten@Map[Thread,{{a1,a2,a3}=={b1,b2,b3}, {c1==d1,c2==d2}}] Out[13]=

Julian Stoev <>       - Ph. D. Student Intelligent
Information Processing Lab. - Seoul National University, Korea

  • Prev by Date: Re: Why doesn't this work ?
  • Next by Date: Re: Defining functions using arguments with subscripts
  • Prev by thread: Re: ``flattening" systems of equations
  • Next by thread: Re: ``flattening" systems of equations