Re: How do I combine Solve and Maximize?

*To*: mathgroup at smc.vnet.net*Subject*: [mg65766] Re: How do I combine Solve and Maximize?*From*: "Chris Chiasson" <chris.chiasson at gmail.com>*Date*: Mon, 17 Apr 2006 02:28:03 -0400 (EDT)*References*: <e1suac$c5q$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

David: This can't be (all of) your real Mathematica code, as there is only one error from the cut and pasted code: Solve::eqf x>0 is not a well formed equation I recommend pasting (all of the InputForm) of your code. Also, what is A980? One problem is the use of Solve on a system of equations/inequalities that is not algebraic (well, I could be wrong). You could use FindRoot in this case, because your inequality is a restriction on the independant variable. Another problem is the use of SetDelayed (its infix form looks like this := ) when it wouldn't produce dfferent output than using Set (its infix form looks like this = ). Since one of your comments says "What values of x causes f1==80", I would recommend: In[8]:= f[x_,y_]=-(x-10)^2-(y-10)^2+100; In[9]:= Maximize[{f[x,y],y>0,x>0},{x,y}] Out[9]= {100,{x\[Rule]10,y\[Rule]10}} or maybe the RootSearch package someone mentioned a few days ago or you could just use calculus?? Good Luck,