Re: Shading in Plot3D

*To*: mathgroup at smc.vnet.net*Subject*: [mg113023] Re: Shading in Plot3D*From*: Helen Read <readhpr at gmail.com>*Date*: Mon, 11 Oct 2010 05:17:23 -0400 (EDT)*References*: <i8s5ej$93f$1@smc.vnet.net>*Reply-to*: HPR <read at math.uvm.edu>

On 10/10/2010 6:44 AM, R Martinez wrote: > All, > > 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}] One of the examples in the Documentation for Plot3D, under Options, PlotStyle says Produce a wire mesh: PlotStyle->None A few other comments about what you have: PlotPoints->Automatic is the default behavior. You do not need to specify it. There is also no need for PlotRange->{All,All,All} in your example. The default color for MeshStyle is Black, so you need only specify the thickness. So try this: Plot3D[Sin[x y], {x, -Pi, Pi}, {y, -Pi, Pi}, PlotStyle -> None, MeshStyle -> {Thickness[.004], Thickness[.004]}, Mesh -> {{-Pi/2, 0, Pi/2}, {-Pi/2, 0, Pi/2}}, BaseStyle -> {FontSize -> 12, Bold}, Boxed -> False] I'm not at all sure what you are trying to achieve with PlotRegion, which is an option for two dimensional plots. If you to plot only over a specific region, the way to do that is with RegionFunction. For example, this will plot the surface over the unit disk. Plot3D[Sin[x y], {x, -Pi, Pi}, {y, -Pi, Pi}, RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= 1]] And if you want only a wire mesh: Plot3D[Sin[x y], {x, -Pi, Pi}, {y, -Pi, Pi}, RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= 1], PlotStyle -> None] -- Helen Read University of Vermont