MathGroup Archive 2010

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

Search the Archive

Re: ParametricPlot3D with three parameters

  • To: mathgroup at smc.vnet.net
  • Subject: [mg108272] Re: ParametricPlot3D with three parameters
  • From: Narasimham <mathma18 at hotmail.com>
  • Date: Fri, 12 Mar 2010 07:10:47 -0500 (EST)
  • References: <hnakg8$5o2$1@smc.vnet.net> <hnankc$977$1@smc.vnet.net>

On Mar 11, 5:27 pm, dh <d... at metrohm.com> wrote:
> Hi Narasimham,
> what you want to plot is not a hypersurface but a region in 3D space.
> You could plot the enlosing surfaces, but this is laborious . The
> easiest way to do this is: "RegionPlot3D"  like e.g.:
>
> RegionPlot3D[1 < x^2 + y^2 + z^2 < 2, {x, 0, 2}, {y, 0, 2}, {z, 0, 2}]
>
> Daniel
>
> On 11.03.2010 12:34, Narasimham wrote:
>
>
>
>
>
> > 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
>
> --
>
> Daniel Huber
> Metrohm Ltd.
> Oberdorfstr. 68
> CH-9100 Herisau
> Tel. +41 71 353 8585, Fax +41 71 353 8907
> E-Mail:<mailto:d... at metrohm.com>
> Internet:<http://www.metrohm.com>

Thanks..  I want to see the projecting out surfaces rather than the
enveloping space. If u = const and v = constant are latitude and
longitude lines on the globe, we get a finned cage or curved grill
over the globe consisting of two Gitter sets, one rib surface running
for u = const and w = constant as longitudes, where ribs stick
normally out of the spherical surface and another surface as v = const
and w = constant providing latitude fins/ribs.

I expected that may be only a couple of lines only need to be added in
the central part (without Options) in the Mathematica code for
ParametricPlot3D.

I see no reason why if ListPlot3D etc. can give the points in a Table
for three parameter surface embeddings in 3-space, then they cannot be
plotted in a proper desired sequence.

Erroneous usage of 'hyper space ' was partly  deliberate, as I do not
know of the proper conceptually continuing word in mathematics  for
Line, Surface, ... Next ??

Regards,

Narasimham






  • Prev by Date: Re: Trouble with coupled quadratic equations where the
  • Next by Date: Re: bad Mathieu functions
  • Previous by thread: Re: ParametricPlot3D with three parameters
  • Next by thread: plot solution derivative