PENGOLAHAN CITRA DIGITAL

PENGOLAHAN CITRA DIGITAL

 kode program mengubah citra berwarna ke citra abu-abu

-------------------------------------------------------------------------

img=imread('c:\image\hotma.jpg');

x=uint8(0.2989 * double(img(:,:,1))...

 + 0.5870 *double(img(:,:,2)) + 0.1141 *double(img(:,:,3)));

kode program mengetahui susunan warna pada citra

===========================================

 a=imread('c:\image\empat bola.jpg');

 red   =a(:,:,1);

 green=a(:,:,2);

 blue  =a(:,:,3);

 subplot(2,2,1);imshow(a),title('empat bola')

 subplot(2,2,2);imshow(red),title('empat bola merah')

 subplot(2,2,3);imshow(green),title('empat bola hijau')

 subplot(2,2,4);imshow(blue),title('empat bola biru')

kode program mengubah citra abu-abu ke citra biner

========================================

 img=imread('c:\image\rosmawi.jpg');

 [tinggi,lebar] = size(img);

 ambang=150;

 biner=zeros(tinggi, lebar);

for baris=1 : tinggi

for kolom=1 : lebar 

if  img(baris,kolom)  >=ambang

biner(baris, kolom) = 0;

else

biner(baris,kolom) =1;

end

end

end

imshow(biner)

mengkonversi citra berwarna ke abu abu dan biner

=======================================

RGB=imread('C:\Image\rosmawi.jpg');

YCBCR = rgb2ntsc(RGB);

Y=YCBCR(:,:,1); %Ekstraksi matriks Y

Cb=YCBCR(:,:,2); %Ekstraksi matriks Bc

Cr=YCBCR(:,:,3); %Ekstraksi matriks Br

subplot(2,2,1); imshow(RGB);

subplot(2,2,2); imshow(Y);

subplot(2,2,3); imshow(Cb);

subplot(2,2,4); imshow(Cr);