MathGroup Archive 2012

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

Search the Archive

Re: GraphicsGrid with annotated LayeredGraphPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg128874] Re: GraphicsGrid with annotated LayeredGraphPlot
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Sat, 1 Dec 2012 04:36:50 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <20121130105425.2FC326848@smc.vnet.net>

GraphicsGrid[{{b, b}, {b, b}},
 AspectRatio -> 1, ImageMargins -> 5]


Bob Hanlon


On Fri, Nov 30, 2012 at 5:54 AM, Themis Matsoukas <tmatsoukas at me.com> wrote:
> I want to produce a graphics grid with several annotated LayeredGraphPlots.  Here is a minimal example:
>
> m = 4;
> treeConnectionsjPosition = {"{1, 1}" -> "{2, 1}",
>    "{2, 1}" -> "{3, 1}", "{2, 1}" -> "{3, 2}", "{3, 1}" -> "{4, 1}",
>    "{3, 2}" -> "{4, 1}"};
> vertexList = {{6, 20}, {6, 13.3}, {0.`, 6.6}, {12, 6.6}, {6., 0.`}};
> a = LayeredGraphPlot[
>    treeConnectionsjPosition,
>    VertexLabeling -> False,
>    VertexCoordinateRules -> vertexList,
>    DirectedEdges -> {True, "ArrowheadsSize" -> 0.04}
>    ]
> b = Show[a,
>    Graphics[{Text[
>       Style[TraditionalForm[M == m], FontSize -> 18], {0, 19}]}]]
>
> In this example, a is a layered graph plot and b is the same plot with some  text annotation inside it. Compare now the following three grids:
>
> GraphicsGrid[{{a, a}, {a, a}}]
>
> GraphicsGrid[{{a, b}, {b, b}}]
>
> GraphicsGrid[{{b, b}, {b, b}}]
>
> The first two give the expected grid of plots, but the third one (all b's) produces a grid in which each graph is tiny and positioned inside a grid box that is too thin and too tall. Any ideas how to fix this?
>
>
> Thanks
>
> Themis
>



  • Prev by Date: Re: domain restriction in NSolve does not work
  • Next by Date: Mathematica 9.0.0.0 for windows crash
  • Previous by thread: Re: domain restriction in NSolve does not work
  • Next by thread: Re: GraphicsGrid with annotated LayeredGraphPlot