Question: Animation of Fourier Series of a function

I want to animate Fourier Series of Example 1 in the link as follows.

I know that Maple already includes Fourier transform and series package. But I want to write a code from the beginning As if the packages never existed. You can find my try in this link (fourier.mw)

Can you help me for finishing the code?

Thanks.

 

 

Please Wait...