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 >