14-6.m

来自「MATLAB数字图象处理的主要源码.包括图象去噪变换增强恢复识别压缩的各种算法」· M 代码 · 共 8 行

PSF  = fspecial('gaussian',13,1);
OTF  = psf2otf(PSF,[31 31]); 
% PSF转换成OTF
subplot(1,2,1); surf(PSF); title('PSF');
axis square; axis tight
subplot(1,2,2); surf(abs(OTF)); title('corresponding |OTF|');
axis square; axis tight