Pengecilan Citra Gambar (MATLAB)

% program kompresi citra ukuran 512X512 menjadi 256x256 piksel
function kompresi_512_256
clc
citra=imread('d:\data\gajah2.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');