MathGroup Archive 2009

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

Search the Archive

Re: combine tabled graphics


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?