Re: A Functional Programming Question
- To: mathgroup at smc.vnet.net
- Subject: [mg24756] Re: [mg24705] A Functional Programming Question
- From: "Richard Finley" <rfinley at medicine.umsmed.edu>
- Date: Wed, 9 Aug 2000 02:32:24 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
David, here is one way to get what you want, although it doesn't explicitly do the division...but it wasn't clear from your specification if that was essential.... In[2} := (#[[1, 2]] == 0) & /@ eqns Out[2] := {x == 0, y == 0, z == 0} If for some reason I cannot see, the division is important you could use: (#[[1]]/#[[1, 1]] == 0) & /@ eqs regards, RF >>> "David Park" <djmp at earthlink.net> 08/03/00 11:19PM >>> Dear MathGroup, Suppose I have three equations. eqns = {a x == 0, b y == 0, c z == 0}; I want to divide out the constants a, b, and c. I can do it this way: eqns[[1]] = (#1/a & ) /@ eqns[[1]]; eqns[[2]] = (#1/b & ) /@ eqns[[2]]; eqns[[3]] = (#1/c & ) /@ eqns[[3]]; eqns {x == 0, y == 0, z == 0} Is there a simpler method for doing the calculation in one statement with functional programming, say using MapThread over eqns and {a,b,c}? Is there any other simple approach? David Park djmp at earthlink.net http://home.earthlink.net/~djmp/