信息与通信的数学基础——第二次实验（2）

1. 函数的傅里叶级数展开

（1）矩形波：$f(t)=\{\begin{array}{l}-1,-\pi \le t<0\\ 1,0\le t\le \pi \end{array}$

F[t_] := Which[-Pi <= t && t < 0, -1,
  0 <= t && t < Pi, 1]
Plot[F[t], {
   t, -4, 4}]
fw1 = FourierTrigSeries[F[t], t, 1]
fw5 = FourierTrigSeries[F[t], t, 5]
result1 = FullSimplify[Sqrt[2*Pi]*FourierTransform[F[t], t, w]]
振幅谱/\[Placeholder]
Plot[Abs[result1], {
   w, -10, 10}]
相位谱/\[Placeholder]
ComplexExpand[Re[result1]]
ComplexExpand[Im[result1]]
Plot[Arg[result1], {
   w