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.