Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: How to get objects closer to each other in a Graphics Grid?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg91561] Re: How to get objects closer to each other in a Graphics Grid?
  • From: dh <dh at metrohm.ch>
  • Date: Wed, 27 Aug 2008 06:43:25 -0400 (EDT)
  • References: <g791eg$9iu$1@smc.vnet.net>


Hi Aaron,

the problem is that the invisible BoundingBox takes too much space 

because of the view point. If you change this, you may improve. E.g.:

Show[circle, ViewPoint -> {0, 0, 10}]

hope this helps, Daniel



Aaron Fude wrote:

> Hi,

> 

> In the following code, what option would be equivalent to "zooming in"

> by about a factor of 1.2 so that the elements in the grid are tighter

> to each other? That would require clipping the bounding box. Changing

> R doesn't work since it actually clips the circles. The circles must

> remain to scale, so I am only looking for tightness in the last line.

> 

> Thanks in advance,

> 

> Aaron

> 

> PlotEquilibriumConfiguration[ \[CapitalPsi]_, \[CapitalSigma]_, \

> \[CapitalPi]_, n_] := (

>    RhoN = BesselJZero[0, n];

>    Gn = ((RhoN^2 \[CapitalPsi])/(\[Pi] \[CapitalSigma]))^(1/3);

>    a = (\[CapitalPi] Gn)/\[CapitalSigma];

>    f[a_, y_] = y^4 - y - a;

>    ySol =

>     y /. FindRoot[(f[A, y] /. A -> a) == 0, {y, 4},

>       MaxIterations -> 1000];

>    G = Gn/ySol;

>    R = 3.3;

>    circle = ParametricPlot3D[{G Cos[x], G Sin[x], 0}, {x, 0, 2 Pi},

>      Axes -> None,

>      Boxed -> False,

>      PlotRange -> {{-R, R}, {-R, R}}

>      ];

> 

>    Show[circle]

>    );

> grid = GraphicsGrid[

>   Table[PlotEquilibriumConfiguration[1, 1, P, n], {n, 1,

>     3}, {P, {-.1, 0, .1}}]]

> 

> 

> 





-- 



Daniel Huber

Metrohm Ltd.

Oberdorfstr. 68

CH-9100 Herisau

Tel. +41 71 353 8585, Fax +41 71 353 8907

E-Mail:<mailto:dh at metrohm.com>

Internet:<http://www.metrohm.com>




  • Prev by Date: Re: usage
  • Next by Date: "cannot find the required native library named JLinkNativeLibrary"
  • Previous by thread: Re: How to get objects closer to each other in a Graphics Grid?
  • Next by thread: Running Notebooks inside a notebook: