怎么在mathematica中画出周期方波和因果周期方波的频谱图像?周期方波在R内都是周期性的,因果周期方波只在正半轴是周期性,负半轴值为零.此方波均为周期为T,幅值为1的连续波此为参照图

怎么在mathematica中画出周期方波和因果周期方波的频谱图像?周期方波在R内都是周期性的,因果周期方波只在正半轴是周期性,负半轴值为零.此方波均为周期为T,幅值为1的连续波此为参照图
怎么在mathematica中画出周期方波和因果周期方波的频谱图像?
周期方波在R内都是周期性的,因果周期方波只在正半轴是周期性,负半轴值为零.
此方波均为周期为T,幅值为1的连续波

此为参照图

怎么在mathematica中画出周期方波和因果周期方波的频谱图像?周期方波在R内都是周期性的,因果周期方波只在正半轴是周期性,负半轴值为零.此方波均为周期为T,幅值为1的连续波此为参照图
f[x_,T_] := Module[{y},
y = x - Sign[x]*Floor[Abs[x]/T]*T;
If[(y >= 0 && y = 0 && y