Riemannove vsote

Spodnja vsota

Zgornja vsota

Integral

f(x) = x^(3.0) - 5.0 * x^(2.0) + 2.0 * x + 15.0
delitev = 1 (slider from 1 to 100, step 1)
A = Point(xAxis)
B = Point(xAxis)
a: x(A)
b: x(B)
h: (b - a) / delitev
seznamTockSp = Sequence((i, f(i)), i, a, b, h)
seznamX = Sequence(i, i, a, b, h)
seznamY = Sequence(f(i), i, a, b, h)
MnSpodnjaVsota = Sequence(Polygon[(Element[seznamX, i], 0.0), (Element[seznamX, i], Min[Element[seznamY, i], Element[seznamY, i + 1.0]]), (Element[seznamX, i + 1.0], Min[Element[seznamY, i], Element[seznamY, i + 1.0]]), (Element[seznamX, i + 1.0], 0.0)], i, 1.0, delitev)
c = true
seznamTockZg: seznamTockSp
MnZgornjaVsota = Sequence(Polygon[(Element[seznamX, i], 0.0), (Element[seznamX, i], Max[Element[seznamY, i], Element[seznamY, i + 1.0]]), (Element[seznamX, i + 1.0], Max[Element[seznamY, i], Element[seznamY, i + 1.0]]), (Element[seznamX, i + 1.0], 0.0)], i, 1.0, delitev)
d = true
int = Integral(f, a, b)
e = true
SpodnjaVsotaK = Sum(MnSpodnjaVsota)
tekst1: " = " + SpodnjaVsotaK
ZgornjaVsotaK = Sum(MnZgornjaVsota)
tekst2: " = " + ZgornjaVsotaK