Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1992
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

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: Request--Process Control
  • Next by Date: problem
  • Previous by thread: GraphicsArray
  • Next by thread: Neural Net Notebooks