PROG MELIHAT WARNA RGB

salam hangat teman,
bertemu lagi dengan saya Rosmawi.
kali ini saya akan membagikan sebuah program citra digital
tentang melihat warna RGB (red, green dan blue )

berikut ini adalah bentuk program dan gambar yang dihasilkan dengan menggunakan aplikasi OCTAVE

%program melihat warna rgb
%
Y=imread('c:\image\MAWI 1.jpg');
X=imread('c:\image\MAWI 1.jpg');
X(:,:,1)=2 * X(:,:,1);
subplot(1,2,1);imshow(Y)%bentuk gambar original
subplot(1,2,2);imshow(X)%bentuk gambar yang sudah di rubah

%program melihat warna rgb
%rgb
%
Y=imread('c:\image\MAWI 1.jpg');
X=imread('c:\image\MAWI 1.jpg');
X(:,:,2)=2 * X(:,:,2);
subplot(1,2,1);imshow(Y)
subplot(1,2,2);imshow(X)

%program melihat warna rgb
%rgb sepia
%
A=imread('c:\image\MAWI 1.jpg');
B=imread('c:\image\MAWI 1.jpg');
B(:,:,3)=2 * B(:,:,3);
subplot(1,2,1);imshow(A)
subplot(1,2,2);imshow(B)

 RGB BLUE

 RGB GREEN

RGB RED

kode program mengubah citra berwarna ke citra abu-abu

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

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

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

subplot(2,2,1);imshow(img),title('Rosmawi')

subplot(2,2,2);imshow(x),title('Rosmawi Keluaran')

kode program mengetahui susunan warna pada citra

 a=imread('c:\image\MAWI 1.jpg');

 red   =a(:,:,1);

 green=a(:,:,2);

 blue  =a(:,:,3);

 subplot(2,2,1);imshow(a),title('Masukan 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')

program histogram citra keabuan

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

img=imread('c:\image\boneka.tif');

[jum_baris,jum_kolom]=size(img);

histogram=zeros(256,1);

for baris=1 : jum_baris

for kolom=1 : jum_kolom

 histogram(img(baris,kolom) + 1) = ...

 histogram(img(baris,kolom) + 1) + 1;

end

end

horijontal=(0:255) ;

bar(horijontal,histogram);

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

subplot(1,2,2);bar(horijontal,histogram)

program pemotongan aras keabuan (menghilangkan derau)

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

function [img] = potong(citra,f1,f2)

img=imread(citra);   

[jum_baris,jum_kolom]=size(img);

for baris=1 : jum_baris

for kolom=1 : jum_kolom

 if img(baris, kolom ) <=f1 

 img(baris,kolom)=0;

 end

  if img(baris,kolom) >=f2 

  img(baris,kolom)=255;

  end

end

end

end   %akhir fungsi

h=potong('c:\image\daun.tif',30,140);

imshow(h)

p=imread('c:\image\daun.tif');

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

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