Re: FindMinimum for several variables

• To: mathgroup at smc.vnet.net
• Subject: [mg20863] Re: FindMinimum for several variables
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Thu, 18 Nov 1999 01:09:39 -0500 (EST)
• References: <80tqfc\$2ou@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Adalbert,

FunctionalFindMinimum[f_, start_List] :=
(# /. Last[
FindMinimum[f[#],
Evaluate[Sequence @@ (Transpose[{#, start}])]]]) &[
Unique[x] & /@ start]

f[{x_, y_}] := (x - 1)^2 + (y - 2)^2;

FunctionalFindMinimum[f, {2, 0}]

{1., 2.}

Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

<hanssen at zeiss.de> wrote in message news:80tqfc\$2ou at smc.vnet.net...
> Hi, MathGroup,
>
> FindMinimum[f, {x,x0},{y,y0}, ( ] searches for a local minimum in a
function
> of several variables,  x0, y0,... are the starting values for the search.
>
> How can I use FindMinimum without having to name the components. My f  is
> form f[x_List] and I would like to start the search on a given starting
vector. The result,
> which one would normally obtain as
>
> {x,y} /@ FindMinimum[f, {x,x0},{y,y0}, ( ][[2]] should be returned
> as a vector.
>
> The application is, when I have several minimizing problems with different
number
> of parameters. I have found a way to construct names for the variables
> from strings using ToExpression, but I am looking for a more elegant
> solution for this problem.
>
> kind regards
>