       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

>

```

• Prev by Date: Manipulate + ListPlot3D +.....
• Next by Date: Re: ListPlot ColorFunction
• Previous by thread: Re: combine tabled graphics
• Next by thread: Re: combine tabled graphics