MathGroup Archive 2007

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

Search the Archive

Re: Evaluation Question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76537] Re: Evaluation Question
  • From: siewsk at bp.com
  • Date: Wed, 23 May 2007 05:40:46 -0400 (EDT)
  • References: <f2u57d$k2n$1@smc.vnet.net>

On May 22, 5:13 pm, hoffmannick <hoffmann... at gmail.com> wrote:
> Can anyone help me solve the following problem?
>
> I have a function of 3 variables, let's say
> f[a_, b_, c_] = a + b + c
>
> Now I need to evaluate the function at some given points.  To evaluate
> at a single point I would do
> f[0,0,1]
>
> For the point (0,0,1)
>
> Now here is the main question.
> I need to evaluate this function at the points (0,0,0) through (1,1,1)
> That would be the points:
> 0,0,0
> 0,0,1
> 0,1,0
> 0,1,1
> 1,0,0
> 1,0,1
> 1,1,0
> 1,1,1
>
> I'm testing these for approx 32 different functions.  Is there an easy
> way that I can define the function and then have it test all the
> points for me?  It will always be those finite points listed above.
>
> I looked into the mathematica documentation and it said how to do this
> with a function of a single variable, but it didn't say how to do it a
> function of more than one variable.
>
> I really appreciate your help

How stupid of me. It's 0-7 not 0-15

In[19]:=
myfunc @@ {Mod[Quotient[#1, 4], 2],
     Mod[Quotient[#1, 2], 2],
     Mod[Quotient[#1, 1], 2]} &  /@ Table[x - 1, {x, 8}]

Out[19]=
{myfunc[0,0,0],myfunc[0,0,1],myfunc[0,1,0],myfunc[0,1,1],myfunc[1,0,0],
  myfunc[1,0,1],myfunc[1,1,0],myfunc[1,1,1]}



  • Prev by Date: Re: Mathematica 6 review [first impressions]
  • Next by Date: Re: 64-bit
  • Previous by thread: Re: Evaluation Question
  • Next by thread: Re: Evaluation Question