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.