Analyse 2a, Jolien Oomens, november 2016

Opgave 24.6

Manipulate[
Grid[{{Plot[Evaluate[Table[(x-1/n)^2,{n,1,k}]],{x,0,1},PlotRange->{{0,1},{0,1}}],
Plot[Evaluate[Table[(x-1/n)^2-x^2,{n,1,k}]],{x,0,1},PlotRange->{{0,1},{-1,1}}]
}}],{k,1,25}]

Manipulate[
Grid[{{Plot[Evaluate[Table[(x-1/n)^2,{n,1,k}]],{x,0,15},PlotRange->{{0,1},{0,1}}],
Plot[Evaluate[Table[(x-1/n)^2-x^2,{n,1,k}]],{x,0,15},PlotRange->{{0,15},{-1,1}}]
}}],{k,1,25}]

Opgave 24.14

Manipulate[Plot[Evaluate[Table[n x/(1+n^2x^2),{n,1,k}]],{x,0,1},PlotRange->{{0,1},{0,.6}}],{k,1,30}]