HUOM! ei ole laskettu pinta-alaa 
välillä [-6,2] vaan leik.pisteiden väli.

f(x) = log(x^(2) + 1)
g(x) = 3 - 3^(x)
A = Intersect(g, f, (-4.3494047649278045, 2.991589795787112))
B = Intersect(f, g, (0.8264986238437356, 0.5206373164245295))
tarkka = IntegralBetween(g, f, x(A), x(B))
teksti1 = LaTeX(tarkka, true, true)
h(x) = abs(f(x) - g(x))
n = 350 (slider from 1 to 500, step 1)
alasumma = LowerSum(h, x(A), x(B), n)
yläsumma = UpperSum(h, x(A), x(B), n)
teksti2 = LaTeX(alasumma, true, true)
teksti3 = LaTeX(yläsumma, true, true)