x=Table[t,{t,0,10,1}]

y=Sin[x]

dane=Transpose[{x,y}];

f=Interpolation[dane,InterpolationOrder->10];

Wykres interpolowanej funkcji sinus

p=Plot[f[x],{x,0,10}]

Wykres „prawdziwej” funkcji sinus

s=Plot[Sin[x],{x,0,10},PlotStyle->Green]

Powyższe dwa wykresy wraz z węzłami interpolacji

Show[s,p,ListPlot[dane,PlotStyle->Red]]

Błąd procentowy interpolacji

Plot[(Sin[x]-f[x])/Sin[x]*100,{x,0,10}, PlotRange-> Automatic]

Na poniższym wykresie widać, że poza zakresem interpolacji wykresy rozchodzą się drastycznie.

Show[Plot[f[x],{x,-2,12}], Plot[Sin[x],{x,-2,12},PlotStyle->Green]]