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