Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Graphics questions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg110034] Re: Graphics questions
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Sun, 30 May 2010 06:47:18 -0400 (EDT)

Actually, neither of the two 3D commands works -- until you tell us what
circls and coords are!

On 5/29/2010 4:44 AM, S. B. Gray wrote:
> Hello:
>
> Each of these display sequences works fine:
>
> Graphics3D[
>    Table[Cylinder[{circls[[dx,1]],circls[[dx,1]]+.01*circls[[dx,3]]},
>    circls[[dx,2]]],{dx,1,Length[circls]}]]
>
> and
>
> ListPointPlot3D[coords,PlotStyle->{PointSize[.025],RGBColor[1,0,0]},
> AxesLabel->{X,Y,Z},AspectRatio->1, LabelStyle->Directive[Blue, Bold,
> Medium],Filling->Bottom,FillingStyle->Directive[Blue,Thick]]
>
> but I do not know how to combine them in the same image, and I don't
> know how to put Opacity (or other directives such as EdgeForm) in the
> Cylinder display.
>
> Thanks for any tips.
>
> Steve Gray
>
>

-- 
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: Q about ParametricPlot3D
  • Next by Date: Re: Mathematica help (plotting solutions of transendental equation from
  • Previous by thread: Graphics questions
  • Next by thread: Re: Eric weisstein's MathWorld packages