Re: Creating a list of 1x2 element arrays without procedural programming

• To: mathgroup at smc.vnet.net
• Subject: [mg132087] Re: Creating a list of 1x2 element arrays without procedural programming
• From: "Nasser M. Abbasi" <nma at 12000.org>
• Date: Mon, 2 Dec 2013 01:59:42 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-outx@smc.vnet.net
• Delivered-to: mathgroup-newsendx@smc.vnet.net
• References: <l7fckt\$k44\$1@smc.vnet.net>

```On 12/1/2013 7:13 AM, amannucci wrote:
> Is there a way in Mathematica using built-in functions to create what the following
>procedural program does?
>
> latlong = {}
> Do[AppendTo[latlong, {i, j}] , {i, 30.0, 45.0,
>     5.0}, {j, -270.0, -240.0, 10.0}];
> latlong
>
> Out:
> {{30., -270.}, {30., -260.}, {30., -250.}, {30., -240.}, {35., \
> -270.}, {35., -260.}, {35., -250.}, {35., -240.}, {40., -270.}, {40., \
> -260.}, {40., -250.}, {40., -240.}, {45., -270.}, {45., -260.}, {45., \
> -250.}, {45., -240.}}
>
> Thanks!
>
> -Tony
>

many ways. One way

lst1 = Range[30.0, 45.0, 5.0];
lst2 = Range[-270.0, -240.0, 10.0];
Flatten[Map[ Thread[{#, lst2}] &, lst1], 1];

--Nasser

```

• Prev by Date: Re: Creating a list of 1x2 element arrays without procedural programming
• Next by Date: Re: Cubic Bezier Curves Intersection
• Previous by thread: Re: Creating a list of 1x2 element arrays without procedural programming
• Next by thread: Parameters for the Stereographic projection in GetProjectionData