jueves, 31 de mayo de 2012

Realce de bordes

% realce de bordes
clear all
clc
A=imread('c:\moon.jpg');
[fila,columna]=size(A);
B=zeros(fila,columna);
for y=11:fila-5
    for x=11:columna-5
        B1=A(y-5:y+5,x-5:x+5);
        B2=mean(mean(B1));
        B(y,x)=B2;
        c=columna;
    end
end
borrosa=uint8(B);
dif=A-borrosa;
imshow(dif)