Re: eliminate all the occurrences of "theta ->" and "lambda ->"

*To*: mathgroup at smc.vnet.net*Subject*: [mg85614] Re: eliminate all the occurrences of "theta ->" and "lambda ->"*From*: Januk <ggroup at sarj.ca>*Date*: Thu, 14 Feb 2008 18:55:07 -0500 (EST)*References*: <fp0m2u$5v7$1@smc.vnet.net>

Hi Richard, Are you sure your results aren't of the form: results = {{-5933.0186,{q -> 4.5785,l -> 1.0231}}} FindMaximum usually returns the maximum along with a list of replacement rules (as your subject line implies). If I'm correct, then you can use: {q,l} /. results[[All,2]] Good luck! On Feb 14, 1:11=A0am, "Richard Hofler" <rhof... at bus.ucf.edu> wrote: > Hello All, > > I'm relatively new to Mathematica. Here's my problem. > > I have this list that I generated from FindMaximum: > > results = {{-5933.0186,{q*4.5785,l*1.0231}}, > =A0 =A0{-5960.3876,{q*5.0002,l*1.0085}}, > =A0 =A0{-5929.7166,{q*3.9758,l*1.0951}}, > {-5929.4666,{q*3.9308,l*1.3277}}, > {-5933.7226,{q*4.7088,l*1.1294}}, > {-5928.0464,{q*3.6767,l*1.1019}}}; > > How do I eliminate all the occurrences of "q*" and "l*" > to transform it into this list? > > {{4.5785,1.0231},{5.0002,1.0085},{3.9758,1.0951}, > {3.9308,1.3277},{4.7088,1.1294},{3.6767,1.1019}} > > BTW, I can evaluate this function > > Take[Partition[Flatten[results],3],All,2;;3] > > to get to this point: > > {{q*4.5785,l*1.0231},{q*5.0002,l*1.0085},{q*3.9758,l*1.0951},{q*3.9308,l > *1.3277},{q*4.7088,l*1.1294},{q*3.6767,l*1.1019}} > > $Version > 6.0 for Microsoft Windows (32-bit) (June 19, 2007) > > Thanks very much for any help that you may offer. > Richard > > Richard Hofler > Professor > Department of Economics > College of Business Administration > P.O. Box 161400 > University of Central Florida > Orlando, FL 32816-1400 > 407-823-2606