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

MathGroup Archive 2008

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

Search the Archive

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




  • Prev by Date: Re: Package conversion to V6
  • Next by Date: Re: Re: Constructing vector using table
  • Previous by thread: New spherical functions not efficient
  • Next by thread: Re: How to get objects closer to each other in a Graphics Grid?