function esperimento_video

% oggetto:
% esempio di Runge per grado fissato "n", in nodi equispaziati e di
% Chebyshev-Lobatto.

% grado interpolante.
nV=1:1:18;

setintp=2; % 1: eqsp. 2: cheb
% nodi test
s=-5:10/10000:5;

clf

% ---- interpolazione nodi equispaziati ----

%% Set up and writing the movie.

i=1;
for n=nV
    switch setintp
        case 1
            x=-5:10/n:5; y=runge(x);
            tt=interpol(x,y,s);
            ylimv=[-5 5];
        case 2
            xgcl=gcl(-5,5,n+1); ygcl=runge(xgcl);
            tt =interpol(xgcl, ygcl,s);
            ylimv=[-0.2 1.3];
    end

        % valutazione errori assoluti
    fs=runge(s); % valutazione funzione di Runge, punti test
    ee=max(abs(fs-tt)); % nodi equispaziati

    
    subplot(2,2,1); % prima figura (nodi equi.)
    plot(s,fs,s,tt,'LineWidth',2);
    xlim([-5 5])
    ylim(ylimv)
    grid on;
    hold off;
    title(['Grado interpolante: ',num2str(n)]);
    % legend('funzione runge','intp. nodi eqsp.');
    

    subplot(2,2,2);
    semilogy(s,abs(fs-tt),'LineWidth',2);
    xlim([-5 5])
    ylim([0 10])
    grid on;
    title(['Massimo errore:',num2str(ee)]);
    hold off;

    pause(3);

end
