MathGroup Archive 2012

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

Search the Archive

Re: more plotting peculiarities

  • To: mathgroup at smc.vnet.net
  • Subject: [mg124135] Re: more plotting peculiarities
  • From: "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com>
  • Date: Tue, 10 Jan 2012 06:01:23 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201201080922.EAA01272@smc.vnet.net>

On Mon, 09 Jan 2012 08:22:54 -0000, Richard Fateman  
<fateman at eecs.berkeley.edu> wrote:

>
> My guess is that the computation of PlotRange is done using
> Mathematica's arithmetic and
> consequently produces something defective.

One can easily do the experiment:

Block[{Internal`$EqualTolerance = -Infinity},
  Print at Plot[Cos[1.0 + n*2.0^-47], {n, -5, 5}]; (* No difference *)
  Print at Plot[Cos[1.02 + n*2.0^-47], {n, -1, 1},
   PlotRange -> {{-1, 1}, {0.523365951251625, 0.52336595125168}}
  ]; (* No difference *)
]

>
> I call this a bug.

I agree. But the reason for it is not the obvious one. There might even be  
an option somewhere to control this, but if so it's definitely  
undocumented and I wasn't able to locate it.



  • Prev by Date: The domain parameter of Reduce[]
  • Next by Date: Re: For a variety of plotting experiences, maybe bugs?
  • Previous by thread: Re: more plotting peculiarities
  • Next by thread: Re: more plotting peculiarities