Re: How can I automate this problem in a mathematica notebook?

*To*: mathgroup at smc.vnet.net*Subject*: [mg74076] Re: How can I automate this problem in a mathematica notebook?*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Thu, 8 Mar 2007 04:44:00 -0500 (EST)*References*: <eslsqe$q5a$1@smc.vnet.net>

Hi, answer[q_?NumericQ,alpha??NumericQ]:= "a pretty long equation in terms of q and alpha" maxf[alpha_?NumericQ]:=Maximize[{answer[q,alpha], {0 < q < 1}}, q] Plot[maxf[alpha],{alpha,0.25,1}] ?? Regards Jens tnad wrote: > I was asked to automate the problem below in mathematica: > > I'm using a function called answer[q_] in terms of two parameters alpha and q. > > > answer[q_]:= "a pretty long equation in terms of q and alpha" > > The maximum values of q can be obtained from this: > > Maximize[{answer[q], {0 < q < 1}}, q] > > but obviously I need to specify a value for alpha to get a maximum value for q > > So basically I want to plot answer[q] for values of alpha between 0.25 and 1 such that q is maximum in answer[q] (maximum q will be different for a the different alpha values). > > I hope someone can tell me how to code this so that it is automated in mathematica. I'm guessing this should be an easy problem for you people :) >