FW: eliminate all the occurrences of "theta ->" and "lambda ->" THANK YOU

*To*: mathgroup at smc.vnet.net*Subject*: [mg85603] FW: eliminate all the occurrences of "theta ->" and "lambda ->" THANK YOU*From*: "Richard Hofler" <rhofler at bus.ucf.edu>*Date*: Thu, 14 Feb 2008 18:49:27 -0500 (EST)

Hello All, Thank you very much for your replies. Eight (!) of you answered my question and the problem is solved. Richard _____________________________________________ From: Richard Hofler Sent: Wednesday, February 13, 2008 10:29 AM To: mathgroup at smc.vnet.net Subject: [mg85603] eliminate all the occurrences of "theta ->" and "lambda ->" 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}}, {-5960.3876,{q*5.0002,l*1.0085}}, {-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