Filtro Laplaciano e Passa Alta para Melhoria de Imagem

Prévia do material em texto

T_4: Laplaciano – Filtro Passa Alta (Image Enhancement).
Para a imagem da Figura 8, aplicar o filtro Laplaciano e um filtro passa alta(w8).
f = imread('Moon.tif');
w4 = fspecial('laplacian',0);
w8 = [1 1 1; 1 -8 1; 1 1 1];
f = im2double(f);
g4 = f - imfilter(f, w4, 'replicate');
g8 = f - imfilter(f, w8, 'replicate');
imshow(f)
figure, imshow(g4)
figure, imshow(g8)
A = imread ('imagem.png');
imshow (A);
G= [0 1 2 1 0 ; 1 3 5 3 1 ; 2 5 9 5 2 ; 1 3 5 3 1 ; 0 1 2 1 0]; %Filtro Gaussiano
G=G * (1/57);	%Normalizando o filtro
figure
IF1=imfilter (A, G); 	%Aplicando um filtro Gaussiano a uma imagem
imshow (IF1)
H=ones (5,5)/ (25); 	%Criando um filtro Box ou caixa de filtro
IF2 = imfilter (A,H); 	%Filtrando a imagem com um filtro box
figure
imshow (IF2) 
L= [0 0 -1 0 0; 0 -1 -2 -1 0; -1 -2 16 -2 -1; 0 -1 -2 -1 0; 0 0 -1 0 0]; %Filtro Laplaciano
IF= imfilter (A, L); 		%Filtrando com um filtro laplaciano
figure
imshow (IF)
imshow (IF)
function mat = gauss2d(mat, sigma, center)
gsize = size(mat);
for r=1:gsize(1)
 for c=1:gsize(2)
 mat(r,c) = gaussC(r,c, sigma, center);
 end
end
function val = gaussC(x, y, sigma, center)
xc = center(1);
yc = center(2);
exponent = ((x-xc).^2 + (y-yc).^2)./(2*sigma);
val = (exp(-exponent));