Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: GraphicsGrid with annotated LayeredGraphPlot
Replies: 2   Last Post: Dec 5, 2012 3:10 AM

 Messages: [ Previous | Next ]
 Bob Hanlon Posts: 906 Registered: 10/29/11
Re: GraphicsGrid with annotated LayeredGraphPlot
Posted: Dec 3, 2012 3:38 AM

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

Bob Hanlon

On Fri, Nov 30, 2012 at 5:54 AM, Themis Matsoukas <tmatsoukas@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
>

Date Subject Author
12/3/12 Bob Hanlon
12/5/12 Themis Matsoukas