周期2lを持つ関数のフーリエ級数展開（標準プログラム）

\(\(\( (*\ 問1\ \((1)\)\ *) \)\(
\)\(\(l = 1;\)

    \(k = 100;\)

    \(f[x_] := \((1 - E\^\(-1\))\) + ∑\+\(n = 1\)\%k\((2 \(\( 1 - \(\((\(-1\))\)\^n\) E\^\(-1\)\)\/\(1 + \(n\^2\) π\^2\)\) Cos[n\ π\ x])\);\)

    Plot[f[x], {x, \(-4\) l, 4\ l}, AspectRatio -> Automatic, 
      ImageSize -> {600, Automatic}, 
      PlotRange -> {{\(-4\) l, 4  l}, {0, 1.2}}]\)\)\)

周期2lを持つ関数のフーリエ級数展開（標準プログラム）

\(\(\( (*\ 問1\ \((2)\)\ *) \)\(
\)\(\(l = 
        1;\)

    \(k = 100;\)

    \(f[x_] := ∑\+\(n = 1\)\%k\((2 \(\(\((\(-1\))\)\^n\) \((6 - n\^2\ π\^2)\)\)\/\(n\^3\ π\^3\)\ Sin\ [n\ π\ x])\);\)

    Plot[f[x], {x, \(-4\) l, 4\ l}, AspectRatio -> Automatic, 
      ImageSize -> {600, Automatic}, 
      PlotRange -> {{\(-4\) l, 4  l}, {\(-1\) - 0.5, 
            1 + 0.5}}]\)\)\)