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!