% 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)