MathGroup Archive 2010

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

Search the Archive

Re: Table for 3D points


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




  • Prev by Date: Mathlink Issue
  • Next by Date: solving an integral
  • Previous by thread: Table for 3D points
  • Next by thread: Manually nested Tables faster than builtin nesting?