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?