RL（Richardson-Lucy） 采用基于RL（Richardson-Lucy）算法的超分辨图像复原。能够实现图像的频谱外推

采用基于RL(Richardson-Lucy)算法的超分辨图像复原。能够实现图像的频谱外推，得到期望的复原图像。

function [OTFPSF] = Aperture2OTF（im）
%-----------------------------------
% 从孔径函数转换为OTF
% clc;clear;close all;
% f=imread（‘aperture512_16.tif‘）;
im=im2double（im）;  %转换成双精度型
%-------------------------------------
% %因为OTF是孔径函数的归一化自相关函数，而自相关函数与功率谱互为FT变换
% ff=fft2（im）;   
% ff=abs（ff）.^2;         %求功率谱
% %计算OTF
% fff=fft2（ff）;         %求反FT变换
% 
% ff_max=max（fff（:））;    %归一化处理
% OTF=fff/ff_max;
% %   计算PSF
% PSF=ifft2（OTF）;
% PSF=IMRA（PSF）;
%因为OTF是孔径函数的归一化自相关函数，而自相关函数与功率谱互为FT变换
ff=fft2（im）;   
ff=abs（ff）.^2;         %求功率谱
fff=ifft2（ff）;         %求反FT变换
fff=IMRA（fff）;
ff_max=max（fff（:））;    %归一化处理
OTF=fff/ff_max;
PSF=ifft2（OTF）;
PSF=IMRA（PSF）;
%---------------------------------------------------
%T2=abs（fftshift（OTF））;
%figureimshow（log（1+T2）[]）;
%figuremesh（T

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2170  2011-06-20 10:20  RL.m

     文件      10455  2012-04-29 16:16  super_resolution.m

     文件       1078  2011-06-20 10:20  Aperture2OTF.m

     文件       1845  2011-06-20 10:20  ElipsoidalAperture.m

----------- ---------  ---------- -----  ----

                15548                    4