       RE: Q: smooth 3Dplot with big mesh

• To: mathgroup at smc.vnet.net
• Subject: [mg20865] RE: [mg20837] Q: smooth 3Dplot with big mesh
• From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
• Date: Thu, 18 Nov 1999 01:09:41 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```pc237.mechanik.tu-darmstadt.de   wrote:
-------------------------------------------
>
> 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)
>
-----------------------------------

I can't figure out how to show a mesh for every 6th point or anything like
that and get a nice looking graphic.

However, you can prevent the display of a mesh by putting EdgeForm[] at the
beginning of the list of Graphics3D primitives that CylindracalPlot3D
returns. The code below will do this for you.  If you aren't familiar with

In:=
plt1=CylindricalPlot3D[Sin[5f],{r,2,4},{f,0,2 Pi},
PlotPoints->100,DisplayFunction->Identity];

In:=
plt2=Insert[plt1,EdgeForm[],{1,1}];

In:=
Show[plt2,DisplayFunction->\$DisplayFunction];

(* Graphics3D not shown. *)

By the way SurfaceGraphics and functions that return SurfaceGraphics have
options Mesh, MeshStyle to do this sort of thing.  I think Graphics3D and
any functions that return Graphics3D should have these options. If that was
the case we could get the result above by simply using
CylindricalPlot3D[... ,Mesh->False].

--------------------
Regards,
Ted Ersek

For Mathematica tips, tricks see
http://www.dot.net.au/~elisha/ersek/Tricks.html

```

• Prev by Date: Re: Options for Limit.
• Next by Date: Re: SSH and Remote Kernels
• Previous by thread: Re: Q: smooth 3Dplot with big mesh
• Next by thread: FindMinimum for several variables