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

MathGroup Archive 2010

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

Search the Archive

Re: Shading in Plot3D

  • To: mathgroup at
  • Subject: [mg113012] Re: Shading in Plot3D
  • From: Bob Hanlon <hanlonr at>
  • Date: Mon, 11 Oct 2010 05:15:16 -0400 (EDT)

Without shading it is very difficult to visualize

Column[Plot3D[Sin[x y],
    {x, -Pi, Pi}, {y, -Pi, Pi},
    PlotPoints -> Automatic,
    Mesh -> {{-Pi/2, 0, Pi/2},
      {-Pi/2, 0, Pi/2}},
    MeshStyle -> {
      {Black, Thickness[0.004]}},
    PlotRange -> All,
    BaseStyle -> {12, Bold},
    Boxed -> False,
    ImageSize -> 300,
    #] & /@
  {ColorFunction -> White,
   Lighting -> {{"Ambient", White}}}]

Bob Hanlon

---- R Martinez < at> wrote: 


I want to use Plot3D to produce a surface with no shading. All I want is a black-and-white plot: black meshlines and a white surface.

But no matter what I try, I get gray shading. I've done my due diligence in the Documentation Center, but can't find the key to turn off all shading.

Can anyone help?

Here's the Plot3D command I'm using, which gives me a white surface with the black meshlines, but with the unwanted shading.

Plot3D[Sin[x y], {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> Automatic, 
 Mesh -> {{-Pi/2, 0, Pi/2}, {-Pi/2, 0, Pi/2}}, 
 MeshStyle -> {{Black, Thickness[0.004]}, {Black, Thickness[0.004]}}, 
 PlotRange -> {All, All, All}, BaseStyle -> {FontSize -> 12, Bold}, 
 Boxed -> False, PlotRegion -> {{0.025, 0.975}, {0.025, 0.975}}, 
 MeshShading -> None, Exclusions -> None, ColorFunction -> {White}]

Thanks in advance.

Raul Martinez

  • Prev by Date: Re: Solving a non-linear system to find coefficients in
  • Next by Date: Re: What is the ESC sequence for the "Matching Double Brakets"? From
  • Previous by thread: Re: Shading in Plot3D
  • Next by thread: Re: Shading in Plot3D