35. Integroi sin(x) välillä 0->2π. Kokeile myös numeerista integrointia.

Integrate[Sin[x], {x, 0, 2 Pi}]

NIntegrate[Sin[x], {x, 0, 2 Pi}]

36. Integroi (∫_a^b)(∫_d^c) 
                (1/(x y)) dx dy.

Clear[a, b, c, d]

Integrate[1/(x y), {x, d, c}, {y, a, b}]

\(37. \ Integroi\ \(∫\((4\ x^4 + 4\ x^3 - 9\ x^2 - x + 
                2)\)\ dx\ ja\ tarkista\ saamasi\ tulos\ derivoimalla\ \(\(se\)\(.\)\)\)\)

Integrate[4 x^4 + 4 x^3 - 9 x^2 - x + 2, x]

D[%, x]

38. Ylinopeutta ajava auto ajaa nopeudella v=15 m/s.Poliisi ryhtyy ottamaan ajajaa kiinni.Poliisiauto lähtee levosta ja kiihdyttää a=10 m/s^2. Milloin poliisi saa kaaharin kiinni?Piirrä kummankin auton paikka ajan funktiona.

kaahari = Integrate[15, t]
jepari = Integrate[10, t, t]

Solve[kaahari == jepari, t]

Plot[{kaahari, jepari}, {t, 0, 7}]

39. Kappaleen kiihtyvyys a(t) ajan funktiona muuttuu seuraavasti
	a(t) = arctan(t),
kun aika ilmoitetaan sekunteina. Laske, mikä on kappaleen keskimääräinen nopeus 12 ensimmäisen sekunnin aikana, kun liikkeelle lähdetään levosta, ja mikä on sen nopeus 20 sekunnin kuluttua lähdöstä. Piirrä kiihtyvyyden ja nopeuden kuvaajat samaan kuvaan.

v = Integrate[ArcTan[t], t]

vkeski = (1/12)*Integrate[v, {t, 0, 12}] // N

v /. t -> 20 // N

Plot[{ArcTan[t], v}, {t, 0, 11}]