Graphics questions
- To: mathgroup at smc.vnet.net
- Subject: [mg110020] Graphics questions
- From: "S. B. Gray" <stevebg at ROADRUNNER.COM>
- Date: Sat, 29 May 2010 04:44:47 -0400 (EDT)
- Reply-to: stevebg at ROADRUNNER.COM
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