Cos[-1.-2]

Cos[0.-2]

Cos[2.-2]

f[x_]:=Cos[x-2]
xt={-1.,0.,2.};
f[xt]

L2[x_]:=-0.99*(((x-0)(x-2))/((-1-0)(-1-2)))+(-0.42)*(((x-(-1))(x-2))/((0-(-1))(0-2)))+1*(((x-(-1))(x-0))/((2-(-1))(2-0)))
L2[x]

Проверка за правилност на интерполационния полином:

L2[-1]

L2[0]

L2[2]

Expand[L2[x]]

L2[0.2]

Plot[Abs[f'''[x]],{x,-1,2}]

M3=1;
R2[x_]:=(M3/6)Abs[(x-(-1))(x-0)(x-2)]
R2[0.2]

Истинската стойност:

f[0.2]

Истинската грешка

f[0.2]-L2[0.2]