Re: Creating a list of 1x2 element arrays without procedural programming
- To: mathgroup at smc.vnet.net
- Subject: [mg132077] Re: Creating a list of 1x2 element arrays without procedural programming
- From: "Dr. Wolfgang Hintze" <weh at snafu.de>
- Date: Mon, 2 Dec 2013 01:56:22 -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>
Am Sonntag, 1. Dezember 2013 14:13:01 UTC+1 schrieb amannucci:
> 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
In[23]:= Flatten[
Table[{30 + 5*i, -270 + 10*j}, {i, 0, 3}, {j, 0, 3}], 1]
Out[23]= {{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}}
Regards,
Wolfgang