       R: Local iterator

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

```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
example:

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

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

Clear[funMax];
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[] <  fval,
maxVal = { fval, v}, 0]
];
maxVal
]

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
Vincenzo

```

• 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