Plot the evolution of an approximation - Animate

Question

Here's the code

Clear[f, g]
f[x_] := x^2;
g[i_Integer, 1] := g[i, 1] = f[i];
g[50, _] = g[0, _] = 0;(*initial and final condition*)
g[i_Integer, j_Integer] := 
  g[i, j] = Max[0.5*(g[i - 1, j] + g[i + 1, j - 1]), f[i]];
 ListPlot[Table[{i, g[i, #]}, {i, 0, 50}] & /@ {1, 10}]

Now what I want to do is to make a plot of the evolution of $g_i^k$ in terms of k. I want to animate it for $k=0,.....100$. How Can I do that ?

And I want to display the fixed curve $f(x)=x²$ in the animation, how to do that ? Thanks

Answer 1

If I understand you correctly, this is what I would do:

 ListAnimate[
 ListPlot[Table[{i, g[i, #]}, {i, 0, 50}], 
    PlotRange -> {{1, 60}, {0, 3000}}] & /@ Range[1, 100, 10]]

Use Show to combine the plot for x^2 with each ListPlot and then ListAnimate the whole set:

ListAnimate[
 Show /@ ({ListPlot[Table[{i, i^2}, {i, 0, 50}], Joined -> True], 
      ListPlot[Table[{i, g[i, #]}, {i, 0, 50}], 
       PlotRange -> {{1, 60}, {0, 3000}}]} & /@ Range[1, 100, 10])]