RE: extracting a list to a list, help please

*To*: mathgroup at smc.vnet.net*Subject*: [mg46174] RE: [mg46155] extracting a list to a list, help please*From*: "David Park" <djmp at earthlink.net>*Date*: Tue, 10 Feb 2004 00:05:41 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Serge, This is where pure functions and functional programming come in handy. We want to Take the first two items of each sublist, and we would like to Map that action onto all the sublists in mylist1. mylist1 = {{a1, b1, c1, d1}, {a2, b2, c2, d2}, {a3, b3, c3, d3}}; Take[#, 2] & /@ mylist1 {{a1, b1}, {a2, b2}, {a3, b3}} Take[#, 2]& is a pure function. It will take the first two items of any object it operates on. /@ is the Mathematica shorthand for Map. It causes the Take function to operate on all the first level items in mylist1. You might want to look up Take, Map and pure functions in Help. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Serge [mailto:nospam at nospam.com] To: mathgroup at smc.vnet.net Hello, I am a beginner in Mathematica and I have a rather simple question. I made some calculations that I need for an orbit and I have a list that look like this: mylist1 = {{a1,b1,c1,d1},{a2,b2,c2,d2},{a3,b3,c3,d3},etc} All I want to do is to make a list of the form mylist2 = {{a1,b1},{a2,b2},{a3,b3},etc} from the original list (mylist1), so that I can ListPlot those pairs of points (they represent x and y coordinates for some orbit). I am having trouble figuring out how to do this. I tried using the Table command but I couldn't get it into the above form. I would greatly appreciate if someone can help me out. Thanks so much. Best, Serge