Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Exclusions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg87978] Exclusions
  • From: Fiona H Evans <fevans at agric.wa.gov.au>
  • Date: Mon, 21 Apr 2008 06:39:44 -0400 (EDT)

I'm having a little trouble with the use of "Exclusions" for plotting.

If I use "Exclusions -> Automatic" in the following, Plot3D finds no
exclusions.

pdfN[{x_, y_} := PDF[MultinormalDistribution[{0, 0}, {{1, 0}, {0,
1}}], {x, y}];

grayColors = Function[{x, y, z}, (Lighter[Gray, #] &)[z]];

Plot3D[ pdfN[{x, y}], {x, -3, 3}, {y, -3, 3}, PlotRange -> Full,
 Mesh -> 30,  ColorFunction -> grayColors, PlotPoints -> 50,
 Exclusions -> Automatic,
 ExclusionsStyle -> {None, Directive[Thick, Red]}, MaxRecursion -> 0,
 AxesLabel -> {"x", "y"}]

However, if I try to exclude a cross-section through the mean of the
distribution asin the following, as well as my defined Exclusions, I
get an exclusion drawn at {y == 0, x < 0}, even though I have used
inequalities to exclude y == 0 from my Exclusions.

Plot3D[ pdfN[{x, y}], {x, -3, 3}, {y, -3, 3}, PlotRange -> Full,
 Mesh -> 30,  ColorFunction -> grayColors, PlotPoints -> 50,
 Exclusions -> {{ArcTan[x, y] == 0.5, x > 0 && y > 0}, {ArcTan[x, y]
== -Pi + 0.5, x < 0 &7 y < 0}},
 ExclusionsStyle -> {None, Directive[Thick, Red]}, MaxRecursion -> 0,
 AxesLabel -> "x", "y"}]

Can anyone see a way that I can avoid this?

Regards, Fiona.


  • Prev by Date: Re: Hamiltonian System with NDSolve
  • Next by Date: Re: problem accessing notebooks
  • Previous by thread: Re: Timing
  • Next by thread: Re: Exclusions