东大高等数学实报告2.docVIP

实验目的： 运用Mathematica软件来练习、熟练、巩固本学期所学内容，加深对所学知识的认识程度，更直观、清楚地认识某些问题，帮助我们学好、用好数学。 实验内容： 实验习题 实验习题8-3 观察函数展成的Fourier级数的部分和逼近的情况。 解：只在区间[-π, π)上有定义且满足Dirichlet条件，那么在[-π, π)上也可展成Fourier级数。将周期延拓成成F(x)，将F(x)展开成Fourier级数，根据Fourier系数公式可得其Fourier系数为，，，将其Fourier展开式限制在[-π, π)上，即得区间[-π, π)上定义的函数的Fourier展开式。 输入以下命令： f[x_]:=Which[-Pix0,-x,0xPi,1]; F[x_]:=Which[-2Pix-Pi,1,-Pix0,-x,0xPi,1,Pix2Pi,2Pi-x]; a[n_]:=(Integrate[-x*Cos[n*x],{x,-Pi,0}]+Integrate[Cos[n*x],{x,0,Pi}])/Pi; b[n_]:=(Integrate[-x*Sin[n*x],{x,-Pi,0}]+Integrate[Sin[n*x],{x,0,Pi}])/Pi; s[x_,n_]:= +Sum[a[k]*Cos[k*x]+b[k]*Sin[k*x],{k,1,n}]; g1