Re: Simple Module Code
- To: mathgroup at smc.vnet.net
- Subject: [mg49571] Re: Simple Module Code
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Fri, 23 Jul 2004 06:01:34 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 7/22/04 at 2:45 AM, umdougmm at hotmail.com (Doug) wrote:
>Does anyone know why the following code would not work inside a
>module? list = AppendTo[list, data];
>here's the exact code splitData[data_, list_, i_] := Module[{},
>Print["In Split Data ", i];
>If[data[[i,1]]==1, list = AppendTo[list, data[[i, 2]]]];
>Print["Length of list is: ", Length[list]];
>]
>which is called by: Do[splitData[data, list, i], {i, 1,
>Length[data]}]
>It complains about to many recursions, yet on the command line
>alone, list = AppendTo[list, data]; works just fine?
It appears your goal is to extract column 2 from a data list having at least two columns. If so, you are certainly doing things the hard way. If data is a n x m matrix, then
c = data[[All, 2]] will be vector with the values of column 2, i.e.,
data = Table[Random[], {i, 5}, {j, 5}];
c = data[[All,2]];
And @@ MapThread[#1 == #2[[2]]&, {c, data}]
True
--
To reply via email subtract one hundred and four