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

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

    \(k = 100;\)

    \(f[x_] := ∑\+\(n = 1\)\%k\((\(2\/\(n\ π\)\) \((1 - \((\(-1\))\)\^n)\)\ 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}}]\)\)\)

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

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

    \(k = 100;\)

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

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

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

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

    \(k = 100;\)

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

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