Mathematica作业.docVIP

Mathematica数学实验报告嘉帅 一、无穷级数和函数逼近 观察函数展成的傅里叶级数的部分和逼近 情况。 目的和意义 1.利用Mathematica显示级数部分和的变化趋势。 2. 学会展示傅里叶级数对周期函数的逼近情况。 计算公式 可以展开成傅里叶级数：，其中 ， 程序设计 输入代码： f[x_] := Which[-Pi = x 0, -x, 0 = x Pi, 1]; a[n_] := Integrate[-x*Cos[n*x], {x, -Pi, 0}]/Pi + Integrate[Cos[n*x], {x, 0, Pi}]/Pi; b[n_] := Integrate[-x*Sin[n*x], {x, -Pi, 0}]/Pi + Integrate[Sin[n*x], {x, 0, Pi}]/Pi; s[x_, n_] :=a[0]/2+Sum[a[k]*Cos[k*x] + b[k]*Sin[k*x], {k, 1, n}]; g1 = Plot[f[x], {x, -2Pi, 2Pi}, PlotStyle - RGBColor[0, 0, 1], DisplayFunction - Identity]; m = 18; For[i = 1, i = m, i += 2, g2 = Plot[Eva