MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: combine tabled graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99140] Re: [mg99114] combine tabled graphics
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Tue, 28 Apr 2009 04:45:31 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

You have some unnecessary braces

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}];

Grid[{gmn1, gmn2}]

Grid[Transpose[{gmn1, gmn2}]]


Bob Hanlon

---- 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: Hadamard von Koch
  • Next by Date: Re: Re: Mathematica JLink and comm.javax.CommPortIdentifier
  • Previous by thread: combine tabled graphics
  • Next by thread: Re: combine tabled graphics