clc
clear all
c=imread('E:\Pictures\axe\23.jpg');
imshow(c)
c1=c

,:,1);
figure
imshow(c1)
M=[1 1 1;0 0 0;-1 -1 -1];
p=zeros((size(c1,1)-1),(size(c1,2)-1));
T=120
for i=2

size(c1,1)-1);
for j=2

size(c1,2)-1);
p(i,j)=(c1(i-1,j-1)*1)+(c1(i-1,j)*1)+(c1(i-1,j+1)*1)+(c1(i,j-1)*0)+(c1(i,j)*0)+(c1(i,j+1)*0)+(c1(i+1,j-1)*-1)+(c1(i+1,j)*-1)+(c1(i+1,j+1)*-1);
if abs(p(i,j))>T
p(i,j)=0;
else p(i,j)=255;
end
end
end
figure
imshow(p)