数字图像处理技术与应用.pdf

[h1,w1]=size(im);

% 输入图象宽高的缩放倍数，默认是缩小一半

kh = str2double(inputdlg('请输入高缩放倍数', 'INPUT', 1, {'0.5'}));

kw = str2double(inputdlg('请输入宽缩放倍数', 'INPUT', 1, {'0.5'}));

% w2 和 h2 分别表示缩放后的宽高

for y= 1:h2

for x = 1:w2

oldY = y * (1/kh);

oldX = x * (1/kw); % oldX，oldY 为原坐标，x，y 为新坐标

b = deal(oldY, h1); % 调用坐标处理函数，同时防止矩阵溢出

a = deal(oldX, w1);

im2(y,x) = im(b,a);

end

end

str=[num2str(kh),'倍高，',num2str(kw),'倍宽的图片'];

title(str);