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

*To*: mathgroup at smc.vnet.net*Subject*: [mg81778] Re: create a list with x,y,z coordinates*From*: Donald DuBois <donabc at comcast.net>*Date*: Wed, 3 Oct 2007 02:35:06 -0400 (EDT)

> 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 > Claus, Given: 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}; xyVals = Table[{i, j}, {i, 0.05, 1, 0.1}, {j, 0.05, 1, 0.1}]; This will join each element of zVals to the appropriate element in xyVals: f[xyPair_List, zValue_] := Join[xyPair, {zValue}] MapThread[f, { Flatten[xyVals, 1], zVals}] Regards, Don