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