Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: draw vertical cylinder with no surface lines

  • To: mathgroup at
  • Subject: [mg71631] Re: draw vertical cylinder with no surface lines
  • From: "Pratik Desai" <pratikd at>
  • Date: Sat, 25 Nov 2006 05:37:12 -0500 (EST)
  • References: <ek63g2$8tk$>

On Nov 24, 12:29 am, Murray Eisenberg <mur... at> wrote:
> For an illustration, I want to draw a closed cylindrical "can" -- a
> cylinder with its axis vertical -- along with arrows (with labels)
> indicating radius and height.
> The ways I've found, either using  Graphics`Shapes`Cylinder or
> ParametricPlot3D, insist on drawing curves on the vertical wall of the
> cylinder and, if I use ParametricPlot3D to draw the top, too, on the top.
> Is there some way to suppress these curves?  Of course I still need the
> circles bounding the top and bottom to be drawn as well as two vertical
> lines that demarcate the wall of the cylinder from the ambient space.  I
> just want to rely upon lighting and shading to suggest the
> three-dimensionality.
> Here's my effort so far using DrawGraphics:
> SetOptions[Arrow3D,HeadScaling3D->1,HeadLength3D->0.25,
>    HeadWidth3D->0.55];
> Draw3DItems[{
>     SurfaceColor[Honeydew,Honeydew,2],
>     ParametricDraw3D[{Cos[\[Phi]],Sin[\[Phi]],z},{\[Phi],0,2Pi},{z,0,2},
>        PlotPoints->{51,2}],
>     SurfaceColor[Honeydew,Honeydew],
>     CylindricalDraw3D[2,{r,0,1},{\[Phi],0,2Pi},PlotPoints->{2,51}],
>     Thickness[0.02],Cobalt,SurfaceColor[PrussianBlue],
>        Arrow3D[{0,0,2},{0.9165,-0.4,2}]
>     },
>     Boxed->False];
> --
> Murray Eisenberg                     mur... at
> Mathematics & Statistics Dept.
> Lederle Graduate Research Tower      phone 413 549-1020 (H)
> University of Massachusetts                413 545-2859 (W)
> 710 North Pleasant Street            fax   413 545-1801
> Amherst, MA 01003-9305

Hello Murray,

Perhaps using the EdgeForm[] as the fourth argument of ParametricPlot3D

ParametricPlot3D[{Cos[Ï?], Sin[Ï?], z, EdgeForm[]}, {Ï?, 0, 2Pi}, {z,
0, 2}]

Hope this is helpful

Pratik Desai
Wolfram Research, Inc

  • Prev by Date: Re: symbolic solution of ODE
  • Next by Date: Re: dynamic Blocking and thread safeness (in general)
  • Previous by thread: draw vertical cylinder with no surface lines
  • Next by thread: RE: draw vertical cylinder with no surface lines