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