Interpolazione polinomiale

Riferimento:
G.C. Barozzi: Primo Corso di Analisi Matematica
Zanichelli (Bologna), 1998, ISBN 88-08-01169-0, paragrafo 2.2, figura 2.2-6

Lo scopo di questa animazione è quello di mostrare l'instabilità dell'interpolazione polinomiale
 al variare dei punti d'interpolazione.
Vengono mostrati i polinomi di quinto grado che interpolano 6 punti base, quando 5 di questi vengono 
tenuti fissi ed uno (quello di sinistra, evidenziato in rosso) viene spostato verticalmente.

datiParziali = {{-1.7, 1.3}, {-1, 1.3}, {0, 1.2}, {1, 1.3}, {2, 1.8}};

Do[
	dati = Prepend[datiParziali, {-2, 1.3 + k * 0.01}];
	pol = InterpolatingPolynomial[dati, x];
	graf = Plot[pol, {x, -3.5, 3.5},
				PlotRange -> {-1.5, 4.5},
				AspectRatio -> Automatic,
				Frame -> True,
				DisplayFunction -> Identity];
	Show[
		graf,
		Graphics[{RGBColor[1,0,0],PointSize[0.02], 
			Point[{-2, 1.3 + k * 0.01}]}],
		Graphics[{RGBColor[0,0,1],PointSize[0.02], 
			Point/@ datiParziali}],
		DisplayFunction -> $DisplayFunction
	], 
	{k, -9, 6}
]