24. Piirrä edellä muodostettua datajoukkoa datat interpoloivanpolynomin ja paloittain interpoloivan neliöllisen polynomin kuvaajat.

datat = Table[{x, Sin[x]}, {x, 0, 10}] // N

norsu = InterpolatingPolynomial[datat, x]

marsu = Interpolation[datat, InterpolationOrder -> 2]

Plot[{marsu[x], norsu, Sin[x]}, {x, 0, 10}]

25. Muodosta erotusfunktio Sin[x]-IntepolatingPolynomial ja piirrä sen kuvaaja.

Clear[f, x]
f[x_] := Sin[x] - norsu

Plot[f[x], {x, -6, 14}]