Listing Perbear dan perkecil citra dengan Matlab

Hay sobat semua , kali ini khapury akan share mengenai listing perbesar dan perkecil gambar dengan perintah dimatlab. Penasaran gimna caranya ? langsung simak dan coba listing dibawah ini ^_^

#Listing perbesar dari 256 ke 512
% 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(256,256));
%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');


Sedangkan untuk perkecil, ini dia listingnya :
#Listing perkecil 512 ke 256
% program kompresi citra ukuran 512X512 menjadi 256x256 piksel
function kompresi_512_256
clc
citra=imread('d:\data\gajah.jpg');
area=uint8(zeros(256,256));
% menduplikasikan data citra asli
d=zeros(512,512);
for i=1:512;
for j=1:512;
d(i,j)=citra(i,j);
end
end
%kompresi dari 512x512 ke 256x256 piksel
for b_asli=1:256
for k_asli=1:256
temp=0; dummy=0;
for b_baru=1:2
for k_baru=1:2
dummyb=((b_asli-1)*2 + b_baru);
dummyk= ((k_asli-1)*2 + k_baru);
dummy=d(dummyb,dummyk);
temp=temp+dummy;
end
end
temp=round(temp/4);
area(b_asli,k_asli)=temp;
end
end
imwrite(area,'d:\data\kompresi_256_256.jpg');
citra_kompresi=imread('d:\data\kompresi_256_256.jpg');
figure
imshow(citra);
title('Citra dimensi 512x512 piksel');
figure
imshow(citra_kompresi);
title('Citra dimensi 256x256 piksel');


Jalankan dan lihat hasil eksekusinya ...