MathGroup Archive 2001

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

Search the Archive

Re: Combining 3D Graphics

  • To: mathgroup at
  • Subject: [mg26518] Re: [mg26512] Combining 3D Graphics
  • From: BobHanlon at
  • Date: Mon, 1 Jan 2001 02:32:50 -0500 (EST)
  • Sender: owner-wri-mathgroup at

Works fine on my system (Mac v4.1). Recommend that you turn on the Axes and 
manually set the PlotRange to make sure that you know exactly what is being 


pts = Partition[Table[2Random[]-1, {30}], 3];

Show[Graphics3D[{PointSize[0.03],Map[Point,pts]}], Axes -> True, 
    PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}];

Show[Graphics3D[{Sphere[],{PointSize[0.03],Map[Point,pts]}}], Axes -> True, 
    PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}];

    Axes -> True, PlotRange -> {{-1,1},{-1,1},{-1,1}}];

Bob Hanlon

In a message dated 12/30/00 10:32:40 PM, rlove at writes:

>I'm trying to show a cluster of points outside a sphere in 3D.  When
>I plot just the points it works fine.  I use:
>where pts is a list read in from a file.
>When I try to add the sphere at the center by using:
>then all I see is the sphere.  If I change Sphere[] to Sphere[0.4]
>then I see the points only, not the sphere.
>What is going on here?  Any suggestions on how to combine the 3D
>images so that both are visible would be appreciated.

  • Prev by Date: Automatic Numbering
  • Next by Date: Re: FW: Symbolic Fourier Transform
  • Previous by thread: Re: Combining 3D Graphics
  • Next by thread: RE: Combining 3D Graphics