Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: create a list with x,y,z coordinates

  • To: mathgroup at smc.vnet.net
  • Subject: [mg81577] Re: create a list with x,y,z coordinates
  • From: Norbert Marxer <marxer at mec.li>
  • Date: Fri, 28 Sep 2007 02:10:50 -0400 (EDT)
  • References: <fdf2ol$2i7$1@smc.vnet.net>

On 27 Sep., 03:58, Claus <claus.hasla... at web.de> wrote:
> Hi,
> I have a list of z-values:
>
> zVals={13, 8, 15, 9, 15, 8, 11, 2, 18, 8, 5, 10, 11, 10, 9, 14, 6, 23,
> 6, 14, 16, 5, 10, 5, 18, 10, 11, 10, 15, 8, 6, 23, 6, 17, 6, 12, 9, 17,
> 4, 8, 18, 4, 18, 9, 13, 9, 14, 6, 10, 6, 5, 13, 5, 10, 6, 19, 8, 17, 9,
> 16, 15, 5, 13, 5, 11, 9, 16, 2, 21, 11, 4, 15, 7, 10, 7, 16, 10, 14, 7,
> 18, 17, 8, 15, 11, 14, 5, 14, 4, 13, 6, 8, 16, 8, 22, 8, 6, 9, 13, 5, 12}
>
> These z-values are at grid points in a regularly spaced mesh, indices i
> and j correspond to coordinates x and y, respectively. I can create the
> mesh by
>
> Table[{i,j},{i,0.05,1,0.1},{j,0.05,1,0.1}]
>
> What is the best way in mathematica to "append" the z-values to the
> (x,y)values?
> I know that they are in order corresponding to the (x,y)values; that is
> 13 corresponds to (0.05,0.05) and 12 corresponds to (0.95,0.95).
>
> Thanks for your help,
> Claus

Hello

There are many different solutions:

Using your data:

zVals = {13, 8, 15, 9, 15, 8, 11, 2, 18, 8, 5, 10, 11, 10, 9, 14, 6,
   23, 6, 14, 16, 5, 10, 5, 18, 10, 11, 10, 15, 8, 6, 23, 6, 17, 6,
   12, 9, 17, 4, 8, 18, 4, 18, 9, 13, 9, 14, 6, 10, 6, 5, 13, 5, 10,
   6, 19, 8, 17, 9, 16, 15, 5, 13, 5, 11, 9, 16, 2, 21, 11, 4, 15, 7,
   10, 7, 16, 10, 14, 7, 18, 17, 8, 15, 11, 14, 5, 14, 4, 13, 6, 8,
   16, 8, 22, 8, 6, 9, 13, 5, 12};
tbl = Table[{i, j}, {i, 0.05, 1, 0.1}, {j, 0.05, 1, 0.1}];

You can use e.g. one of the 4 solutions:

MapThread[Append, {tbl, Partition[zVals, 10]}, 2]

MapThread[Join, {tbl, Partition[({#1} & ) /@ zVals, 10]}, 2]

Partition[ MapThread[Join, {Flatten[tbl, 1], ({#1} & ) /@ zVals}, 1],
10]

k = 0; Table[ k = k + 1; {i, j, zVals[[k]]}, {i, 0.05, 1, 0.1}, {j,
0.05, 1, 0.1}]

I hope this helps.

Best Regards
Norbert Marxer




  • Prev by Date: Re: ScaleFunction vs. ScaleFactor
  • Next by Date: Re: Re: Fitting parameters of nonlinear diff equation system
  • Previous by thread: Re: create a list with x,y,z coordinates
  • Next by thread: Re: create a list with x,y,z coordinates