Re: Advanced plotting

*To*: mathgroup at smc.vnet.net*Subject*: [mg99030] Re: Advanced plotting*From*: Bill Rowe <readnews at sbcglobal.net>*Date*: Fri, 24 Apr 2009 03:48:37 -0400 (EDT)

On 4/23/09 at 6:44 AM, zhengji.li at gmail.com (Li Zhengji) wrote: >Oh, not exactly. >At least on my machine (Windows XP SP2, Mathematica 7.0.0), the peak >value in the 2nd graph is a little higher than that in the 1st one. You are right. When I looked at the resulting plot, I failed to look carefully enough to notice the slight difference. And after thinking about this, I see what is occurring. To ensure the labels on the axis show correctly, Mathematica shrinks the graphic slightly. In fact, I have a dim memory of seeing somewhere the adjustment is 5% on both ends. This can be compensated for by adjusting the plot range on one graphic. For example: Grid@{{Plot[{Sin[2 x], 1}, {x, 0, 4}, PlotRange -> {-1.1, 1.1}, AxesOrigin -> {0, 0}], Style[Rotate["=E2=89=88", 90 Degree], 20], Plot[{Cos[2 x], 1}, {x, 6, 10}, PlotRange -> {-1.1, 1.1} 1.1, Axes -> {True, False}]}} Here, I've added a line at y = 1 to both plots to make any misalignment more apparent.