range(1,33,2): fourier(i) Then thise pictures was unified with ImageMagick into one gif as follows: convert -delay 30 -loop 0 *.png fourier.gif I, the copyright
"3p")) lines(x,y_fourier(i)) dev.off() } Then using the following shell command: $ convert -delay 50 -loop 50 ani*.jpg animated.gif The original description
code to generate diagram and export it as an animated GIF*) Export["Sawtooth_Fourier_Animation.gif", Table[GraphicsColumn[{Show[ Plot[2 ((1/2) - (1/Pi)*