Selasa, 11 Maret 2014

Pencitraan digital

 PERTEMUAN KEDUA

BAGIAN 1

clc;
clear;
%membuka citra
RGB=imread('C:\image\barelang.jpg');


%mengolah citra

YCBCR=rgb2ntsc(RGB);
Y=YCBCR(:,:,1); %ektraksi matrik Y
Cb=YCBCR(:,:,2); %ektraksi matrik Cb
Cr=YCBCR(:,:,1); %ektraksi matrik Cr
R=RGB-255;


%menampilkan hasil olahan citra

figure(1);
subplot(2,2,1);imshow(YCBCR);
subplot(2,2,2);imshow(Y);
subplot(2,2,3);imshow(Cb);
subplot(2,2,4);imshow(Cr);


%menyimpan hasil olahan citra (ciptakan folder hasil di C)

imwrite(YCBCR,'C:\Hasil\YCBCR.jpg');
imwrite(Y,'C:\Hasil\Y.jpg');
imwrite(Cb,'C:\Hasil\Cb.jpg');
imwrite(Cr,'C:\Hasil\Cr.jpg');




 PERTEMUAN PERTAMA


BAGIAN 1
clc;%membersihkan layar
clear;%membersihkan nilai variabel yang sudah digunakan
%membuka file citra
barelang=imread('c:\image\
barelang.jpg');
wtb=imread('c:\image\wtb.jpg');
imshow(barelang);
title('Jembatan Satu Barelang - Batam');

%memproses citra
k=2.5*barelang;
c=barelang+80;
bw=barelang(:,:,1);%merubah citra menjadi monokrom

%menampilkan citra
figure(1);
subplot(2,2,1); imshow(barelang);%gambar Asli
title('jembatan Satu Barelang - Batam');
subplot(2,2,2); imshow(k); %Gambar Setelah Diolah
subplot(2,2,3); imshow(c); %Gambar Setelah Diolah
subplot(2,2,4); imshow(wtb);

%menyimpan output citra
imwrite(barelang,'c:\output\barelang.jpg');
imwrite(k,'c:\output\barelang1.jpg');
imwrite(c,'c:\output\barelang2.jpg');


BAGIAN 2

clc; clear; [x,y]=meshgrid(-8:0.5:8);
r=sqrt(x.^2+y.^2)+eps; z=sin(r)./r; surf(x,y,z)
title('oleh:nela');

Tidak ada komentar:

Posting Komentar