Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

For to Map to Increase Speed

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53235] For to Map to Increase Speed
  • From: "Benedetto Bongiorno" <bbongiorno at attglobal.net>
  • Date: Sun, 2 Jan 2005 04:12:43 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

To MathGroup,

Is there a Map routine that can shorten the computation time of data to
data02?

The variable data is a list of 1036 lists within which are lists of
sublists of 1 or more, usually more.

I cannot flatten data because I need to keep the groupings (1036)  that was
created by Split.

Dimensions[data]

{1036}

data02={};

n=Length[data]+1;

For[i=1,i<n,i++,step1=Mean[ColumnTake[data[[i]],{4,21}]];

AppendTo[data02,Join[data[[i,1,{1,2}]],step1]]]

Dimensions[data02]

{1036,20}

 

Thank You



  • Prev by Date: Play restarting to early
  • Next by Date: Re: mathematica parser
  • Previous by thread: Re: Play restarting to early
  • Next by thread: Re: For to Map to Increase Speed