Histograma por un escalar Ejemplo B

clear all;
clc;

I1=imread('im2.jpg');

[m,n]=size(I1);
a= min(min(I1));
b= max(max(I1));

maxi=1;

for i=2:m-1
for j=2:n-1

if (I1(i,j)>maxi)
maxi=I1(i,j);

end
r1=maxi;
end
end

res=(a+b)/r1;

clc;
I1=I1/res;

imshow(I1);

Histograma por un escalar Ejemplo A

clear all;
clc;

I1=imread('im2.jpg');

[m,n]=size(I1);
a= min(min(I1));
b= max(max(I1));

maxi=1;

for i=2:m-1
for j=2:n-1

if (I1(i,j)>maxi)
maxi=I1(i,j);

end
r1=maxi;
end
end

res=(a+b)/r1;

clc;
I1=I1*res;

imshow(I1);

clear all;
clc
***************************************************
LECTURA DE IMAGENES
**************************************************
I1=imread('detec1.jpg');
I2=imread('detec2.jpg')
[m,n]=size(I1)
***************************************************
UMBRALIZACION IMAGEN 1
**************************************************
for i=2:m-1
for j=2:n-1
if (I1(i,j)<80)>

UMBRALIZACION IMAGEN 2

**************************************************

[m,n]=size(I2)

for i=2:m-1

for j=2:n-1

if (I1(i,j)<80)>

I1(i,j)=0;

else I2(i,j)=255;

end

end

end

***************************************************

RESTA DE MATRIZ 1 Y 2

**************************************************

imshow(abs(I2-I1));

humbralizacion - deteccion de esquina

clear all;
clc
I1=imread('im1.jpg');

[m,n]=size(I1)
for i=2:m-1
for j=2:n-1
if (I1(i,j)<80)
I1(i,j)=0;
else I1(i,j)=255;
end

end
end
V=double(zeros(2,4));
i=1;
j=1;
for i=10:m-1
for j=10:n-1
if (I1(i,j)==255)
V(1,1)=i;
V(1,2)=j;

end

end
end
i=1;
j=1;
for i=m-1:2
for j=n-1:2
if (I1(i,j)==255)
V(2,1)=i;
V(2,2)=j;

end

end
end
i=1;
j=1;
for j=n-1:2
for i=m-1:2
if (I1(i,j)==255)
V(3,1)=i;
V(3,2)=j;

end

end
end
i=1;
j=1;
for j=2:n-1
for i=2:m-1
if (I1(i,j)==255)
V(4,1)=i;
V(4,2)=j;

end

end
end
imshow(I1);

detección de movimiento

clear all;
clc
I1=imread('detect1.bmp');
I2=imread('detect2.bmp')
[m,n]=size(I1)
for i=2:m-1
for j=2:n-1
if (I1(i,j)<80)
I1(i,j)=0;
else I1(i,j)=255;
end

end
end
[m,n]=size(I2)
for i=2:m-1
for j=2:n-1
if (I1(i,j)<80)
I1(i,j)=0;
else I2(i,j)=255;
end

end
end
imshow(abs(I2-I1));

clear all;
clc
I1=imread('im1.jpg');
[m,n]=size(I1)
for i=2:m-1
for j=2:n-1
if (I1(i,j)<80)
I1(i,j)=0;
else I1(i,j)=255;
end
end
end
imshow (I1);

codigo mathlab humbral + detección de esquina

clear all;
clc
I1=imread('im1.jpg');

[m,n]=size(I1)
for i=2:m-1
for j=2:n-1
if (I1(i,j)<80)
I1(i,j)=0;
else I1(i,j)=255;
end

end
end
V=double(zeros(2,4));
i=1;
j=1;
for i=10:m-1
for j=10:n-1
if (I1(i,j)==255)
V(1,1)=i;
V(1,2)=j;

end

end
end
i=1;
j=1;
for i=m-1:2
for j=n-1:2
if (I1(i,j)==255)
V(2,1)=i;
V(2,2)=j;

end

end
end
i=1;
j=1;
for j=n-1:2
for i=m-1:2
if (I1(i,j)==255)
V(3,1)=i;
V(3,2)=j;

end

end
end
i=1;
j=1;
for j=2:n-1
for i=2:m-1
if (I1(i,j)==255)
V(4,1)=i;
V(4,2)=j;

end

end
end
imshow(I1);

Codigo Mathlab Detección moviemineto

clear all;
clc
I1=imread('detect1.bmp');
I2=imread('detect2.bmp')
[m,n]=size(I1)
for i=2:m-1
for j=2:n-1
if (I1(i,j)<80)
I1(i,j)=0;
else I1(i,j)=255;
end

end
end
[m,n]=size(I2)
for i=2:m-1
for j=2:n-1
if (I1(i,j)<80)
I1(i,j)=0;
else I2(i,j)=255;
end

end
end
imshow(abs(I2-I1));