% Test 1, calculo numerico (521230), S2-2011
% Tema 3: Interpolacion

% Pregunta 2

% primeros 4 puntos
x=[-2 -1 0 1];
y=[-25 -4 -1 8];
% polinomio de grado menor o igual que 3
p3 = polyfit(x,y,3);
% spline cubico natural
cs = csape(x,y,[2 2]);
% grafico de puntos, polinomio, spline
plot(x,y,'o');
hold on
t=linspace(-2,1);
p3t = polyval(p3,t);
plot(t,p3t);
fnplt(cs,'r');

