Date: Jan 16, 2013 11:14 PM
Author: Bob Hanlon
Subject: Re: Question about PlotRange
The "clipped" items don't show but the boundaries show. To include the

clipped portions, Join the plot, do clipping manually, or use

ListLinePlot

Table[

ListPlot[

Table[x, {x, -.13, .13, .01}],

Axes -> True,

Filling -> 0,

FillingStyle -> {Red, Darker[Green]},

PlotRange -> {Automatic, yRange}],

{yRange, {Full, {-0.1, 0.06}}}]

Table[

ListPlot[

Table[x, {x, -.13, .13, .01}],

Axes -> True,

Filling -> 0,

FillingStyle -> {Red, Lighter[Green]},

Joined -> True,

PlotRange -> {Automatic, yRange}],

{yRange, {Full, {-0.1, 0.06}}}]

Table[

ListPlot[

Table[Clip[x, {-0.1, 0.05}], {x, -.13, .13, .01}],

Axes -> True,

Filling -> 0,

FillingStyle -> {Red, Darker[Green]},

PlotRange -> {Automatic, yRange}],

{yRange, {Full, {-0.1, 0.06}}}]

Table[

ListLinePlot[

Table[x, {x, -.13, .13, .01}],

Axes -> True,

Filling -> 0,

FillingStyle -> {Red, Darker[Green]},

PlotRange -> {Automatic, yRange}],

{yRange, {Full, {-0.1, 0.06}}}]

Bob Hanlon

On Wed, Jan 16, 2013 at 1:42 AM, James Stein <james@stein.org> wrote:

> I am mystified by the two charts produced by this expression:

>

> Table [

> ListPlot [ Table [ x, { x, -.13, .13, .01 } ] ,

> Axes -> True,

> Filling -> 0,

> FillingStyle -> { Red, Darker [ Green ] } ,

> PlotRange -> { Automatic, yRange }

> ] , { yRange, { Full, { -0.1, 0.06} } } ]

>

> If 'PlotRange' allows 'Full' for the y-axis, all data is plotted as

> expected, but

> if 'PlotRange' restricts extreme values of y, *some* extreme values

> have vanished,

> but *not* the *most* extreme values.

>

> My desire is for all 27 values to appear on the second chart.

> (In more realistic situations, the visual 'Filling' is important.)

> How is this to be achieved?

>