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?
>
- References:
- working with nested lists
- From: Levente <lemonlev@mac.com>
- working with nested lists