ParametricPlot3D with three parameters
- To: mathgroup at smc.vnet.net
- Subject: [mg108223] ParametricPlot3D with three parameters
- From: Narasimham <mathma18 at hotmail.com>
- Date: Thu, 11 Mar 2010 06:34:44 -0500 (EST)
Clear[t,ph];
R=1; ph = Pi/8 ;
line=R{Cos[ph]Cos[t], Cos[ph]Sin[t] ,Sin[ph]};
Lati=ParametricPlot3D[line,{t,0,Pi}]
surf=Table[R{Cos[ph]Cos[t], Cos[ph]Sin[t] ,Sin[ph]}, {ph,0,1.3,.12},{t,
0,Pi,Pi/16.}];
Needs["Graphics`Graphics3D`"];
sph=ListSurfacePlot3D[surf]
Show[{Lati,sph},PlotRange->All]
hypsurf=Table[R{ Cos[ph]Cos[t], Cos[ph]Sin[t] ,Sin[ph]}, {ph,
0,1.3,.12},{t,0,Pi,Pi/16.},{R,1,1.15,0.05}] ;
hy=ListSurfacePlot3D[hypsurf]
Show[{Lati,sph,hy},PlotRange->All]
" The ParametricPlot3D accepts coords in 3 D by one set of
independent parameters to form lines in space,
two sets of independent parameters for surfaces in space, but not
three sets of parameters for hypersurfaces in space.How to form
concentric spherical surfaces here, like onion layers? I am attempting
to form coordinate sets from _three_ parameters.
ListSurfacePlot3D is reverted to here as there is at present no
command like
ParameterPlot3D[ f{u,v,w},g{u,v,w},h{u,v,w},{u,u1,u2},{v,v1,v2},
{w,w1,w2}] in Mathematica. I feel or would like to suggest that this
last command if made available in Mathematica would be great for solid
modelling and hyperspaces, no matter large volume of layered data. "
Table[R{ Cos[ph]Cos[t], Cos[ph]Sin[t] ,Sin[ph]}, {ph,0,1.3,.12},{t,
0,Pi,Pi/16.},{R,1,1.15,0.05}];
ListSurfacePlot3D[%, PlotLabel->" How to Remove curly brackets?"]
Best Regards
Narasimham