MathGroup Archive 1999

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

Search the Archive

Re: How to: PlotRange->{0, All} ?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg17354] Re: How to: PlotRange->{0, All} ?
  • From: "Peltio" <peltDOT.ioNOS at PAMiolDOT.it>
  • Date: Mon, 3 May 1999 01:45:56 -0400
  • Organization: Peltio Inc.
  • References: <7gfrl6$6eb@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Matthias Georg Imhof wrote
>
>Any ideas?


One idea is:
Plot the graph
        p1=Plot[Sin[x],{x,0,9},PlotRange->All];
and take the values of the y range
        {ymin,ymax}=Last@(PlotRange/.FullOptions[p1]);
then use only the one you need
        a=.2;
        Plot[Sin[x],{x,0,9},PlotRange->{a,ymax}]
        Plot[Sin[x],{x,0,9},PlotRange->{ymin,a}]

And a very rude way to put this in one procedure, without touching the
built-in function Plot, is to define a new function for the cases
PlotRange->{a,All} and PlotRange->{All,a}.
This can be done by using Options and testing them inside the new function,
or, in a rather barbaric manner, by brute force only:
(please forgive the lack of style, it's almost 4 in the morning...
... cut and paste is so luring)

myPlot[f_,rng_,opts___,PlotRange->{All,a_},opts2___]:=
 Module[{p1,ymin,ymax},
  p1=Plot[f,rng,PlotRange->All,DisplayFunction->Identity,opts,opts2];
  {ymin,ymax}=Last@(PlotRange/.FullOptions[p1]);
  Show[p1,PlotRange->{ymin,a},DisplayFunction->$DisplayFunction]
 ]
myPlot[f_,rng_,opts___,PlotRange->{a_,All},opts2___]:=
 Module[{p1,ymin,ymax},
  p1=Plot[f,rng,PlotRange->All,DisplayFunction->Identity,opts,opts2];
  {ymin,ymax}=Last@(PlotRange/.FullOptions[p1]);
  Show[p1,PlotRange->{a,ymax},DisplayFunction->$DisplayFunction]
 ]

Well, at least it seems to work:
            myPlot[Sin[x],{x,0,9},PlotRange->{.2,All}];
            myPlot[Sin[x],{x,0,9},PlotRange->{All,.2}];

Hope this could be of some help.
Regards,
Peltio

P.S.
I fear there is an HoldAll attribute to raise for the myPlot function...




  • Prev by Date: Can we access a serial port from Mathematica 3.0 on Windows NT4.0?
  • Next by Date: Re: LogLog scales with contourplots
  • Previous by thread: Re: How to: PlotRange->{0, All} ?
  • Next by thread: Re: How to: PlotRange->{0, All} ?