exm0641_2.m

来自「这是本人收集的一些程序源代码」· M 代码 · 共 13 行

%exm0641_2.m

%（1）求Fourier变换
syms A t tao w;
yt=sym('Heaviside(t+tao/2)-Heaviside(t-tao/2)');
Yw=fourier(yt,t,w)
Ywc=maple('convert',Yw,'piecewise','w')		%计算结果起指示作用		<3>
Yws=simple(Yw)  

%（2）用反变换验算
Yt=ifourier(Yw,w,t)
Yws=ifourier(Yws,w,t)