Re: A Functional Programming Question
- To: mathgroup at smc.vnet.net
- Subject: [mg24712] Re: A Functional Programming Question
- From: Mark Fisher <mark.fisher at atl.frb.org>
- Date: Wed, 9 Aug 2000 02:31:11 -0400 (EDT)
- Organization: Federal Reserve Bank of Atlanta
- References: <8mdm9v$5o7@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
David,
this works:
Thread[#, Equal] & /@ ({a x == 0, b y == 0, c z == 0}/{a, b, c})
--Mark.
Mark Fisher
Economic Advisor
Research Department
Federal Reserve Bank of Atlanta
Atlanta, GA 30303
404-521-8757 (voice)
404-521-8810 (fax)
mark.fisher at atl.frb.org
personal web page: www.markfisher.net
David Park wrote:
>
> 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/