Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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
Rectangles to add additional text using Text statements.

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

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?
  • Next by thread: MathML->SymbolicXML->MathML