I'd like to create a picture for a Riemann sum for my Calculus class. I modified this example: http://reference.wolfram.com/language/example/Visualize3DRiemannSums.html#
and got this:
f = 20/(x^2 + y^2);
Grid[
Partition[
Table[
Show[
Quiet@DiscretePlot3D[f, {x, 1 + d/2, 2, d}, {y, 1 + d/2, 2, d},
ExtentSize -> Full,
FillingStyle -> Opacity[.6],
PlotStyle -> RGBColor[0.19, 1., 0.16]
],
PlotRange -> {{0, 2.3}, {0, 2.3}, {0, 10}},
ViewPoint -> {2, .5, 1.2},
Method -> {"AxesInFront" -> False},
Axes -> True, AxesOrigin -> {0, 0, 0}, AxesLabel -> None,
AxesStyle -> Directive[Thickness[0.001], Orange],
Lighting -> "Neutral",
PlotRangePadding -> 0,
ImageSize -> 500,
Boxed -> False,
AxesEdge -> {{1, -1}, {-1, -1}, {-1, 1}}],
{d, {1/2, 1/4, 1/8, 1/16}}],
2]
]
Unfortunately, the color for the plot is too dark, by some reason I can't make it lighter. Also, I do not like the axes in front of the picture. How can I fix that?
I am open to all suggestions on this topic: choice of a function, choice of a region, colors, etc. I guess, ultimately, I'd like to create the following picture: