MathGroup Archive 2004

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

Search the Archive

RE: PlotRange-> {0, All}

  • To: mathgroup at
  • Subject: [mg50906] RE: [mg50894] PlotRange-> {0, All}
  • From: "David Park" <djmp at>
  • Date: Mon, 27 Sep 2004 00:42:14 -0400 (EDT)
  • Sender: owner-wri-mathgroup at


You can use {0, Automatic} if you can live with that. Or you could calculate
the plot twice. For example...

prange =
  MapAt[Max[0, #] &,
    PlotRange /.
        Plot[Sin[x], {x, 0, 4Pi}, DisplayFunction -> Identity,
          PlotRange -> All], PlotRange], {{2, 1}}]

Plot[Sin[x], {x, 0, 4Pi},
    PlotRange -> prange];

Or with DrawGraphics I might do it something like...


Module[{g, prange},
  g = Draw[Sin[x], {x, 0, 4Pi}];
  prange =
    MapAt[Max[0, #] &,
      PlotRange /.
        AbsoluteOptions[DontShow[Graphics[g], PlotRange -> All],
          PlotRange], {{2, 1}}];
    PlotRange -> prange,
    Axes -> True]

David Park
djmp at

From: sean kim [mailto:sean_incali at]
To: mathgroup at

Is that possible?

For now it seems to only allow All or Automatic or Range{}

But is there anyway to change the PlotRange code so that it will
always display from 0 to Max value? ( like All but starting from the
0, Instead of Min value)

Thanks in adavnce for any thoughts


  • Prev by Date: problem with very slow matrix function
  • Next by Date: Re: unevaluated, hold, holdform
  • Previous by thread: PlotRange-> {0, All}
  • Next by thread: A list element replacement.