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: [mg127722] Re: working with nested lists
  • From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
  • Date: Fri, 17 Aug 2012 03:42:03 -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

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?


Is this:

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

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

{{{-0.582155, 506.098}, {-0.584441, 282.512}, {-1.05854,
   31.5887}}, {{-0.670521, 238.261}, {-2.88281, 274.879}}}

What you are after?


Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG

Office phone :  +352-2454-2566
Office fax:       +352-2454-3566
mobile phone:  +49 151 52 40 66 44

e-mail: alexei.boulbitch at iee.lu







  • Prev by Date: Re: Drawing a Line From One Plot to Another
  • Next by Date: slow speed for changing the Viewpoint with 3D graphics
  • Previous by thread: Re: working with nested lists
  • Next by thread: Clear Citation Style Cache?