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
- References:
- Q: smooth 3Dplot with big mesh
- From: nospam@pc237.mechanik.tu-darmstadt.de (Christoph Handel)
- Q: smooth 3Dplot with big mesh