Re: Perform an assigment
- To: mathgroup at smc.vnet.net
- Subject: [mg43911] Re: Perform an assigment
- From: Paul Abbott <paul at physics.uwa.edu.au>
- Date: Sat, 11 Oct 2003 01:33:31 -0400 (EDT)
- Organization: The University of Western Australia
- References: <bm2u1n$6qd$1@smc.vnet.net> <bm5lvs$j59$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <bm5lvs$j59$1 at smc.vnet.net>, Jens-Peer Kuska <kuska at informatik.uni-leipzig.de> wrote: > Hi, > > don't do this use the rules returned by als Solve[] functions > to replace the values of the symbolic variables in certain expressions. > > {a, b, c} /. Solve[{a == 1, b == 2, c == 3}, {a, b, c}][[1]] > > But if you insist to make assignments, something like > > Set @@@ Transpose[{{a, b, c}, {a, b, c} /. > Solve[{a == 1, b == 2, c == 3}, {a, b, c}][[1]]}] This is a little verbose. Surely Solve[{a == 1, b == 2, c == 3}, {a, b, c}] /. Rule -> Set suffices? Cheers, Paul -- Paul Abbott Phone: +61 8 9380 2734 School of Physics, M013 Fax: +61 8 9380 1014 The University of Western Australia (CRICOS Provider No 00126G) 35 Stirling Highway Crawley WA 6009 mailto:paul at physics.uwa.edu.au AUSTRALIA http://physics.uwa.edu.au/~paul