Two successive plots, in a single cell, how to get same transverse axis scaling?
- To: mathgroup at smc.vnet.net
- Subject: [mg42787] Two successive plots, in a single cell, how to get same transverse axis scaling?
- From: AES/newspost <siegman at stanford.edu>
- Date: Sat, 26 Jul 2003 04:32:54 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
This is the classic "how do I get two plots with the same transverse
axis scaling?" question.
Have two plots of different y values versus same x values:
plotA = DisplayTogether[ - - - - -, AspectRatio -> 3/10 ];
plotB = DisplayTogether[ - - - - -, AspectRatio -> 7/10 ];
They both involve Plot's and ListPlot's, so I use DisplayTogether. Both
plots have same explicit ImageSize -> 6 * 72 ; neither plot has any
Ticks or axis labelling. If I then do
Show[Graphics[plotA]];
Show[Graphics[plotB]];
they display at the same width. I can also do
Show[ {Graphics[Rectangle[{0,0},{10,3}, plotA ]];
Show[ {Graphics[Rectangle[{0,3},{10,10}, plotB ]];
and they come out the same width. But, I want 'em in a single cell for
animation purposes (the same pair is repeatedly plotted). So, I try both
Show[ {Graphics[Rectangle[{0,0},{10,3}, plotA ]],
Graphics[Rectangle[{0,3},{10,10}, plotB ]]},
AspectRatio -> 1];
and
Show[ Graphics{ [Rectangle[{0,0},{10,3}, plotA ]],
Rectangle[{0,3},{10,10}, plotB ]]},
AspectRatio -> 1];
and in both cases the lower (lower in height, lower in location) plotA
comes out about 10-15% than plotB; and no settings seem to change this .
. . ?????