4. Ratkaise yhtälö ln(x)=x-2.

Plot[Log[x] - x + 2, {x, 0.1, 5}]

FindRoot[Log[x] == x - 2, {x, 0.2}]

FindRoot[Log[x] == x - 2, {x, 3.0}]

5. Ratkaise lineaarinen yhtälöryhmä
	2 x+3 y-5 z=10
	13 x-z=1
	2y+z=3

m = {{2, 3, -5}, {13, 0, -1}, {0, 2, 
          1}}
b = {10, 1, 3}

LinearSolve[m, b]

6. Taulukoi lukuparit {x,ln x}, kun x=1,2,...,10. Muodosta paloittain interpoloiva toisen asteen polynomi ja piirrä sen kuvaaja.

taulu = Table[{x, Log[x]}, {x, 10}] // N

inter = Interpolation[taulu, InterpolationOrder -> 2]

Plot[inter[x], {x, 1, 10}]

Plot[{inter[x], Log[x]}, {x, 1, 10}]