Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Problem with Show, Can't Give More than 5 Arguments

• To: mathgroup at smc.vnet.net
• Subject: [mg42775] Re: [mg42748] Problem with Show, Can't Give More than 5 Arguments
• From: Bob Walker <walkerbg at ieee.org>
• Date: Fri, 25 Jul 2003 05:08:26 -0400 (EDT)
• References: <200307240810.EAA12636@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Try adding the option
PlotRange->All
to Show as indicated below.

You will probably need to expand the resulting graphic to full screen to 
resolve all the different spheres.
Note that two are at {0,0,0}, so you will only be able to see 17.

PlotRange defaults to Automatic (Options[Plot]) which tries to show the 
"interesting parts" but not necessarily all.

Take care
Bob W

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}]
>,PlotRange->All];
>***************
>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!
>
>
>
>  
>

• References:
  • Problem with Show, Can't Give More than 5 Arguments
    • From: "Gil" <jiwwgvpfeudf@spammotel.com>