combine tabled graphics

*To*: mathgroup at smc.vnet.net*Subject*: [mg99114] combine tabled graphics*From*: sean_incali at yahoo.com*Date*: Mon, 27 Apr 2009 05:24:40 -0400 (EDT)

Hello Group, Suppose you have generated 2 graphics from Table[blah blah]. And now I want to combine the tabled graphics into a grid or row. Each Tabled graphics shows multiple graphs of expression evaliuated at different values of the parameters. Both GraphicsRow and GraphicsGrid will get rid of the tabling effect. For example, following occurs when I use them... gmn1 = Table[{Plot[ 1/2 (-k1 - k1 - Sqrt[k1^2 - 6 k2 k1 + k2^2]), {k1, 0, 30}, PlotRange -> All, FrameLabel -> {k1, l1}]}, {k2, 0, 10}]; gmn2 = Table[{Plot[ 1/2 (-k1 - k2 + Sqrt[k1^2 - 6 k2 k1 + k2^2]), {k1, 0, 30}, PlotRange -> All, FrameLabel -> {Subscript[k, 1], l2}]}, {k2, 0, 10}]; GraphicsGrid[{gmn1, gmn2}] GraphicsRow[{gmn1, gmn2}] How will I accomplish this? Thanks for any insights. Sean