Re: Table for 3D points

*To*: mathgroup at smc.vnet.net*Subject*: [mg113436] Re: Table for 3D points*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Thu, 28 Oct 2010 04:28:40 -0400 (EDT)

pp3d = ParametricPlot3D[ {Cos[u], Sin[u] + Cos[v], Sin[v]}, {u, 0, 2*Pi}, {v, -Pi, Pi}]; pts = Cases[pp3d, {x_?NumericQ, y_?NumericQ, z_?NumericQ}, Infinity]; This table would have more than 9000 lines Length[pts] 9264 To look at the first few {u, v, x, y, z} for this plot Take[{ArcCos[#[[1]]], ArcSin[#[[3]]], Sequence @@ #} & /@ pts, 5] // Grid Bob Hanlon ---- Narasimham <mathma18 at hotmail.com> wrote: ============= How toTabulate points taken from ParametricPlot3D so that each point ( x,y,z coordinates as functions of u,v ) appears on a single line? Narasimham