Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: version 6.0 Plot[___,Exclusions->Automatic]

• To: mathgroup at smc.vnet.net
• Subject: [mg76312] Re: version 6.0 Plot[___,Exclusions->Automatic]
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Sat, 19 May 2007 04:46:10 -0400 (EDT)
• References: <f2k0a8$e3v$1@smc.vnet.net>

Hi,

with your definition
ff[x_?NumericQ]:=Floor[2x]+0.1;

you hinder Mathematicas symbolic engine to take a
look onto the discontinuities.

If you say
ff[x_] := Floor[2 x] + 0.1;(*Define a numeric function*)

Plot[
  Evaluate[ff@x], {x, 0, 4}, ExclusionsStyle -> Red]

or

Plot[ff@x, {x, 0, 4}, ExclusionsStyle -> Red, Evaluated -> True]

it work as expected.

Regards
   Jens


Lev Bishop wrote:
> Mathematica version 6.0 has a nice feature in it's Plot[] function
> that automatically looks for discontinuities so it can draw them in
> ExclusionsStyle. You can explicitly set the Exclusions option for
> functions of your own that Plot[] cannot find the discontinuities in
> (eg, because they only evaluate for ?NumericQ). I couldn't find a
> documented method for doing this but, the following seems to work:
> 
> ff[x_?NumericQ]:=Floor[2x]+0.1; (*Define a numeric function *)
> Plot[ff@x,{x,0,4},ExclusionsStyle->Red](*Plot[] doesn't know where the
> discontinuities are*)
> 
> Visualization`DiscontinuityDump`Discontinuities[ff[x_],z_]:=Visualization`DiscontinuityDump`Discontinuities[Floor[2x],z];
> (* ff[x] has the discontinuities at the same places as Floor[2x]*)
> Plot[ff@x,{x,0,4},ExclusionsStyle->Red] (*Now it works*)
> Plot[Sin@ff@Cos@x,{x,0,4},ExclusionsStyle->Red](*Even in more complex cases*)
> 
> Hope that's useful to someone,
> Lev
> 

• Follow-Ups:
  • Re: Re: version 6.0 Plot[___,Exclusions->Automatic]
    • From: Murray Eisenberg <murray@math.umass.edu>