Re: List element extraction
- To: mathgroup at smc.vnet.net
- Subject: [mg53482] Re: List element extraction
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Fri, 14 Jan 2005 08:54:27 -0500 (EST)
- Organization: Uni Leipzig
- References: <cs5b2r$3rv$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
lst = {{120.664, {x -> -4.64844}}, {
118.131, {x -> -4.4542}}, {115.479, {x -> -4.25828}}, {
112.697, {x -> -4.06053}}, {109.766, {x -> -3.8606}}, {
106.666, {x -> -3.65812}}, {
103.372, {x -> -3.45257}}, {99.8501, {x -> -3.24323}}, {
96.0571, {x -> -3.02915}}, {
91.9343, {x -> -2.80902}}, {87.3996, {x -> -2.58106}}, {
82.3355, {x -> -2.34305}}, {76.5712, {x -> -2.09251}}, {
69.8594, {x -> -1.8273}}, {61.8567, {x -> -1.54659}}, {
52.1348, {x -> -1.25235}}, {40.3287, {x -> -0.952531}}, {
26.7404, {x -> -0.66784}}, {13.703, {x -> -0.434276}}, {
5.08285, {x -> -0.270745}}, {1.45243, {x -> -0.152066}}};
(x /. Cases[lst, {_Rule}, Infinity])/2
??
Regards
Jens
"Trinanjan Datta" <tdatta at physics.purdue.edu> schrieb im Newsbeitrag
news:cs5b2r$3rv$1 at smc.vnet.net...
> How do I extract the x values from the following list and divide them
> by 2:
>
> {{120.664, {x -> -4.64844}}, {
> 118.131, {x -> -4.4542}}, {115.479, {x -> -4.25828}}, {
> 112.697, {x -> -4.06053}}, {109.766, {x -> -3.8606}}, {
> 106.666, {x -> -3.65812}}, {
> 103.372, {x -> -3.45257}}, {99.8501, {x -> -3.24323}}, {
> 96.0571, {x -> -3.02915}}, {
> 91.9343, {x -> -2.80902}}, {87.3996, {x -> -2.58106}}, {
> 82.3355, {x -> -2.34305}}, {76.5712, {x -> -2.09251}}, {
> 69.8594, {x -> -1.8273}}, {61.8567, {x -> -1.54659}}, {
> 52.1348, {x -> -1.25235}}, {40.3287, {x -> -0.952531}}, {
> 26.7404, {x -> -0.66784}}, {13.703, {x -> -0.434276}}, {
> 5.08285, {x -> -0.270745}}, {1.45243, {x -> -0.152066}}}
>