Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

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




  • 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?