Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: How to sync plots?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg90308] Re: [mg90290] How to sync plots?
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sat, 5 Jul 2008 04:50:25 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

p = Table[Plot[a*(x + b), {x, 0, 1}], {a, 4}, {b, 3}];

Off[Set::shape];

{prAll, aoAll} = ({PlotRange, AxesOrigin} /. AbsoluteOptions[#]) & /@ 
   Flatten[p, 1];

pr = {Min[prAll[[All, #]]], Max[prAll[[All, #]]]} & /@ {1, 2};

ao = {Min[aoAll[[All, 1]]], Min[aoAll[[All, 2]]]};

Grid[p /. {(PlotRange -> _) -> (PlotRange -> pr),
   (AxesOrigin -> _) -> (AxesOrigin -> ao)}]


Bob Hanlon

---- Aaron Fude <aaronfude at gmail.com> wrote: 

=============
Hi,

I produce several plots that eventually go into a GraphicsGrid. Is
there a simple way to make sure that their PlotRanges are all
identical? For example, they could all be set to the broadest needed
PlotRange.

Thanks!




  • Prev by Date: Re: lie symmetry package
  • Next by Date: Relational Operators and Random Integers
  • Previous by thread: Re: How to sync plots?
  • Next by thread: Re: How to sync plots?