How can I automate this problem in a mathematica notebook?

*To*: mathgroup at smc.vnet.net*Subject*: [mg74044] How can I automate this problem in a mathematica notebook?*From*: tnad <terry_najdi at hotmail.com>*Date*: Wed, 7 Mar 2007 03:14:07 -0500 (EST)*Organization*: The Math Forum

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 :)

**Follow-Ups**:**Re: How can I automate this problem in a mathematica notebook?***From:*"Chris Chiasson" <chris@chiasson.name>