Re: Problem with Show, Can't Give More than 5 Arguments
- To: mathgroup at smc.vnet.net
- Subject: [mg42807] Re: Problem with Show, Can't Give More than 5 Arguments
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 30 Jul 2003 04:07:34 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <bfo5bn$cgv$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
give the option PlotRange->All
to Show[] and all works fine.
Regards
Jens
Gil wrote:
>
> I'm having a problem which I hope is very simple, but I'm new to
> Mathematica. I have 18 spheres, and I want to plot them in 3 dimensions.
> This is what I tried:
>
> Needs["Graphics`Shapes`"];
> Show[
> TranslateShape[Graphics3D[Sphere[]],{15, 35, 12}],
> TranslateShape[Graphics3D[Sphere[]],{85, 3, 10}],
> TranslateShape[Graphics3D[Sphere[]],{1, 3, 13}],
> TranslateShape[Graphics3D[Sphere[]],{1, 12, 8}],
> TranslateShape[Graphics3D[Sphere[]],{0, 0, 0}],
> TranslateShape[Graphics3D[Sphere[]],{17, 0, 2}],
> TranslateShape[Graphics3D[Sphere[]],{10, 200, 200}],
> TranslateShape[Graphics3D[Sphere[]],{200, 10, 26}],
> TranslateShape[Graphics3D[Sphere[]],{11, 70, 25}],
> TranslateShape[Graphics3D[Sphere[]],{3, 2, 17}],
> TranslateShape[Graphics3D[Sphere[]],{24, 0, 1}],
> TranslateShape[Graphics3D[Sphere[]],{0, 0, 1}],
> TranslateShape[Graphics3D[Sphere[]],{51, 0, 4}],
> TranslateShape[Graphics3D[Sphere[]],{10, 0, 1}],
> TranslateShape[Graphics3D[Sphere[]],{0, 0, 0}],
> TranslateShape[Graphics3D[Sphere[]],{4, 0, 0}],
> TranslateShape[Graphics3D[Sphere[]],{1, 0, 0}],
> TranslateShape[Graphics3D[Sphere[]],{1, 1, 5}]
> ];
>
> However, not all the spheres get plotted. For example, (10, 200, 200) is
> not plotted. So I decided to try adding them one at a time. I got this
> far
>
> Needs["Graphics`Shapes`"];
> Show[
> TranslateShape[Graphics3D[Sphere[]],{15, 35, 12}],
> TranslateShape[Graphics3D[Sphere[]],{85, 3, 10}],
> TranslateShape[Graphics3D[Sphere[]],{1, 3, 13}],
> TranslateShape[Graphics3D[Sphere[]],{1, 12, 8}],
> TranslateShape[Graphics3D[Sphere[]],{0, 0, 0}]
> ];
>
> And everything was plotted. However, when I added one more point
>
> Needs["Graphics`Shapes`"];
> Show[
> TranslateShape[Graphics3D[Sphere[]],{15, 35, 12}],
> TranslateShape[Graphics3D[Sphere[]],{85, 3, 10}],
> TranslateShape[Graphics3D[Sphere[]],{1, 3, 13}],
> TranslateShape[Graphics3D[Sphere[]],{1, 12, 8}],
> TranslateShape[Graphics3D[Sphere[]],{0, 0, 0}],
> TranslateShape[Graphics3D[Sphere[]],{10, 200, 200}]
> ];
>
> All of a sudden it looked like neither (10, 200, 200) nor (85, 3, 10) were
> plotted any more. I decided trying to take out one point
>
> Needs["Graphics`Shapes`"];
> Show[
> TranslateShape[Graphics3D[Sphere[]],{15, 35, 12}],
> TranslateShape[Graphics3D[Sphere[]],{85, 3, 10}],
> TranslateShape[Graphics3D[Sphere[]],{1, 12, 8}],
> TranslateShape[Graphics3D[Sphere[]],{0, 0, 0}],
> TranslateShape[Graphics3D[Sphere[]],{10, 200, 200}]
> ];
>
> And everything was OK again. So, as far as I can tell, if I have more than
> 5 arguments to Show, it doesn't show all of them.
>
> To see if it might have anything to do with the Sphere function, I
> substituted Cuboids, bu t I got exactly the same problem. The same pattern
> of objects was not plotted.
>
> Show[
> Graphics3D[Cuboid[{15, 35, 12}]],
> Graphics3D[Cuboid[{85, 3, 10}]],
> Graphics3D[Cuboid[{1, 3, 13}]],
> Graphics3D[Cuboid[{1, 12, 8}]],
> Graphics3D[Cuboid[{0, 0, 0}]],
> Graphics3D[Cuboid[{17, 0, 2}]],
> Graphics3D[Cuboid[{10, 200, 200}]],
> Graphics3D[Cuboid[{200, 10, 26}]],
> Graphics3D[Cuboid[{11, 70, 25}]],
> Graphics3D[Cuboid[{3, 2, 17}]],
> Graphics3D[Cuboid[{24, 0, 1}]],
> Graphics3D[Cuboid[{0, 0, 1}]],
> Graphics3D[Cuboid[{51, 0, 4}]],
> Graphics3D[Cuboid[{10, 0, 1}]],
> Graphics3D[Cuboid[{0, 0, 0}]],
> Graphics3D[Cuboid[{4, 0, 0}]],
> Graphics3D[Cuboid[{1, 0, 0}]],
> Graphics3D[Cuboid[{1, 1, 5}]]
> ];
>
> Any ideas why Mathematica isn't drawing everything it's being asked to draw?
> Thanks to anyone who can help!