Rosmawi Poetra Tambelan: PROGRAM PENGGABUNGAN CITRA

PROGRAM CITRA
penggabungan 6 scrip dijadikan 1 tampilan gambar CITRA

function [G] = roberts(F)
%pariabel dari semua ini harus berbeda jika
%untuk menampilkan keseluruhan gambar
[m, n] = size(F);

F=double(F);
for y=1 : m-1
for x=1 : n-1

G(y, x) = sqrt((F(y,x)-F(y+1,x+1))^2 + ...
(F(y+1,x)-F(y,x+1))^2) ;
end
end
G = uint8(G);
end %akhir fungsi

img = (imread('C:\Image\lena128.tif'));
G = roberts(img);

%

function [g] = roberts(f)
[jum_baris, jum_kolom] = size(f);
f=double(f);
for y=1 : jum_baris-1
for x=1 : jum_kolom-1
g(y, x) = sqrt((f(y,x)-f(y+1,x+1))^2 + ...
(f(y+1,x)-f(y,x+1))^2) ;
end
end
g = uint8(g);
end %akhir fungsi
f = imread('c:\image\boneka.tif');
g = roberts(f);

%

function [j] = freichen(k)
% FREICHEN Pemerolehan tepi objek pada citra F
% melalui operator Frei-Chen
% Hasil: citra G
[m, n] = size(k);
akar2 = sqrt(2);
k=double(F);
G=zeros(m,n);
for y=2 : m-1
for x=2 : n-1
j(y, x) = sqrt(...
(k(y-1,x+1)+akar2*k(y,x+1)+k(y+1,x+1) - ...
k(y-1,x-1)-k(y,x-1)-k(y+1,x-1))^2 + ...
(k(y-1,x-1)+akar2*F(y-1,x)+k(y-1,x+1) - ...
k(y+1,x-1)-akar2*k(y+1,x)-k(y+1,x+1))^2) ;
end
end
j = uint8(j);
end %akhir fungsi
img = imread('c:\image\lena128.tif');
j = prewitt(img);

%

function [d] = prewitt(c)
[jum_baris, jum_kolom] = size(c);
c=double(c);
d=zeros(jum_baris,jum_kolom);
for y=2 : jum_baris-1
for x=2 : jum_kolom-1
d(y, x) = sqrt((c(y-1,x-1) + c(y,x-1) + c(y+1,x-1) - ...
c(y,x) - c(y,x+1) - c(y+1,x+1))^2 + ...
(c(y+1,x-1)+ c(y+1,x) + c(y+1,x+1) - ...
c(y-1,x-1) - c(y-1,x) - c(y-1,x+1))^2) ;
end
end
d = uint8(d);
end %akhir fungsi
c = imread('c:\image\boneka.tif');
d = prewitt(c);

%%

function [h] = sobel(i)
[m, n] = size(i);
i=double(i);
h=zeros(m,n);
for y=2 : m-1
for x=2 : n-1
h(y, x) = sqrt(...
(i(y-1,x+1)+2*i(y,x+1)+i(y+1,x+1) - ...
i(y-1,x-1)-i(y,x-1)-i(y+1,x-1))^2 + ...
(i(y-1,x-1)+2*i(y-1,x)+i(y-1,x+1) - ...
i(y+1,x-1)-2*i(y+1,x)-i(y+1,x+1))^2) ;
end
end
h = uint8(h);
end %akhir fungsi
img = imread('c:\image\lena128.tif');
h = prewitt(img);

%%

img = imread('c:\image\lena128.tif');
Y=img;
[m, n] = size(Y);
X=zeros(m,n);
Y=double(Y);
for y=2 : m-1
for x=2 : n-1
X(y, x) = 8 * Y(y,x) - ...
(Y(y-1,x)+ Y(y,x-1)+Y(y,x+1)+Y(y+1,x) + ...
Y(y-1,x-1)+ Y(y-1,x+1)+Y(y+1,x-1)+Y(y+1,x+1));
end
end
X = uint8(X);

subplot(6,2,1);imshow(img) % 6 adalah tampilan 6 gambar
subplot(6,2,2);imshow(G) % 2 adalah tampilan perbandingan 2 gambar
subplot(6,2,3);imshow(f)
subplot(6,2,4);imshow(g)
subplot(6,2,5);imshow(img)
subplot(6,2,6);imshow(j)
subplot(6,2,7);imshow(c)
subplot(6,2,8);imshow(d)
subplot(6,2,9);imshow(img)
subplot(6,2,10);imshow(h)
subplot(6,2,11);imshow(img)
subplot(6,2,12);imshow(X)

Gambar yang dihasilkan dari srip diata