Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• Follow-Ups:
  • Re: For to Map to Increase Speed
    • From: Yasvir Tesiram <tesiramy@omrf.ouhsc.edu>