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

RE: "flattening" systems of eq

• To: mathgroup@smc.vnet.net
• Subject: [mg10431] RE: [mg10375] "flattening" systems of eq
• From: Ersek_Ted%PAX1A@mr.nawcad.navy.mil
• Date: Tue, 13 Jan 1998 02:07:30 -0500

Try the following:

In[1]:=
expr={ {a, b, c, d}=={w, x, y, z}, e==f }; MapAt[ Thread, expr, 1]//
Flatten

Out[1]=
{ a==w, b==x, c==y, d==z, e==f}


          Ted Ersek
 ----------
|From: "shollis"@peachnet.campus.mci.net@PMDF@PAXMB1 To:
mathgroup@smc.vnet.net
|To: ersek ted; "mathgroup"@smc.vnet.net@PMDF@PAXMB1 |Subject: [mg10431] [mg10375]
``flattening" systems of equat |Date: Monday, January 12, 1998 12:13PM
|
|<<File Attachment: 00000000.TXT>>
|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.)
|
|--
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Dr. Selwyn Hollis
|Associate Professor of Mathematics
|Armstrong Atlantic State University |Savannah, GA 31419 USA
|<http://www.math.armstrong.edu/faculty/hollis/>
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
|
|