ex8a

% eserc 8 Esercitazione sull''interpolazione mediante spline
% utilizza la funzione spline MatLab
% xi,yi i=1:n nodi di interpolazione
% la tabulazione è generata da funzioni test
% n=nodi ns=numero di punti per il grafico
% genera il grafico sia dei nodi, sia della spline
% sia della funzione che ha generato i nodi,

clc, clear

% input
fprintf('\n Esercitazione sulla approx mediante spline');
no_fun=input('\n Dai il numero della funzione (3 funzioni disponibili)');
nome_fun=fun8([],no_fun);
fprintf('\n funzione corrente: %s\n\n', nome_fun);
n=input('\n dai numero nodi per approssimare:');
ns=input('\n dai numero punti per il grafico:');
a=input('\n dai il primo estremo dell''intervallo: ');
b=input('\n dai il secondo estremo dell''intervallo: ');

% Calcolo della spline mediante funzioni MatLab
x=linspace(a,b,n);
[nome,y]=fun8(x,no_fun);
p=spline(x,y);
xs=linspace(a,b,ns);
pys=ppval(p,xs);
[nome,fys]=fun8(xs,no_fun);
plot(x,y,'o',xs,pys,'k',xs,fys,'r');
legend('nodi','spline',nome);
title('Esercitazione 8','FontSize', 14);