function grafspline98(funz,xnodi,a,b)


global axinterp axerrore axleb


fnodi = feval(funz,xnodi);
xi=linspace(a,b,100);

yi = spline(xnodi,fnodi,xi);
yteor = feval(funz,xi);
yteor = yteor(:);
yi    = yi(:);

axes(axinterp);
cla

line(xi, yi ,'color','g')
line(xi,yteor,'color','r')
title('Interpolazione Spline cubica','Fontsize',16);

grid on
line(xnodi,fnodi,'color','g','LineStyle','*')



axes(axerrore);
cla

erri=(yi-yteor);
grid on
line(xi, erri ,'color','g')
title('errore','Fontsize',8)


set(axleb,'visible','off')



