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

Re: How to suppress the mesh in ParametricPlot3D ?

• To: mathgroup at smc.vnet.net
• Subject: [mg35275] Re: How to suppress the mesh in ParametricPlot3D ?
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Sat, 6 Jul 2002 05:44:16 -0400 (EDT)
• References: <ag3en0$73b$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

"Jos R Bergervoet" <antispam at nospam.com> wrote in message
news:ag3en0$73b$1 at smc.vnet.net...
> How can I get a partametric 3D plot without gridlines on it? I tried
> "Mesh -> False" (also SurfaceMesh) but to no avail!
>
>
>   sphere = {Sin[v]Cos[u], Sin[v]Sin[u], Cos[v]}
>
>   ParametricPlot3D[sphere, {u,0,2Pi}, {v, 0,Pi}, PlotPoints -> 50]
>                                                    (* OK, but meshed *)
>
>   ParametricPlot3D[sphere, {u,0,2Pi}, {v, 0,Pi},
>        PlotPoints -> 50, Mesh -> False]            (* not accepted *)



Jos,

Mesh  is not an option for ParametricPlot3D ( check
Options[ParametricPlot3D])
However we have

     sphere={Sin[v]Cos[u],Sin[v]Sin[u],Cos[v]};

Meshed:
(Evaluate shows ParametricPlot what it is dealing with)

    ParametricPlot3D[Evaluate[sphere],{u,0,2Pi},{v,0,Pi},PlotPoints->50];

Unmeshed:

    ParametricPlot3D[{Sin[v]Cos[u],Sin[v]Sin[u],Cos[v],
EdgeForm[]},{u,0,2Pi},{v,
          0,Pi},PlotPoints->50];

Or equivalently:

    ParametricPlot3D[Evaluate[Append[sphere,EdgeForm[]]],{u,0,2Pi},{v,0,Pi},
          PlotPoints->50]

--
Allan

---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565


"Jos R Bergervoet" <antispam at nospam.com> wrote in message
news:ag3en0$73b$1 at smc.vnet.net...
> How can I get a partametric 3D plot without gridlines on it? I tried
> "Mesh -> False" (also SurfaceMesh) but to no avail!
>
>
>   sphere = {Sin[v]Cos[u], Sin[v]Sin[u], Cos[v]}
>
>   ParametricPlot3D[sphere, {u,0,2Pi}, {v, 0,Pi}, PlotPoints -> 50]
>                                                    (* OK, but meshed *)
>
>   ParametricPlot3D[sphere, {u,0,2Pi}, {v, 0,Pi},
>        PlotPoints -> 50, Mesh -> False]            (* not accepted *)
>
>
> Thanks for any clues,
>
> Jos
>