Reporte de actividades del proyecto de Investigación en ...

La realización del programa #3 se implementó con máscaras de 3x3 (ver
capítulo 4). Se comenzó con la segunda fila y segunda columna de la imagen para
terminar con la penúltima fila y penúltima columna de la misma imagen; pero la
imagen resultante para cada filtro tiene dos columnas y dos filas menos que la
original.
clear all; close all;
im_color=imread('sacapuntas1.bmp');
im_color = imadjust(im_color,stretchlim(im_color));
rojo=double(im_color(:,:,1));
verde=double(im_color(:,:,2));
azul=double(im_color(:,:,3));
im_gris=round(rojo(:,:)*0.33)+round(verde(:,:)*0.59)+round(azul(:,:)*0.11);
im=double(im_gris);
ruido_aleatorio=floor(rand(fil,col)*100);
im_ruido=im+ruido_aleatorio;
im=im_ruido;
[fil col]=size(im);
for x=2:1:fil-1
for y=2:1:col-1
a=im(x-1,y-1);b=im(x,y-1);c=im(x+1,y-1);d=im(x-1,y);e=im(x,y);f=im(x+1,y);
g=im(x-1,y+1);h=im(x,y+1);i=im(x+1,y+1);
im_fil_prom(x,y)=round((a+b+c+d+e+f+g+h+i)/9);
vector(1:9)=sort([a b c d e f g h i]);
im_fil_mediana(x,y)=round(sum(vector)/9);
im_fil_minimo(x,y)=vector(1);
im_fil_maximo(x,y)=vector(9);
im_fil_punto_m(x,y)=round((vector(1)+vector(9))/2);
end
end
figure
hold on
subplot(2,3,1); imshow(uint8(im_ruido));title('Imagen con ruido aleatorio');
subplot(2,3,2); imshow(uint8(im_fil_prom));title('Filtro promedio');
subplot(2,3,3); imshow(uint8(im_fil_mediana));title('Filtro mediana');
subplot(2,3,4); imshow(uint8(im_fil_minimo));title('Filtro minimo');
subplot(2,3,5); imshow(uint8(im_fil_maximo));title('Filtro maximo');
subplot(2,3,6); imshow(uint8(im_fil_punto_m));title('Filtro punto medio');
Programa #3: Filtros para imágenes en tonos de gris.
89