Изменение размера изображения в MATLAB

Question

Я пытаюсь создать функцию масштабирования изображения на основе значения (scale_zoom) для домашнего задания.Я не хочу использовать встроенную функцию MATLAB resize() в этой функции, поэтому я пытаюсь интерполировать.Любая помощь будет принята с благодарностью.Это то, что у меня пока есть:

function pic_new=scale_image(pic,scale_zoom)
    [row, col]=size(pic)
    ht_scale=size(pic,1)/scale_zoom*col
    wid_scale=size(pic,2)/scale_zoom*row

    size(ht_scale)
    size(wid_scale)
    x=(0:scale_zoom)*wid_scale
    y=(0:scale_zoom)*ht_scale
    length(x)
    length(y)
    %plotvals=0:0.1:scale_zoom (this is not necessary i think)
    newimg=interp1(pic,x,y,'cubic')
    image(newimg)
end

Я думаю, что я очень неправильно интерполирую это: /

Answer 1

У меня был ранее отвеченный вопрос о масштабировании изображений с использованием интерполяции ближайшего соседа , и большая часть кода и пояснений, которые я там использовал, применима здесь. Основным отличием является последний шаг интерполяции. Вот как вы можете написать свою функцию, используя INTERP2 и обобщая для 2-D изображения в градациях серого или 3-D RGB-изображения любого типа :

function pic_new = scale_image(pic,scale_zoom)

  oldSize = size(pic);                               %# Old image size
  newSize = max(floor(scale_zoom.*oldSize(1:2)),1);  %# New image size
  newX = ((1:newSize(2))-0.5)./scale_zoom+0.5;  %# New image pixel X coordinates
  newY = ((1:newSize(1))-0.5)./scale_zoom+0.5;  %# New image pixel Y coordinates
  oldClass = class(pic);  %# Original image type
  pic = double(pic);      %# Convert image to double precision for interpolation

  if numel(oldSize) == 2  %# Interpolate grayscale image

    pic_new = interp2(pic,newX,newY(:),'cubic');

  else                    %# Interpolate RGB image

    pic_new = zeros([newSize 3]);  %# Initialize new image
    pic_new(:,:,1) = interp2(pic(:,:,1),newX,newY(:),'cubic');  %# Red plane
    pic_new(:,:,2) = interp2(pic(:,:,2),newX,newY(:),'cubic');  %# Green plane
    pic_new(:,:,3) = interp2(pic(:,:,3),newX,newY(:),'cubic');  %# Blue plane

  end

  pic_new = cast(pic_new,oldClass);  %# Convert back to original image type

end

И вы можете проверить это следующим образом:

img = imread('peppers.png');      %# Load the sample peppers image
newImage = scale_image(img,0.3);  %# Scale it to 30%