Untersumme anzeigen

a = -4 (slider from -4 to 4, step 0.1)
b = 4 (slider from -4 to 4, step 0.1)
n = 11 (slider from 1 to 20, step 1)
dx: (b - a) / n
f = Function((x + 4) * (x - 4) * (x - 1) 0.1 + 2, -4.5, 4.5)
c = Integral(f, a, b)
A: (a, f(a))
B: (a, 0)
d = Segment(A, B)
C: (b, f(b))
D: (b, 0)
e = Segment(C, D)
text1: "\\int_{a }^{b }  = " + c
text2: "\int_{" + a + "}^{" + b + "} f(x)dx \;=\; " + c
g = LowerSum(f, a, b, n)
h = false
text3: "U_{" + n + "} \;=\; \frac{" + b + "-(" + a + ")}{" + n + "}\sum_{i=1}^{" + n + "} f(x_i)\;=\;" + g
text4: "\Delta x =\;" + dx