matlab robinson kenar belirleme

üniversite öğrencisiyim görüntü işleme ödevi olarak robinson kenar belirleme yöntemini verdi hoca çeşitli kaynaklardan açıklamalar bulup çeviri yaptım fakat kodunu bulamıyorum bir türlü yardım edebilecek olursa çok sevinirim 30 aralığa kadar teslim etmem lazım.

Merhabalar,

http://www.mathworks.com/matlabcentral/answers/154699-edge-detection-use-kirsch-robinson-operator 

abi aradığım tam olarak bu değil bu kenar belirlemenin kodu lazım bir sürü yere baktım sadece bu sitede  http://en.pudn.com/downloads450/sourcecode/graph/texture_mapping/detail1896362_en.html rastladım bundada aylık ücret istiyor malum öğrencilik alamıyorum 🙂

kodları buldum biraz düzenlemeyle  çalışır hale geldi burda da paylaşmak istedim başka birine lazım olur belki

 

 

clear all;

clc;

I=imread('peppers.png');

A=rgb2gray(I);

r = zeros(3,3,8);

r(:,:,1) = [-1 0 1; -2 0 2; -1 0 1];

r(:,:,2) = [0 1 2; -1 0 1; -2 -1 0];

r(:,:,3) = [1 2 1; 0 0 0; -1 -2 -1];

r(:,:,4) = [2 1 0; 1 0 -1; 0 -1 -2];

r(:,:,5) = [1 0 -1; 2 0 -2; 1 0 -1];

r(:,:,6) = [0 -1 -2; 1 0 -1; 2 1 0];

r(:,:,7) = [-1 -2 -1; 0 0 0; 1 2 1];

r(:,:,8) = [-2 -1 0; -1 0 1; 0 1 2];

I_r = zeros(size(I,1), size(I,2), 8);

for i = 1:8

        I_r(:,:,i) = imfilter(A,r(:,:,i));

end

for j=1:8

    subplot(2,4,j), imshow(abs(I_r(:,:,j)),[]),title(['robinson matrisi  ',num2str(j)]);

end

I_rob= max(I_r,[],3); 

kodları buldum biraz düzenlemeyle  çalışır hale geldi burda da paylaşmak istedim başka birine lazım olur belki

 

 

clear all;

clc;

I=imread('peppers.png');

A=rgb2gray(I);

r = zeros(3,3,8);

r(:,:,1) = [-1 0 1; -2 0 2; -1 0 1];

r(:,:,2) = [0 1 2; -1 0 1; -2 -1 0];

r(:,:,3) = [1 2 1; 0 0 0; -1 -2 -1];

r(:,:,4) = [2 1 0; 1 0 -1; 0 -1 -2];

r(:,:,5) = [1 0 -1; 2 0 -2; 1 0 -1];

r(:,:,6) = [0 -1 -2; 1 0 -1; 2 1 0];

r(:,:,7) = [-1 -2 -1; 0 0 0; 1 2 1];

r(:,:,8) = [-2 -1 0; -1 0 1; 0 1 2];

I_r = zeros(size(I,1), size(I,2), 8);

for i = 1:8

        I_r(:,:,i) = imfilter(A,r(:,:,i));

end

for j=1:8

    subplot(2,4,j), imshow(abs(I_r(:,:,j)),[]),title(['robinson matrisi  ',num2str(j)]);

end

I_rob= max(I_r,[],3); 

 Yazılı kalır sonrasında da ararsanız burada bulursunuz.