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

MathGroup Archive 2009

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

Search the Archive

Re: combine tabled graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99178] Re: combine tabled graphics
  • From: sean_incali at yahoo.com
  • Date: Wed, 29 Apr 2009 06:36:30 -0400 (EDT)
  • References: <gt3tkl$no4$1@smc.vnet.net>

Ok. Thanks everyone.  But none of these suggestions work for me. Both
codes are still generating grid graphics with individual plots instead
of tabled plots.

I did figure it out eventually. GraphicsGrid requires list of lists.
And instead of g=Table[Plot[blah]]and Show[g], it needs g= Show[Table
[bla blah]

But now it's displayed as a column instead of a row.

gmn1 = Show[
   Table[Plot[
     1/2 (-k1 - k1 - Sqrt[k1^2 - 6 k2 k1 + k2^2]), {k1, 0, 30},
     PlotRange -> All], {k2, 0, 10}]];
gmn2 = Show[
   Table[Plot[
     1/2 (-k1 - k2 + Sqrt[k1^2 - 6 k2 k1 + k2^2]), {k1, 0, 30},
     PlotRange -> All], {k2, 0, 10}]];

GraphicsGrid[{{gmn1}, {gmn2}}]

but if I use,

GraphicsGrid[Transpose@{{gmn1}, {gmn2}}]
GraphicsRow[{{gmn1}, {gmn2}}]

fixes the problem.


  • Prev by Date: Re: text book style sheets
  • Next by Date: Re: How to select several cells
  • Previous by thread: Re: combine tabled graphics
  • Next by thread: Bug in Mathematica 7.0?