Re: working with nested lists

• To: mathgroup at smc.vnet.net
• Subject: [mg127718] Re: working with nested lists
• From: Tomas Garza <tgarza10 at msn.com>
• Date: Thu, 16 Aug 2012 01:59:37 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20120815073426.2CC1E684B@smc.vnet.net>

```I wonder if this is what you want?
In[1]:= {#[[1]], #[[2]], -1/Sin[#[[1]]]} & /@ # & /@ myList

Out[1]= {{{-0.582155, 278.265, 1.81876}, {-0.584441, 155.871, 1.81247}, {-1.05854,

27.534, 1.14726}}, {{-0.670521, 148.054, 1.60929}, {-2.88281, 70.342,

3.90776}}}
-Tomas

> From: lemonlev at mac.com
> Subject: working with nested lists
> To: mathgroup at smc.vnet.net
> Date: Wed, 15 Aug 2012 03:34:26 -0400
>
> I'm trying to apply a transformation to a every element in a nested list.  The issue is that each sub-list has a different length
>
> Example of the list:
> myList={{{-33.355 Degree, 278.265}, {-33.486 Degree,
>   155.871}, {-60.650 Degree, 27.534}},
> {{-38.418 Degree, 148.054}, {-165.173 Degree, 70.342}}};
>
> This is what I am trying and does not work:
> Do[
>  Table[{myList[[k, i, 1]], myList[k, i, 2]] (-1)/Sin[myList[[k, i, 1]]]}, {i,
>    Length[myList[[k]]]}], {k, Length[myList]}]
>
> Any tips?
>

```

• Prev by Date: Wolfram Alpha Examples website and cross-site scripting issue
• Next by Date: Re: Find Position of many elements in a large list.
• Previous by thread: Re: working with nested lists
• Next by thread: Re: working with nested lists