GraphicsArray

*To*: mathgroup at yoda.physics.unc.edu*Subject*: GraphicsArray*From*: Gossett <gossett at homer.bethel.edu>*Date*: Sun, 20 Dec 1992 14:44:34 -0600

Does anyone know how to force GraphicsArray to make graphs a) have origins in corresponding positions b) have the same size? In the example below, notice that the graph on the right has its origin situated higher than that of the lefthand graph. Also, notice that the graph on the right is smaller. <<Graphics/Legend.m low=Plot[{x^10,10^x},{x,0,2},PlotRange->All, AspectRatio->1.5, AxesLabel->{"x",None}, PlotLegend->{OutputForm[x^10],OutputForm[10^x]},LegendPosition->{-.2,0}, LegendShadow->None,LegendBorder->None, PlotStyle->{{GrayLevel[.333],Thickness[.008]}, {GrayLevel[0],Thickness[.008]}}] high=Plot[{x^10,10^x},{x,0,11},PlotRange->All, AspectRatio->1.5, AxesLabel->{"x",None}, PlotLegend->{OutputForm[x^10],OutputForm[10^x]},LegendPosition->{-.2,0}, LegendShadow->None,LegendBorder->None, PlotStyle->{{GrayLevel[.333],Thickness[.008]}, {GrayLevel[0],Thickness[.008]}}] Show[GraphicsArray[{low,high}]] I am using Mathematica version 2.1 (July 15, 1992) on a monochrome NeXTStation (NeXTStep 3.0).