Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Replies: 2   Last Post: Jan 18, 2013 12:49 AM

 Messages: [ Previous | Next ]
 Bob Hanlon Posts: 906 Registered: 10/29/11
Posted: Jan 16, 2013 11:14 PM

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?
>

Date Subject Author
1/16/13 Bob Hanlon
1/18/13 Bill Rowe