小观插值逼近的龙格现象

可以直观帮忙理解为什么会产生龙格现象这种怪诞。

Animate[f = 1/(1 + x^2); r = 5; g1 = Plot[f, {x, -r, r}, PlotStyle -> RGBColor[1, 0, 0]]; p0 = Table[{x0, f /. x -> x0}, {x0, -r, r, 2 r/n}]; Interf = Interpolation[p0, InterpolationOrder -> n]; g2 = Plot[Interf[x], {x, -r, r}, PlotStyle -> RGBColor[0, 0, 1]]; Show[g1, g2, PlotRange -> {{-r, r}, {-0.8, 2}}], {n, 1, 60,   2}]Export["mygif.gif", g1]