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>
- Reply-to: kuska at informatik.uni-leipzig.de
- 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.
>
> Thanks for your help!
>
> Best regards
> Thomas