Re: Nested Lists

• To: mathgroup at smc.vnet.net
• Subject: [mg28387] Re: [mg28373] Nested Lists
• From: BobHanlon at aol.com
• Date: Sun, 15 Apr 2001 00:13:38 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```n = 5;

data = Table[{ToExpression["t"<>ToString[t]],
Table[{ToExpression["x"<>(lab = ToString[10t+s])],
ToExpression["y"<>lab], ToExpression["z"<>lab]}, {s, 4}]}, {t,
n}];

pos = 4;

Table[Flatten[{data[[k, 1]], data[[k, 2, pos]]}], {k, n}]

{{t1, x14, y14, z14},
{t2, x24, y24, z24},
{t3, x34, y34, z34},
{t4, x44, y44, z44},
{t5, x54, y54, z54}}

Bob Hanlon

In a message dated 2001/4/14 3:01:03 AM, rlove at neosoft.com writes:

>The data consists of a timestamp on a line and then the 3D position of
>
>each of the N objects for that time.  N is always the same number
>so I read it it like this:
>
>
>I'm doing this from memory since the computer w/Mathematica is at work.
>So I may not have every  detail of the ReadList correct but what I end
>up
>with is
>
>{{t1,{{x,y,z},{x,y,z},{x,y,z},{x,y,z}},
> {t2,{{x,y,z}...
>
>
>My question is now  do I extract this  suitable for graphing, that is,
>how
>do I turn this into something like a set of all the object #4 positions
>along with the time?  I'm sure there is some combination of Flatten, Take,
>Transpose and Map that  will do what I want.  What is it?  Also, is there
>a better way to use  ReadList?  I'm stuck with the file format but I can
>change how I read the data.
>

```

• Prev by Date: Re: log x > x - proof?
• Next by Date: exporting a .bmp sequence of an animation
• Previous by thread: Re: log x > x - proof?
• Next by thread: RE: Nested Lists