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: [mg42755] Re: Problem with Show, Can't Give More than 5 Arguments
• From: bobhanlon at aol.com (Bob Hanlon)
• Date: Fri, 25 Jul 2003 05:08:01 -0400 (EDT)
• References: <bfo5bn$cgv$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

The default value of a plot's range (PlotRange -> Automatic) adjusts the range
of the display to focus on the major features by eliminating outliers.  To
force display of everything use PlotRange -> All

Needs["Graphics`Shapes`"];
Show[Graphics3D[
      TranslateShape[Sphere[],#]&/@
        {{15,35,12},{85,3,10},{1,3,13},
          {1,12,8},{0,0,0},{17,0,2},
          {10,200,200},{200,10,26},{11,70,25},
          {3,2,17},{24,0,1},{0,0,1},
          {51,0,4},{10,0,1},{0,0,0},
          {4,0,0},{1,0,0},{1,1,5}}],
    Axes->True, PlotRange->All];


Bob Hanlon

In article <bfo5bn$cgv$1 at smc.vnet.net>, "Gil" <jiwwgvpfeudf at spammotel.com>
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!