New in Wolfram Mathematica 7: Enhanced Fourier Analysis ◄ previous | next ►
Visualize the Gibbs Phenomena in 1D
Visualize the Gibbs phenomena for a function with jump discontinuity in 1D.
In[1]:=

Click for copyable input
GraphicsGrid@

 Partition[

  ParallelTable[

   Plot[Evaluate[

     FourierTrigSeries[Sign[t], t, n]], {t, -\[Pi], \[Pi]}, 

    Filling -> Axis, PlotLabel -> n], {n, 5, 25, 5}], 2]
Out[1]=