Re: GraphicsArray ---> DisplayTogether?

• To: mathgroup at smc.vnet.net
• Subject: [mg61962] Re: [mg61948] GraphicsArray ---> DisplayTogether?
• From: "David Park" <djmp at earthlink.net>
• Date: Sun, 6 Nov 2005 05:11:39 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```You would probably get a better response if you posted code that would
actually evaluate so we could more easily get a picture of your problem.

In any case, you can probably handle this by using one or more Rectangles on
a larger sheet of paper. The third argument of a Rectangle allows you to put
a piece of graphics in the Rectangle. You could place and size the
Rectangles to suit your needs. You can also use the space outside the

David Park

From: Seung Lim [mailto:selim50 at gmail.com]
To: mathgroup at smc.vnet.net

Hello everyone,

I'm trying to modify the following code so that a square shaped "tp"
will be displayed on top
and 3 x 2 array of listplots below.  I've been able to do so using
GraphicsArray, however, it doesn't quite work out as i want it to since
using GraphicsArray allocates the same dimension of space for both top
and bottom part which creates lots of empty space on top and bottom of
my 3 x 2 signal output listplots.  To make it clear, I'm trying to get
a 500 x 500 "tp" on top and 700 x 350 "sigOut" on bottom.  Can anyone
help me how I can use displayTogether or any other tricks?

Thanks very much in advance ^____^

*************************************
Do[{
array1 =
Table[Round[10*Fin[((
x/2) - 5Hump[mm, 5, 3]),
mm, .4, y/2, (mm/3 + 3), (3 -
Hump[mm, 5, 2]), Hump[mm, 7, 4]]], {x, 1, 8}, {y,
1, 8}];

tp = Table[
{{Hue[.7 - (aval*.85), .6, Min[bval, 1]], Rectangle[{(a -
1)/rows, (b - 1)/cols}, {-a/rows,
b/rows}]}, Text}, {a, 1, 8}, {b, 1, 8}];

sigOutput1 = ListPlot[  ];
sigOutput2 = ListPlot[  ];
sigOutput3 = ListPlot[  ];
sigOutput4 = ListPlot[  ];
sigOutput5 = ListPlot[  ];
sigOutput6 = ListPlot[  ];
sigOut = GraphicsArray[{{sigOutput1, sigOutput2, sigOutput3}, \
{sigOutput4, sigOutput5, sigOutput6}}, GraphicsSpacing -> .1,
AspectRatio -> 0.4];

tpp = Graphics[tp, FormatType ->  TraditionalForm,
AspectRatio -> 1, ImageSize -> 500];

Show[GraphicsArray[{{tpp}, {sigOut}}, GraphicsSpacing -> .2

], ImageSize -> 700];
}, {mm, 3, 10, 1}];

```

• Prev by Date: Re: "gray" lines in grids?
• Next by Date: Re: No Biconditional?
• Previous by thread: Re: GraphicsArray ---> DisplayTogether?