User Portlet
| Discussions |
|---|
| How can the green contour be graphed? ![enter image description here][1] FourierF[a_, t_] := a.Table[Sin[ 2 Pi i t], {i, Length[a]}]; FourierAnim[a_, t_] := Module[{ A = Accumulate[a*Table[Cos[ 2 Pi i t], {i,... |