Re: FindMinimum::nnum
- To: mathgroup at smc.vnet.net
- Subject: [mg54114] Re: FindMinimum::nnum
- From: "Valeri Astanoff" <astanoff at yahoo.fr>
- Date: Fri, 11 Feb 2005 03:33:27 -0500 (EST)
- References: <cuf3pm$gds$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
You have to prevent the inner FindMinimum to evaluate, should the
argument be not numeric :
In[1]:= ClearAll[f,x,y];
In[2]:= f[y_?NumericQ] := x /. Last@FindMinimum[Sin[x y],{x,2}]
In[3]:= FindMinimum[(2.3-f[y])^2,{y,1}]
Out[3]= {1.29512*^-18, {y -> 2.04886}}