Codding Octav (551)

Perintah dasar olah citra
=================================================
Ig=imread(nama_file citra)
Img=immread('C;\image\dedaunan.PNG');
Ukuran=size(Img)
Imshow(Img)
Sungai=imread('C:\image\dedaunan.PNG');
Danau=imread('C:\image\empatbola.PNG');
Figure(1);imshow(sungai);
Figure(2);imshow(danau);
Close all;
Subplot(1,2,1);imshow(sungai);
Subplot(1,2,2);imshow(danau);;

Penerapan kedalam bentuk program konversi citra berwarna kecitra abu-abu
Cara pertama
============================================================
img=imread('c:\image\bunga.tif');
x=uint8(0.2989 * double(img(:,:,1))+0.5870
*doub;e(img(:,:,2))+0.1141
*double(img(:,:,3)));

Cara kedua mengkonversi citra berwarna abu-abu
=============================================================
octave:20> x=imread('c:/image/daniel.jpg');
warning: your version of GraphicsMagick limits images to 16 bits per pixe
octave:21> abu=rgb2ntsc(x);
octave:22> imshow(abu)
octave:23> y=abu(:,:,1);
octave:24> imshow(y)

Kode program citra abu-abu ke citra biner
============================================================
img=imread('c:|image|pantai.png'):
{tinggi,lebar}=size(img):
ambang=210,
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
subplot(1,2,1);imshow(img)
subplot(1,2,2);imshow(biner)