MathGroup Archive 2013

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

Search the Archive

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



  • Prev by Date: Re: NSolve output
  • Next by Date: Re: Mathematica and Lisp
  • Previous by thread: Question about PlotRange
  • Next by thread: Re: Question about PlotRange