f(x) = ℯ^(x^(3) - x)
teksti1 = LaTeX(f, true, true)
n = 7 (slider from 1 to 50, step 1)
l1 = Sequence(-1 + (1.5 / n * p), p, 0, n, 1)
l2 = Sequence((-1 + (1.5 / n * p), 0), p, 0, n, 1)
l3 = Sequence(Cylinder[l2(p), l2(p + 1), y(Max[f, -1 + (1.5 / n * (p - 1)), -1 + (1.5 / n * p)])], p, 1, n, 1)
ylälieriöt = Sum(l3)
teksti2 = LaTeX(ylälieriöt, true, true)
l4 = Sequence(Cylinder[l2(p), l2(p + 1), y(Min[f, -1 + (1.5 / n * (p - 1)), -1 + (1.5 / n * p)])], p, 1, n, 1)
a = Surface(t, (f(t) * cos(s)), (f(t) * sin(s)), t, -1, 0.5, s, (-5 * π / 4), π / 2)
alalieriöt = Sum(l4)
teksti3 = LaTeX(alalieriöt, true, true)
tarkka = Integral((π * f(x)^(2)), -1, 0.5)
teksti4 = LaTeX(tarkka, true, true)