       Re: Graphics positioning

• To: mathgroup at smc.vnet.net
• Subject: [mg45626] Re: Graphics positioning
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Fri, 16 Jan 2004 19:57:03 -0500 (EST)
• Organization: Universitaet Leipzig
• References: <bu8ic5\$aqs\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

p1 = Plot[x^2, {x, 0, 2.5}, PlotRange -> {{-0.01, 2.6}, {0, 7.999}},
Frame -> True, DisplayFunction -> Identity];

p2 = Plot[x^3, {x, 0, 2.5}, PlotRange -> {{-0.01, 2.6}, {-0.01, 18}},
Frame -> True,
FrameTicks -> {None, Automatic}, ImageSize -> 300,
DisplayFunction -> Identity];

g1 = FullGraphics[p1];
g2 = FullGraphics[p2];
Show[
GraphicsArray[{{g2}, {g1}}, GraphicsSpacing -> {0, -0.050}]]

Regards
Jens

Thomas Manz wrote:
>
> Hi!
>
> I'd like to position two plots:
>
> p1 = Plot[
>   x^2, {x, 0, 2.5},
>     PlotRange -> {{-0.01, 2.6}, {0, 7.999}}, Frame ->
>       True, ImageSize -> 300, DisplayFunction -> Identity]
>
> p2 = Plot[x^3, {x, 0, 2.5}, PlotRange -> {{-0.01, 2.6}, {-0.01, 18}},
>     Frame -> True, ImageSize -> 300, DisplayFunction -> Identity]
>
> Show[GraphicsArray[{{p2}, {p1}}, GraphicsSpacing -> {0, -0.08}]]
>
> My questions:
> 1. How can I remove just the labels of the upper plot (0   0.5   1  ...) but not the ticks?
> 2. How can I calculate the GraphicsSpacing to have no distance between the plots? -0.08 does it nearly but it seem to depend on the size of the whole graphics array.
> And the most important question:
> 3. What must I do that the horzontal scaling is exactly the same? In this case the lower plot should be smaller and a little bit shifted to the right.
>