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).