Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: working with nested lists

• To: mathgroup at smc.vnet.net
• Subject: [mg127713] Re: working with nested lists
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Thu, 16 Aug 2012 01:57:57 -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>

"Unless an explicit Return is used, the value returned by Do is Null."

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}}};

m1 = Table[
   Table[{myList[[k, i, 1]],
     myList[[k, i, 2]] (-1)/Sin[myList[[k, i, 1]]]},
    {i, Length[myList[[k]]]}],
   {k, Length[myList]}];

m2 = ((# /. {a_, b_?NumericQ} -> {a, -b*Csc[a]}) & /@ myList);

m3 = Map[{#[[1]], -#[[2]]*Csc[#[[1]]]} &, myList, {2}];

m1 === m2 === m3

True


Bob Hanlon


On Wed, Aug 15, 2012 at 3:34 AM, Levente <lemonlev at mac.com> wrote:
> 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>