Filtros De Imagen

Filtros de imagen
(1)
*vid = videoinput('winvideo',1,'YUY2_640x480')
vid.ReturnedColorspace = 'rgb';


%Toma una foto y la guarda en frame
frame = getsnapshot(vid);subplot(2,2,1)
imshow(frame)


%Cambia a escala de grises (monocromática)
I = rgb2gray(frame)
subplot(2,2,2)
imshow(I)


%Muestra el histograma
subplot(2,2,3)
imhist(I)*%Convierte a imagen binaria
%el valor de 100 se escogió del histograma
BW = im2bw(I, 100/255)
subplot(2,2,4)
imshow(BW)


(2)

I1 = imread('rice.png');
I2 =imread('cameraman.tif');


subplot(2,2,1)
imshow(I1)
subplot(2,2,2)
imshow(I2)


%SUMA
%Suma las imagenes, pero satura el resultado
%ya que son imagenes de 8 bits
I3 =imadd(I1,I2);
subplot(2,2,3)
imshow(I3,[])
title('Suma de 8 bits')
%al usar [] ajusta el valor minimo como negro
%y el máximo como blanco


%Suma las imagenes y las guarda en%resultado de 16 bits
I3 =
*imadd(I1,I2,'uint16');
subplot(2,2,4)
imshow(I3,[])
title('Suma de 16 bits')


%RESTA
%Obtiene el fondo quitando los elementos
%menores a 15pixeles de diametro
fondo = imopen(I1,strel('disk',15));


%Resta fondo a la imagen original
Ip = imsubtract(I1,fondo);


figure
subplot(2,2,1)
imshow(I1)
title('Imagenoriginal')
subplot(2,2,2)
imshow(Ip,[])
title('Imagen menos fondo')


*%MULTIPLICACIÓN
I4 = imread('moon.tif');
I5 = immultiply(I4,0.5);
subplot(2,2,3), imshow(I4)title('Imagen Original')
subplot(2,2,4), imshow(I5)
title('Imagen multiplicada por 0.5')
(3)

%Lee la imagen y la carga en la matrix I
I = imread('rice.png');
subplot(2,2,1);imshow(I);
title('Imagen Original');


%Introducimos ruido a la imagen
In = imnoise(I,'salt & pepper');
subplot(2,2,2);
imshow(In);
title('Imagen con Ruido');


%%%%%%%%%%%%...