% Lab 5 Esercizio pag 6 n.1
clc
close all
clear all
f=@(x)exp(x)./(1+x.^2)
% n grado del polinomio
n=7;
x=linspace(-3,2,n+1)
p=polyfit(x,f(x),n)
% grafico (N.B. non è richiesto dal testo, vi serve solo come esempio)
z=linspace(-3,2,500);
plot(x,f(x),'ok',z,f(z),'r',z,polyval(p,z),'b')
legend('dati','f esatta','polinomio')
%
err=norm(f(z)-polyval(p,z),inf)
r=roots(p)
% dall'elenco delle radici si vede che sono 2