ulkosumma

sisäarvo

f(x) = ℯ^(x^(3) - x)
a = Integral(f, -1, 0.5)
b = Surface(t, (ℯ^(t^(3) - t) * cos(s)), (ℯ^(t^(3) - t) * sin(s)), t, -1, 0.5, s, (-5 * π / 4), (2 * π / 3))
n = 3 (slider from 1 to 500, step 1)
c = LowerSum(f, -1, 0.5, n)
d = UpperSum(f, -1, 0.5, n)
l2 = Sequence(f(-1 + 1.5 / ((2 * n)) + (1.5 / n * p)), p, 0, n - 1, 1)
l3 = Sequence((-1 + 1.5 / ((2 * n)) + (1.5 / n * p), f(-1 + 1.5 / ((2 * n)) + (1.5 / n * p))), p, 0, n - 1, 1)
l1 = Sequence(-1 + 1.5 / ((2 * n)) + (1.5 / n * p), p, 0, n - 1, 1)
l4 = Sequence(Max[f, -1 + (1.5 / n * p), -1 + (1.5 / n * (p + 1))], p, 0, n - 1, 1)
l5 = Sequence(Min[f, -1 + (1.5 / n * p), -1 + (1.5 / n * (p + 1))], p, 0, n - 1, 1)
l6 = Sequence((-1 + (1.5 / n * p), 0), p, 0, n, 1)
l7 = Sequence(Cylinder[l6(p + 1), l6(p + 2), y(Max[f, -1 + (1.5 / n * p), -1 + (1.5 / n * (p + 1))])], p, 0, n - 1, 1)
l8 = Sequence(Cylinder[l6(p + 1), l6(p + 2), y(Min[f, -1 + (1.5 / n * p), -1 + (1.5 / n * (p + 1))])], p, 0, n - 1, 1)
ulkosumma = Sum(l7)
teksti1 = LaTeX(ulkosumma, true, true)
sisäsumma = Sum(l8)
teksti2 = LaTeX(sisäsumma, true, true)