MathGroup Archive 2000

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

Search the Archive

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/ 





  • Prev by Date: Re: A Functional Programming Question
  • Next by Date: 2nd arg to BeginPackage
  • Previous by thread: Re: A Functional Programming Question
  • Next by thread: Re: A Functional Programming Question