ekstraksi fitur ikan

img = imread('edit1.jpg');
%% Nilai R G B
R = img(:,:,1);
G = img(:,:,2);
B = img(:,:,3);

%% Grayschale
Abu = uint8(0.2989*double(R)+0.5870*double(G)+0.1141*double(B));

%% edge robert
[m, n] = size(Abu);
F = double(Abu);
for y=2 : m-1
    for x=2 : n-1
        G(y, x) = sqrt((F(y-1,x-1) + F(y,x-1) + F(y+1,x-1) - ...
             F(y,x) - F(y,x+1) - F(y+1,x+1))^2 + ...
             (F(y+1,x-1)+ F(y+1,x) + F(y+1,x+1) - ...
             F(y-1,x-1) - F(y-1,x) - F(y-1,x+1))^2) ;
    end
end
img_robert = uint8(G);

%% hitam putih
[tinggi, lebar] =  size(img_robert);
biner = zeros(tinggi, lebar);
for baris=1 : tinggi
    for kolom=1:lebar
        if (img_robert(baris,kolom) ~= 0)
            biner(baris,kolom) = 1;
        else
            if (img_robert(baris-1, kolom) ~= 0 && img_robert(baris, kolom-1) ~= 1 || ...
                img_robert(baris, kolom-1) ~= 0 && img_robert(baris+1, kolom) ~=0 ||...
                img_robert(baris-1, kolom) ~= 0 && img_robert(baris, kolom+1) ~=0 || ...
                img_robert(baris, kolom+1) ~= 0 && img_robert(baris+1, kolom))
                biner(baris,kolom) = 1;
            else
                biner(baris,kolom) = 0;
            end
        end
    end
end
img_bw = biner;

%% output
figure(1);
imshow(Abu);

figure(2);
imshow(img_robert);