我想绘制从-1到1的间隔半圈的中间黎曼和。半圈是：
Sqrt[1 - x^2]
目前我通过获取x轴和y轴然后得到矩形表来获得正确的黎曼和。
rectangles[x_, y_] :=
Table[Rectangle[{x[[i]], 0.}, {x[[i + 1]], y[[i]]}], {i,Length[x] - 1}]
然后我会显示情节
Show[{Plot[y, {x, -1, 1}],
Graphics[{Opacity[0.3], Pink, EdgeForm[Thin],rectangles[xaxis,
yaxis]}]}]
得到总和：
area = Sum[(xaxis[[i + 1]] - xaxis[[i]]) yaxis[[i]], {i, 1,
Length[xaxis] - 1}] // N
我如何改变以绘制中间总和并得到它的面积？