www.gusucode.com > IPCV_Eval_Kit_R2019a_0ce6858工具箱matlab程序源码 > IPCV_Eval_Kit_R2019a_0ce6858/code/demo_files/I2_07_7_burstinterpolant.m

    %% 楢幩夋憸偐傜崅夝憸搙夋憸惗惉(挻夝憸)

%% 掅夝憸搙偺楢幩夋憸傪撉傒崬傒丄壜帇壔
setDir = fullfile(toolboxdir('images'),'imdata','notebook');
imds = imageDatastore(setDir,'FileExtensions',{'.png'});
montage(imds)
title('Set of Low-Resolution Burst Mode Images')

%% 僽儗傪彍嫀偡傞偨傔偵夋憸偺埵抲崌傢偣
imdsTransformed = transform(imds,@(x) rgb2lightness(x));
refImg = read(imdsTransformed);
[optimizer,metric] = imregconfig('monomodal');
numImages = numpartitions(imds);
tforms = repmat(affine2d(),numImages-1,1);
idx = 1;
while hasdata(imdsTransformed)
    movingImg = read(imdsTransformed);
    tforms(idx) = imregtform(refImg,movingImg,'rigid',optimizer,metric);
    idx = idx + 1;
end

%% 崅夝憸搙夋憸偺惗惉
scale = 4; % 壗攞偺夝憸搙偱弌椡偡傞偐
B = burstinterpolant(imds,tforms,scale);
figure('WindowState','maximized')
imshow(B)
title ('High-Resolution Image')

%% 擖椡夋憸僒僀僘偲弌椡夋憸僒僀僘傪斾妑
Img = read(imds);
inputDim = [size(Img,1) size(Img,2)]
outputDim = [size(B,1) size(B,2)]

%% 
% Copyright 2019 The MathWorks, Inc.