Prev: Mathematica help (plotting solutions of transendental equation from
Next: Connecting to a remote MySQL database via SSL
From: S. B. Gray on 29 May 2010 04:45
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


From: Murray Eisenberg on 30 May 2010 06:47
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(a)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

 | 
Pages: 1
Prev: Mathematica help (plotting solutions of transendental equation from
Next: Connecting to a remote MySQL database via SSL