генериране на таблична функция:

xt=Table[-2+i(0.2),{i,0,10}]

f[x_]:=Log[(x^2)+5]
yt=f[xt]

L2[x_]:=2.197*(((x-(-1.8))(x-(-1.6)))/(((-2)-(-1.8))((-2)-(-1.6))))+2.109*(((x-(-2))(x-(-1.6)))/(((-1.8)-(-2))((-1.8)-(-1.6))))+
2.023*(((x-(-2))(x-(-1.8)))/(((-1.6)-(-2))((-1.6)-(-1.8))))

x=.
L2[x]

%//Expand

проверка на интерполационните условия:

L2[-2.]

L2[-1.8]

L2[-1.6]

Plot[{f[x],L2[x]},{x,-2,-1.6}]

Plot[{f[x],L2[x]},{x,-5,5}]