Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*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

draw vertical cylinder with no surface lines

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71588] draw vertical cylinder with no surface lines
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Fri, 24 Nov 2006 01:17:08 -0500 (EST)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • Reply-to: murray at math.umass.edu

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                     murray at math.umass.edu
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


  • Prev by Date: Re: Arithmetic Puzzle (so simple it's hard)
  • Next by Date: Re: returning variable number of arguments from a Module[ ]
  • Previous by thread: RE: pattern matching: rules that stop other rules?
  • Next by thread: Re: draw vertical cylinder with no surface lines