MathGroup Archive 1992

[Date Index] [Thread Index] [Author Index]

Search the Archive

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





  • Prev by Date: window size
  • Next by Date: Re: Problem with MatrixPower, v. 2.1
  • Previous by thread: how to plot output of NDSolve
  • Next by thread: GraphicsArray