Drexel dragonThe Math ForumDonate to the Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.

Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: [mg5389] Q:Nicer than: Function[x,MapAt[Im,x,2]]/@data
Replies: 0  

Advanced Search

Back to Topic List Back to Topic List  
Allan Hayes

Posts: 1,508
Registered: 12/6/04
[mg5389] Q:Nicer than: Function[x,MapAt[Im,x,2]]/@data
Posted: Dec 6, 1996 11:48 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

[mg5389] Q:Nicer than: Function[x,MapAt[Im,x,2]]/@data
I want to ListPlot the imaginary part of data:


The x? are real, the z? complex.

My simple but ugly solution was


after reading a little I came to the shorter


Is there a nicer way to do it?

Some Experiments:

lst = Table[{Random[],Random[]+I Random[]},{2000}];

Function[x,MapAt[Im,x,2]]/@lst;//Timing (*your "shorter" one*)
{1.25 Second, Null}

MapAt[Im,#,2]&/@lst;//Timing (*faster function*)
{0.7 Second, Null}

Apply[{#,Im[#2]}&,lst,1];//Timing (*use Apply*)
{0.466667 Second, Null}

lst/.Complex[x_,y_]:>y;//Timing (*pattern matching*)
{0.483333 Second, Null}

lst/.{a_,Complex[x_,y_]}:>{a,y};//Timing (*help matching*)
{0.383333 Second, Null}

MapAt[Im,Transpose[lst],{2}]//Transpose;//Timing (*your "ugly" one*)
{0.3 Second, Null}

MapAt[Im,Thread[lst],{2}]//Thread;//Timing (*Thread faster
than Transpose*)
{0.25 Second, Null}

Allan Hayes

Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© The Math Forum 1994-2015. All Rights Reserved.