Částečné součty Fourierovy řady pilovitých kmitů

Manipulate[
Plot[{1/2+1/2TriangleWave[((z+1/2)/2)],1/2+(∑_(m=1)^k)(2/(((m π))^2))(1-(((-1))^m))Cos[(π/1)m z]},{z,-3,3},PlotRange->{0,1},AspectRatio->1/3,PlotStyle->{{Thin,Black,Dashed},{Thick,Black}},AxesLabel->{"z","f(z)"},PlotLabel->"Částečné součty Fourierovy řady pilovitých kmitů"],
{{k,1,Dynamic["k = "<>ToString[k]]},1,20,2}]

Export do gif

grafy=Table[
Plot[{1/2+1/2TriangleWave[((z+1/2)/2)],1/2+(∑_(m=1)^k)(2/(((m π))^2))(1-(((-1))^m))Cos[(π/1)m z]},{z,-3,3},
PlotRange->{0,1},AspectRatio->1/3,PlotStyle->{{Thin,Black,Dashed},{Thick,Black}},AxesLabel->{"z","f(z)"},PlotLabel->"Částečné součty \!\(\*SubscriptBox[\(S\), \(\(n\)\(\\ \)\)]\) Fourierovy řady pilovitých kmitů, n = "<>ToString[k],ImageSize->700
],{k,1,15,2}];

Export["2.8.gif",grafy,"GIF","DisplayDurations"->1,"AnimationRepetitions"->∞]