Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*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 2001

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

Search the Archive

Re: Combining 3D Graphics

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

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 
displayed.

Needs["Graphics`Shapes`"];

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}}];

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


Bob Hanlon

In a message dated 12/30/00 10:32:40 PM, rlove at antispam.neosoft.com 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:
>
>Show[Graphics3D[{PointSize[0.03],Map[Point,pts]}]];
>
>where pts is a list read in from a file.
>
>When I try to add the sphere at the center by using:
>
>
>Show[Graphics3D[{Sphere[],{PointSize[0.03],Map[Point,pts]}}]];
>
>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