#Métodos Numéricos - 2023. IMERL, Fing
#Código de ejemplo para el ejercicio 5 del práctico 3

w=[5,10,15,20,30,40,50,60,70,80,90,100];
Vw=[1.226, 1.498, 1.822, 2.138, 2.662, 2.840, 2.807, 2.542, 2.210, 1.877, 1.539, 1.201];

w6=[10, 20, 40, 60, 80, 100];
Vw6=[1.498,2.138,2.840,2.542,1.877,1.201];
x=0:0.1:105;
y6= interpolante(w6,Vw6,x);

#Errores cuadráticos en los puntos reservados
w6r=[5,15,30,50,70,90];
Vw6r=[1.226,1.822,2.662,2.807,2.210,1.539];
res=norm(interpolante(w6,Vw6,w6r)-Vw6r)

y12= interpolante(w,Vw,x);

plot(x,y6,'LineWidth',2);
hold on;
plot(x,y12,'LineWidth',2);
scatter(w,Vw);
grid on;
set(gca,'fontsize', 26);
title('Interpolación de los datos para 6 y 12 puntos');
legend('6 puntos','12 puntos');