fourier.m

function [compres, J] = four(image,oran)
      
    I = imread(image);
    J = I;
    [R C L] = size(I);
    
    for i = 1:L
        inversF = zeros(R,C);
        imF = fftshift(fft2(double(I(:,:,i))));
        compres(:,:,i) = imF(oran:(R-oran),oran:(C-oran));
        inversF(oran:(R-oran),oran:(C-oran),1) = compres(:,:,i);
        inversF = real(ifft2(ifftshift(inversF)));
        J(:,:,i) = uint8(inversF);
    end

%% Kullanımı
% ----------
% [compres,  J] = four('football.jpg',110);
% whos compres  --> fourier'i alınmış bir kesit'in boyunu öğrenmek için.
% imshow(J,[]) --> fourier çözümlemesinden geçmiş olan resim.
% whos J --> çözümlenmiş resmin boyu girdi resmi ile aynı boyuta sahip.
%
%% Açıklama
% ---------
% Resmin fourier'i alınır ve girilen oran ölçüsünde dc bileşeni orta nokta olacak şekilde bir kesit alınır.
% bu durumda yüksek frekanslı kısımlar göz ardı edilir buda bizim sıkıştırma işlemimize denk gelmektedir.
% çözümleme aşamasında compres değişkeni girdi resmi boyutuna tekrar oturtulup ters fourier'i alınır.