Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

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