Re: Creating a list of 1x2 element arrays without procedural programming
- To: mathgroup at smc.vnet.net
- Subject: [mg132086] Re: Creating a list of 1x2 element arrays without procedural programming
- From: Roland Franzius <roland.franzius at uos.de>
- Date: Mon, 2 Dec 2013 01:59: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 01.12.2013 14:13, 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.}} Some more constructs latlong = {}; Do[AppendTo[latlong, {i, j}], {i, 30.0, 45.0, 5.0}, {j, -270.0, -240.0, 10.0}]; table = Flatten[ Table[{i, j}, {i, 30.0, 45.0, 5.0}, {j, -270.0, -240.0, 10.0}], 1]; array = Flatten[Array[{25.0 + 5 #1, -280.0 + 10 #2} &, {4, 4}], 1]; outer = Flatten[ Outer[List, Range[30.0, 45.0, 5.0], Range[-270.0, -240.0, 10.0]], 1]; functions1 = Flatten[Function[ x, {x, #1} & /@ Range[-270.0, -240.0, 10.0]] /@ Range[30.0, 45.0, 5], 1]; vectors = ({25.0, -280.0} + # &) /@ Flatten[Outer[List, ##] & @@ ((Range[1, 4]*# &) /@ {5, 10}), 1]; flc = Flatten[ Outer[List, ##] & @@ (({5 #, 10 #} &)[ Range[1, 4]] + {25.0, -280.0}), 1]; latlong == table == array == outer == functions == vectors == flc True -- Roland Franzius