MathGroup Archive 2001

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

Search the Archive

R: Local iterator

  • To: mathgroup at
  • Subject: [mg29398] R: Local iterator
  • From: "Vincenzo Vasta" <vvasta at>
  • Date: Sat, 16 Jun 2001 22:43:48 -0400 (EDT)
  • References: <9gevtc$7l0$>
  • Sender: owner-wri-mathgroup at

Given a function y = f[x] I would like to write a function that returns,
for a given interval and a
given step, the maximum value of y, and the x that generated this value. For

 In[4]  :=  funMax[ Log[x]/x^3 ,x ,1 ,3 ,0.001 ]
 Out[4]=  {0.122626, 1.396}

With my very little knowledge of Mathematica I wrote funMax like this:

  SetAttributes[funMax, HoldAll];
  funMax[fun_, v_, x1_, x2_, step_] := Block[
    {v, maxVal = {0, 0} , fval},
    For[v = x1, v <= x2, v += step,
      fval = fun;
      If [maxVal[[1]] <  fval,
        maxVal = { fval, v}, 0]

This function works and I'm happy with that but I would like to know how can
I write it using an
 iterator. It is just a curiosity about the language.

Thanks for your help

  • Prev by Date: Functions with Variables with Indices
  • Next by Date: Re: Converting Integer to Binary and using bits
  • Previous by thread: RE: Functions with Variables with Indices
  • Next by thread: Re: R: Local iterator