MathGroup Archive 1999

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

Search the Archive

Re: Q: smooth 3Dplot with big mesh

  • To: mathgroup at smc.vnet.net
  • Subject: [mg20861] Re: [mg20837] Q: smooth 3Dplot with big mesh
  • From: Hartmut Wolf <hwolf at debis.com>
  • Date: Thu, 18 Nov 1999 01:09:38 -0500 (EST)
  • Organization: debis Systemhaus
  • References: <199911170840.DAA02585@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Christoph Handel schrieb:
> 
>         howdy,
> 
> i need to plot this function (Cylindrical Coordinates)
> 
> Sin[5 f]
> 
> So i load the package <<Graphics`ParametricPlot3D` an use
> 
> CylindricalPlot3D[
>    Sin[5 f],
>    {r,2,4},
>    {f,0,2 Pi}
> ]
> 
> I would like to have a smooth curve, so i add
> 
> PlotPoints -> 100 (ok now its real smooth ;-)
> 
> but now there is an ugly black mesh drawn on the graphic. I can't see
> anything. Is there a way to make a smooth plot with y cylindrical mesh
> having reasonable spaces (e.g. drawing the mesh for every 6th
> calculatet point or something like that)
> 

Hallo Christoph,

after having plotted your graph finely at PlotPoints -> 100 you can get
rid of that blurring mesh with

  Show[MapAt[{EdgeForm[], #} &, %, 1]]

Then, if you want another mesh, just draw over this.

Hartmut


  • Prev by Date: Angular format
  • Next by Date: Re: Q: smooth 3Dplot with big mesh
  • Previous by thread: Q: smooth 3Dplot with big mesh
  • Next by thread: Re: Q: smooth 3Dplot with big mesh