Ober- und Untersumme

n = 10 (slider from 1 to 100, step 1)
f(x) = x^(3.000000000000000) - x^(2.000000000000000) - x + 2.000000000000000
s = Segment((-1.000000000000000, 0.000000000000000), (1.700000000000000, 0.000000000000000))
B = Point(s)
A = Point(s)
C = (0, -0.5)
L = LowerSum(f, x(A), x(B), n)
g = Function(f, -1.300000000000000, 1.800000000000000)
T1: "a = " + (x(A))
T2: "b = " + (x(B))
T4: "suma inferior = " + L
U = UpperSum(f, x(A), x(B), n)
T5: "suma superior = " + U
T6: "diferencia = " + (abs(U - L))
a: x(A)
b: x(B)
int = Integral(g, a, b)