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');