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

Click for copyable input
GraphicsGrid@

 Partition[

  ParallelTable[

   Plot3D[Evaluate[

     FourierTrigSeries[Sign[x], x, n] FourierTrigSeries[Sign[y], y, 

       n]], {x, -\[Pi], \[Pi]}, {y, -\[Pi], \[Pi]}, PlotPoints -> n 5,

     Mesh -> None, PlotLabel -> {n, n}], {n, 5, 20, 5}], 2]
Out[1]=