Re: Q:Nicer than: Function[x,MapAt[Im,x,2]]/@data

*To*: mathgroup at smc.vnet.net*Subject*: [mg5457] Re: Q:Nicer than: Function[x,MapAt[Im,x,2]]/@data*From*: Clemens Frey <Clemens.Frey at uni-bayreuth.de>*Date*: Sat, 7 Dec 1996 00:26:35 -0500*Organization*: uni-bayreuth.de*Sender*: owner-wri-mathgroup at wolfram.com

rommel at bc.edu wrote: > > I want to ListPlot the imaginary part of data: > > data={{x0,z0},{x1,z1},{x2,z2}} > > The x? are real, the z? complex. > > My simple but ugly solution was > > Transpose[{Transpose[data][[1]],Im[Transpose[data][[2]]]}] > > after reading a little I came to the shorter > > Function[x,MapAt[Im,x,2]]/@data > > Is there a nicer way to do it? Hi, pattern matching can do a good job here. Just having defined data = {{1.,I},{2,1+2*I}}; try the following: data /. {_Real,y_} -> Im[y] /. {_Integer,y_} -> Im[y] to get a list of imaginary parts of the second components of the pairs in the list. If you are sure that all first components are really Real (other than in the example above!), then you can drop the "/. {_Integer,y_} -> Im[y]" - thing. I used _Real instead of _ alone to avoid problems with lists of two pairs, on which {_,y_} would also match :-{. Hope this is what you needed Clemens (-: Clemens.Frey at uni-bayreuth.de :-)