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.