![]()
In[1]:=
![]()
![[Graphics:HTMLFiles/four1_3.gif]](HTMLFiles/four1_3.gif)
Out[1]=
![]()
In[2]:=
![]()
![[Graphics:HTMLFiles/four1_6.gif]](HTMLFiles/four1_6.gif)
Out[2]=
![]()
![]()
In[3]:=
![Plot[{Sin[x], Cos[x], Sin[x] + Cos[x]}, {x, -Pi, Pi}, AspectRatio -> Automatic, PlotStyle -> {Hue[0.0], Hue[0.3], Hue[0.6]}]](HTMLFiles/four1_9.gif)
![[Graphics:HTMLFiles/four1_10.gif]](HTMLFiles/four1_10.gif)
Out[3]=
![]()
In[4]:=
![Plot[{Sin[x], Cos[x], Sin[x] * Cos[x]}, {x, -Pi, Pi}, AspectRatio -> Automatic, PlotStyle -> {Hue[0.0], Hue[0.3], Hue[0.6]}]](HTMLFiles/four1_12.gif)
![[Graphics:HTMLFiles/four1_13.gif]](HTMLFiles/four1_13.gif)
Out[4]=
![]()
![]()
In[5]:=
![]()
In[6]:=
![]()
Out[6]=
![]()
In[7]:=
![]()
![[Graphics:HTMLFiles/four1_20.gif]](HTMLFiles/four1_20.gif)
Out[7]=
![]()
![]()
In[8]:=
![]()
![[Graphics:HTMLFiles/four1_24.gif]](HTMLFiles/four1_24.gif)
Out[8]=
![]()
![]()
In[9]:=
![Clear[F] ; F[n_, x_] := Underoverscript[∑, k = 0, arg3] f[k, x]](HTMLFiles/four1_27.gif)
In[10]:=
![]()
Out[10]=
![]()
In[11]:=
![]()
Out[11]=
![Sin[x] + 1/3 Sin[3 x] + 1/5 Sin[5 x] + 1/7 Sin[7 x] + 1/9 Sin[9 x] + 1/11 Sin[11 x] + 1/13 Sin[13 x] + 1/15 Sin[15 x] + 1/17 Sin[17 x] + 1/19 Sin[19 x] + 1/21 Sin[21 x]](HTMLFiles/four1_31.gif)
![]()
In[12]:=
![]()
![[Graphics:HTMLFiles/four1_34.gif]](HTMLFiles/four1_34.gif)
Out[12]=
![]()
![]()
In[13]:=
![]()
![[Graphics:HTMLFiles/four1_38.gif]](HTMLFiles/four1_38.gif)
Out[13]=
![]()
In[14]:=
![]()
![[Graphics:HTMLFiles/four1_41.gif]](HTMLFiles/four1_41.gif)
Out[14]=
![]()
n を大きくすると次のグラフに近ずくことが確認できます
In[15]:=
![Clear[g] ; g[x_] := 1 /; -2 * Pi < x <= -Pi ; g[x_] := -1 /; -Pi < x <= 0 ; g[x_] := 1 /; 0 < x <= Pi ; g[x_] := -1 /; Pi < x <= 2 * Pi](HTMLFiles/four1_43.gif)
In[16]:=
![]()
![[Graphics:HTMLFiles/four1_45.gif]](HTMLFiles/four1_45.gif)
Out[16]=
![]()
Converted by Mathematica (May 23, 2003)