Perbesaran Citra Gambar (MATLAB)

% program memperbesar citra ukuran 256x256 menjadi 512X512 piksel
function perbesar_256_512
clc %bersihkan jendela command window
close all %tutup semua jendela figure yang lama
citra=imread('d:\data\kura2.jpg');
%pesan variabel d untuk simpan citra baru
d=uint8(zeros(512,512));
%memperbesar citra dari 256x256 menjadi 512x512 piksel
for b_asli=1:256
for k_asli=1:256
temp=citra(b_asli,k_asli);
for b_baru=1:2
for k_baru=1:2
dummyb=((b_asli-1)*2 + b_baru);
dummyk= ((k_asli-1)*2 + k_baru);
d(dummyb,dummyk)=temp;
end
end
d(dummyb,dummyk);
end
end
imwrite(d,'d:\data\perbesar_512_512.jpg');
citra_kompresi=imread('d:\data\perbesar_512_512.jpg');
figure
imshow(citra); title('Citra dimensi 256x256 piksel');
figure
imshow(citra_kompresi); title('Citra dimensi 512x512 piksel');