
% Selecciona coeficientes de Fourier de la imagen.
% La idea es que M sea una "máscara": una matriz 8x8
% de ceros y unos tal que si M(i,j)=1, el coeficiente
% de Fourier a_ij permanece y si M(i,j)=0, se omite.

% Notas: Utiliza image2.bmp y mask_image
% No he conseguido que funcione bien con Octave


imag = imread('image2.bmp');
imag = im2double(imag);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Imagen original
figure(1)
imshow( imag )


% Sólo el coeficiente a_00
figure(2)
M = zeros(8);
M(1,1) = 1;
img = mask_image(imag, M);
imshow( img )
title('Sólo el coeficiente a_{00}', 'FontSize', 20)


figure(3)
M = zeros(8);
M(1:5,1:5)=ones(5);
img = mask_image(imag, M);
imshow( img )
title('Bloque 5 x 5', 'FontSize', 20)


figure(4)
M = ones(8);
M(1:1) = 0;
img = mask_image(imag, M);
img = 1-img;
imshow( img )
title('Todos menos el coeficiente a_{00} (en negativo)', 'FontSize', 20)




%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

