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!