% Test the fast deconvolution method presented in the paper
% D. Krishnan, R. Fergus: "Fast Image Deconvolution using Hyper-Laplacian
% Priors", Proceedings of NIPS 2009.
% parameter values; other values such as the continuation regime of the
% parameter beta should be changed in fast_deconv.m
lambda = 2e3;
alpha = 1/2;
% read in and normalize input data - if data is not normalized, change
% lambda parameter accordingly
y = double(imread('dsc_0085.jpg'))./255.0;%归一化输入数据
% load 2 pre-defined kernels
load kernels.mat;
% which kernel to use
kernel = kernel1;
ks = floor((size(kernel, 1) - 1)/2);%取整
[imy,imx]=size(y);%输入图像尺寸
hy = floor(imy/2); hx = floor(imx/2);%图像的半尺寸hy=3024,hx=2016
% crop to some pre-defined size 裁剪图像大小
cy = 1872; cx = 1866;
IMG_SIZE = 1024;
yorig = y(cy-IMG_SIZE/2-ks:cy+IMG_SIZE/2+ks, cx-IMG_SIZE/2-ks:cx+IMG_SIZE/2+ks);
y = y(cy-IMG_SIZE/2:cy+IMG_SIZE/2, cx-IMG_SIZE/2:cx+IMG_SIZE/2);
% convolve with kernel1 and add noise
yorig = y;
y = conv2(yorig, kernel1, 'valid');
y = y + 0.01*randn(size(y));%添加随机噪声
y = double(uint8(y .* 255))./255;%uint8 转换成无符号8bit整数
% edgetaper边界逐渐变细？ to better handle circular boundary conditions
y = padarray(y, [1 1]*ks, 'replicate', 'both'); %pad array.replicate: Repeats border elements of A.
for a=1:4
y = edgetaper(y, kernel);%aper edges using point-spread function.效果：边界虚化
end
% Check if Eero Simoncell's function exists
if (exist('pointOp') ~= 3) %不存在MEX文件，不能使用LUT查找法
fprintf('WARNING: Will use slower interp1 for LUT interpolations. For speed please see comments at the top of fast_deconv.m\n');
end;
clear persistent;%清除持续变量，在sovle_image函数中定义了四个持续变量lookup_v known_beta xx known_alpha.
snr_blur = snr(y, ks, yorig);%计算模糊图像的信噪比
tic;%Start a stopwatch timer
[x] = fast_deconv(y, kernel, lambda, alpha);%计算x子问题
timetaken = toc;%tic 和 toc 共同使用来确定经历时间
snr_recon = snr(x, ks);
% remove padding
x = x(ks+1:end-ks, ks+1:end-ks);
y = y(ks+1:end-ks, ks+1:end-ks);
yorig = yorig(ks+1:end-ks, ks+1:end-ks);
figure; imagesc([yorig y x]); colormap gray;
tt = sprintf('Original Blurred (SNR %.2f) Reconstructed (SNR %.2f)', ...
snr_blur, snr_recon);
title(tt);
fprintf('Time taken for image of size %dx%d is %.3f\n', IMG_SIZE, IMG_SIZE, ...
timetaken);
