Services & ResourcesWolfram ForumsMathGroup Archive

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

RE: PlotRange-> {0, All}

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

Sean,

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 /.
      AbsoluteOptions[
        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...

Needs["DrawGraphics`DrawingMaster`"]

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

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/





From: sean kim [mailto:sean_incali at yahoo.com]
To: mathgroup at smc.vnet.net

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

sean