Re: smooth 3Dplot with big mesh
- To: mathgroup at smc.vnet.net
- Subject: [mg20864] Re: smooth 3Dplot with big mesh
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Thu, 18 Nov 1999 01:09:40 -0500 (EST)
- References: <80tqhk$2pi@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Christoph
<< Graphics`ParametricPlot3D`
CylindricalPlot3D[{Sin[5 f], EdgeForm[]}, {r, 2, 4}, {f, 0, 2 Pi},
PlotPoints -> 100]
(see ParametricPlot3D in HelpBrowser)
Or more economically,
CylindricalPlot3D[{Sin[5 f], EdgeForm[]}, {r, 2, 4}, {f, 0, 2 Pi},
PlotPoints -> {2, 100}]
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
Christoph Handel <nospam at pc237.mechanik.tu-darmstadt.de> wrote in message
news:80tqhk$2pi at smc.vnet.net...
> 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)
>
> Greetings
> Christoph
>
> PS: its Mathematica 3 under NT
>
> --
> the adress is valid
> for faster reply use handel at the same host
>