過剰和

不足和

真ん中

A = Point(xAxis)
B = Point(xAxis)
f(x) = (0.02 * x^(3))
n = 6 (slider from 1 to 50, step 1)
g(x) = x + (x(B) - x(A)) / n
m = IterationList(g, x(A), n)
mm = Sequence(Polygon[{(Element[m, i], 0), (Element[m, i], f(Element[m, i])), (Element[m, i + 1], f(Element[m, i])), (Element[m, i + 1], 0)}], i, 1, n)
mmm = Sequence(Polygon[{(Element[m, i], 0), (Element[m, i], f(Element[m, i + 1])), (Element[m, i + 1], f(Element[m, i + 1])), (Element[m, i + 1], 0)}], i, 1, n)
mmmm = Sequence(Polygon[{(Element[m, i], 0), (Element[m, i], f((Element[m, i + 1] + Element[m, i]) / 2)), (Element[m, i + 1], f((Element[m, i + 1] + Element[m, i]) / 2)), (Element[m, i + 1], 0)}], i, 1, n)
a = 0 (slider from -5 to 5, step 0.1)
b = 1 (slider from -5 to 5, step 0.1)
c = 0 (slider from -5 to 5, step 0.1)
sum_1 = Sum(mm)
sum_2 = Sum(mmm)
sum_3 = Sum(mmmm)
text1: "面積の総和は" + (LaTeX[sum_1]) + ""
text2: "面積の総和は" + (LaTeX[sum_3]) + ""
text3: "面積の総和は" + (LaTeX[sum_2]) + ""