exm0641_1.m

这是本人收集的一些程序源代码

%exm0641_1.m

%（1）求Fourier变换
syms t w;
ut=sym('Heaviside(t)');						%定义0时刻起跳的单位阶跃函数	<1>
UT=fourier(ut)								%实施Fourier变换，给出与理论一致的结果
UTC=maple('convert',UT,'piecewise','w')	%计算结果起指示作用				<3>
UTS=simple(UT)								%在此是5.3版的运算结果，简化导致漏项！  


%（2）求Fourier反变换进行验算
Ut=ifourier(UT,w,t)							%结果与原函数相等
Uts=ifourier(UTS,w,t)						%结果与原函数不等