       Re: Help with Recursive Minimization

• To: mathgroup at smc.vnet.net
• Subject: [mg98543] Re: [mg98499] Help with Recursive Minimization
• From: DrMajorBob <btreat1 at austin.rr.com>
• Date: Sun, 12 Apr 2009 03:47:26 -0400 (EDT)
• References: <200904110754.DAA22104@smc.vnet.net>

```The first function is better defined with Set, not SetDelayed:

V1[y_] = First@Minimize[{x/2, x >= 2, x >= y}, {x}]

\[Piecewise] {
{1, y <= 2},
{(y/2), \!\(\*
TagBox["True",
"PiecewiseDefault",
AutoDelete->False,
DeletionWarning->True]\)}
}

Your plot is deceptive, since it leaves out the regions that cause your
third statement to fail. Try this instead:

Plot[V1[y] + 3/y, {y, -5, 5}]

No unconstrained minimum exists, as the plot plainly shows, so this must
fail:

Minimize[V1[y] + 3/y, y]

Minimize::natt: The minimum is not attained at any point satisfying the
given constraints. >>

{-\[Infinity], {y -> 0}}

and so does this:

NMinimize[V1[y] + 3/y, y]

NMinimize::cvdiv: Failed to converge to a solution. The function may be
unbounded. >>

{-2.45422*10^15, {y -> -1.22238*10^-15}}

WITH constraints, however:

Minimize[{V1[y] + 3/y, y > 0}, y]

{Sqrt, {y -> Sqrt}}

Bobby

On Sat, 11 Apr 2009 02:54:03 -0500, owen <owenqunwu at hotmail.com> wrote:

> Hi,
>
> I tried to minimize a function which itself is a minimum value
> function.  I can plot the function, but cannot get a numerical solution:
>
> V1[y_] := Minimize[{0.5 x, x >= 2, x >= y}, {x}][];
> Plot[ V1[y] + 3/y, {y, 1, 5}]
> Minimize[  V1[y] + 3/y, {y, 1, 5}]
>
> Owen
>

--
DrMajorBob at bigfoot.com

```

• Prev by Date: Re: Replace Table[Sum...]...] with Functional code
• Next by Date: Re: Change in NSolve algorithm
• Previous by thread: Re: Help with Recursive Minimization