Mathematica 9 is now available
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

GraphicsArray ---> DisplayTogether?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg61948] GraphicsArray ---> DisplayTogether?
  • From: "Seung Lim" <selim50 at gmail.com>
  • Date: Sat, 5 Nov 2005 01:52:53 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

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: Mean of skew-normal distribution
  • Next by Date: Re: Mathematica GuideBooks
  • Previous by thread: Re: No Biconditional?
  • Next by thread: Re: GraphicsArray ---> DisplayTogether?