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 >