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

*To*: mathgroup at smc.vnet.net*Subject*: [mg91060] How to get objects closer to each other in a Graphics Grid?*From*: Aaron Fude <aaronfude at gmail.com>*Date*: Tue, 5 Aug 2008 04:00:55 -0400 (EDT)

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