２回目のレポート課題
以下の関数について，そのフーリエ係数を求めよ

           （１） f(x) = x + π (-π <= x <= 0), -x + π(0 <= x <= π) で定義される周期 2 π の関数

Clear[f] ; f[x_] := x + π /; -π <= x <= 0 ; f[x_] := -x + π /; 0 <= x <= π

Plot[f[x], {x, -π, π}, PlotStyle -> Hue[0.0], AspectRatio -> Automatic]

[Graphics:HTMLFiles/kadai2_4.gif]

-Graphics -

（ 2 ） f(x) = (x + π)^2 (-π <= x <= 0), (-x + π)^2 (0 <= x <= π) で定義される周期 2 π の関数

Clear[f] ; f[x_] := (x + π)^2 /; -π <= x <= 0 ; f[x_] := (-x + π)^2 /; 0 <= x <= π

Plot[f[x], {x, -π, π}, PlotStyle -> Hue[0.0], AspectRatio -> Automatic]

[Graphics:HTMLFiles/kadai2_9.gif]

-Graphics -

（ 3 ） f(x) = 1 (-π < x < 0), -1 (0 < x < π), 0 (x = -π, 0, π) で定義される周期 2 π の関数

Clear[f] ; f[x_] := 1 /; -π < x < 0 ; f[x_] := -1 /; 0 < x < π ; f[0] := 0 ; f[-π] := 0 ; f[π] := 0

Plot[f[x], {x, -π, π}, PlotStyle -> Hue[0.0], AspectRatio -> Automatic]

[Graphics:HTMLFiles/kadai2_15.gif]

-Graphics -

追加問題 それぞれ, フ - リエ級数も求めてみよ

Converted by Mathematica  (June 18, 2003)