Re: Width of plots

*To*: mathgroup at smc.vnet.net*Subject*: [mg65986] Re: [mg65930] Width of plots*From*: "David Park" <djmp at earthlink.net>*Date*: Tue, 25 Apr 2006 05:19:25 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Michael, The reason the y axes don't line up is indeed the tick labels. One way to correct the problem is to redefine the ticks so that both plots will have the same widths for the labels. Basically this is done with NumberForm and the NumberPadding option. So you can make up your own table of ticks but I would use the CustomTicks command from my DrawGraphics package. It provides the labeled and unlabeled ticks and allows the user to specify a number formatting function. Needs["DrawGraphics`DrawingMaster`"] f[x_] = Sin[x]; g[x_] = 1000*Sin[x]; yticks1 = CustomTicks[Identity, {-1, 1, 0.5, 5}, CTNumberFunction -> (NumberForm[#, {5, 1}, NumberPadding -> {" ", "0"}] &)]; yticks2 = CustomTicks[Identity, {-1000, 1000, 500.0, 5}, CTNumberFunction -> (NumberForm[#, {5, 1}, NumberPadding -> {" ", "0"}] &)]; p1 = Plot[f[x], {x, 0, 2Pi}, Ticks -> {Automatic, yticks1}, ImageSize -> 400]; p2 = Plot[g[x], {x, 0, 2Pi}, Ticks -> {Automatic, yticks2}, ImageSize -> 400]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Michael [mailto:chiller.michi at web.de] To: mathgroup at smc.vnet.net When making several plots, e.g. using f[x_] = Sin[x]; g[x_] = 1000*Sin[x]; p1 = Plot[f[x], {x, 0, 2Pi}, ImageSize -> 400]; p2 = Plot[g[x], {x, 0, 2Pi}, ImageSize -> 400]; the absolute position of the y-axes won't coincide despite the total image size being the same. This seems to be caused by the different width of the tick labels. Is there a possibility to rescale the images in such a way that the y-axes positions coincide in two different plots and the x-axes scale stays the same? Thanks for your help, Michael