Re: Re: Can anybody help?
- To: mathgroup at smc.vnet.net
- Subject: [mg63691] Re: [mg63671] Re: Can anybody help?
- From: Pratik Desai <pdesai1 at umbc.edu>
- Date: Tue, 10 Jan 2006 01:48:45 -0500 (EST)
- References: <dpd7hj$qi2$1@smc.vnet.net> <dpdjn5$5gr$1@smc.vnet.net> <200601090949.EAA29692@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Peter Pein wrote: >Ray Koopman schrieb: > > >>Kent Holing wrote: >> >> >> >>>I have three vecors containg: v1, v2 and v3. >>>v1 and v2 has the same length. v3 is shorter than v1. >>>All elements of v3 is an element of v1. >>>Need to have the corresponding v2 values corresponding to the v3 (= v1) value. >>>Know that the elements of v1 and v3 are different. The elements of v2 do not need to different. >>>Ex: >>>v1={1,2,3,4,5,6,7,8,9} >>>v2={10,11,12,22,32,42,53,63,73} >>>v3={3,5,8} >>>The corresponding v2 values are {11,32,63} >>>It easy to write straightforward code to do this. >>>But is it really a very elegant/short way (one-liner?) of doing this in Mathematica? >>>Kent Holing >>> >>> >>Pick[v2,MemberQ[v3,#]&/@v1] >> >> >> >The syntax of Pick allows Pick[v2, v1, #] & /@ v3 // Flatten, which I would >prefer, because it is less nested. But it's a matter of taste. > >Peter > > > Here is my two cent worth as well Extract[v2,#]&/@Intersection[v1,v3] Pratik
- References:
- Re: Can anybody help?
- From: Peter Pein <petsie@dordos.net>
- Re: Can anybody help?