Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: Defining functions in mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg85592] Re: Defining functions in mathematica
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 14 Feb 2008 06:26:44 -0500 (EST)
  • Organization: Uni Leipzig
  • References: <fp0lhr$5ls$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

since I have no profit, and also no profit1 I make f instead of profit

f = FunctionInterpolation[(x - 1/4)^2 + y^2, {x, -2, 2}, {y, -2, 2}];
NMinimize[f[x, y], {x, y}]

and got the result.
Regards
   Jens

lederer at ssb.rochester.edu wrote:
> I am trying to maximize an interpolated function without success
> 
> Here is what I have tried:  first I defined the interpolated function
> 
> f= FunctionInterpolation[profit1[p1,p2,ab],{p1,0,2},{p2,0,2},{ab,0,2}]
> 
> To test this definition I try and see that   f[.1,.3,.4]  is evaluated
> properly.  It is properly evaluated as a  real number.
> 
> Then I try to find the x that Maximizes f
> 
> 
> Maximize[{ f[x, .2, .1], 0=98x=982] }, x]
> 
> 
> but what comes out is
> 
> Maximize[{InterpolatingFunction[{{0,2}{0,2},{0,2), etc.
> 
> Further when I try
> 
> x/.Last [ Maximize[{ f[x, .2, .1], 0=98x=982] }, x] ]
> 
> what comes out is
> 
> x/.x
> 
> What am I doing wrong?
> 
> Also, I eventually want to define a function G[p2,ab] that takes on
> the value of the maximizing x for these values.
> that is
> 
> G[p2_,ab_]=x/.Last [ Maximize[{ f[x, .2, .1], 0=98x=982] }, x] ]
> 
> How can I do this?
> 
> 
> Thanks,
> 
> Phil
> 
> 
> 
> 


  • Prev by Date: Re: eliminate all the occurrences of "theta ->" and "lambda ->"
  • Next by Date: Re: Automatic Differentiation in Mathematica
  • Previous by thread: Re: Defining functions in mathematica
  • Next by thread: Re: eliminate all the occurrences of "theta ->" and "lambda ->"