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