Re: A Functional Programming Question

• To: mathgroup at smc.vnet.net
• Subject: [mg24726] Re: A Functional Programming Question
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Wed, 9 Aug 2000 02:31:25 -0400 (EDT)
• References: <8mdm9v\$5o7@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```David,

eqns = {a x == 0, b y == 0, c z == 0};

Equal @@@ ((List @@@ eqns)/{a, b, c})

{x == 0, y == 0, z == 0}

Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

"David Park" <djmp at earthlink.net> wrote in message
news:8mdm9v\$5o7 at smc.vnet.net...
> 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