Částečné součty Fourierovy řady obdélníkových kmitů

Manipulate[
Plot[{SquareWave[(z/2)],(∑_(m=1)^k)(2/(m π))(1-(((-1))^m))Sin[(π/1)m z]},{z,-1.5,1.5},PlotRange->{-1.5,1.5},PlotStyle->{{Thin,Black,Dashed},{Thick,Black}},AxesLabel->{"z","f(z)"},PlotLabel->"Částečné součty Fourierovy řady obdélníkových kmitů",AspectRatio->1/3,ExclusionsStyle->Dotted],
{{k,1,Dynamic["k = "<>ToString[k]]},1,50,2}]

Export do gif

grafy=Table[
Plot[{SquareWave[(z/2)],(∑_(m=1)^k)(2/(m π))(1-(((-1))^m))Sin[(π/1)m z]},{z,-1.5,1.5},
PlotRange->{-1.5,1.5},PlotStyle->{{Thin,Black,Dashed},{Thick,Black}},AxesLabel->{"z","f(z)"},PlotLabel->"Částečné součty \!\(\*SubscriptBox[\(S\), \(\(n\)\(\\ \)\)]\)Fourierovy řady obdélníkových kmitů, n = "<>ToString[k],AspectRatio->1/3,ExclusionsStyle->Dotted,ImageSize->700
],{k,1,25,2}];

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