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