Re: combine tabled graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg99137] Re: combine tabled graphics
- From: dh <dh at metrohm.com>
- Date: Tue, 28 Apr 2009 04:44:59 -0400 (EDT)
- References: <gt3tkl$no4$1@smc.vnet.net>
Hi Sean,
1) you have a pair of superfluous braces.
2) FrameLabel without Frame->True does not make sense. Note that in a
grid,frames takes up a lot of space.
3) k1 and l1 do not have a value.
Here is a corrected example:
=========================================
k1 = 1; l1 = 1;
gmn1 = Table[
Plot[1/2 (-k1 - k1 - Sqrt[k1^2 - 6 k2 k1 + k2^2]), {k1, 0, 30},
PlotRange -> All], {k2, 0, 5}];
gmn2 = Table[
Plot[1/2 (-k1 - k2 + Sqrt[k1^2 - 6 k2 k1 + k2^2]), {k1, 0, 30},
PlotRange -> All], {k2, 0, 5}];
GraphicsGrid[{gmn1, gmn2}]
GraphicsGrid[Transpose@{gmn1, gmn2}]
==========================================
Daniel
sean_incali at yahoo.com wrote:
> 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
>