MATLAB Examples

Introductory Fourier Transform Demonstration

David Young

An introductory demonstration of the Discrete Fourier transform applied to 1-D and 2-D data.

This is intended to be used in conjunction with a textbook and with the documentation for the Matlab function fft.

Read in an image and display it

This is to provide some example data. Gray levels from one row of the image will be used to explore the 1-D FT. The whole image will be used to explore the 2-D FT.

```% Read the example image, convert it to grayscale, and put the pixel values % into the range 0 to 1. If the file chess1.bmp is not in the current % directory or on the Matlab path, modify the path below to point to it. [fftim, cmap] = imread('chess1.bmp'); fftim = double(ind2gray(fftim, cmap))/256; % Truncate the image to dimensions that are fast for the FFT (not necessary % if speed is not an issue), and reduce the size so that the images can be % displayed on a web page easily. fftim = fftim(1:2:384, 1:2:512); % Subtract out the image mean to avoid a big peak in one corner of the FFT % array. fftim = fftim - mean(mean(fftim)); % Get its range so that displays can be consistent. range = [min(fftim(:)) max(fftim(:))]; % Display the initial image f1 = figure; imshow(fftim, range); ```

Get a 1-D profile

First, we extract one row from the middle of the image to use to illustrate 1-D operations.

```row = round(size(fftim,1)/2); % Show the selected row figure(f1); hold on; plot([1 size(fftim,2)], [row row], 'r-'); hold off % Extract the row x = fftim(row, :); % Display the grey-level profile figure; plot(x); title('Grey-level profile'); ```

Fourier components of 1-D data

We compute the discrete Fourier transform of the profile and display the spectrum.

The spectrum is symmetric about its middle because the data are real. Low spatial frequencies are at the ends, and high frequencies in the middle. Because of this symmetry, it is usual to display only the left-hand part of the spectrum, up to the Nyquist frequency at the centre.

In this graph, the numbers on the horizontal axis are just the indices into the output array, but of course they also refer to the frequencies of Fourier components of the original signal.

Remember two key facts about the relationship between output indices and frequency (in Matlab):

The Fourier component corresponding to index j has j-1 cycles within the length of the original data.

If there are N data points, the component corresponding to index j has the same frequency as the component corresponding to index N-j+2.

If you are puzzled by what this means for the right-hand half of the spectrum, look up "aliasing"; for example, see the section on "Sampling sinusoidal functions" in the Wikipedia article on aliasing.

```X = fft(x); figure; plot(abs(X)); title('Amplitudes as a function of frequency'); ```

Display individual Fourier components

Here we plot separate graphs of some individual Fourier components, together with a partial reconstruction of the original profile that includes components at the current and lower spatial frequencies. You can see how the separate components combine to make up the whole signal.

We used fft to get the amplitudes of the components. Normally to reconstruct we would use ifft, but here we compute the individual components explicitly so that we can look at them, and we add them up explicitly to gradually reconstruct the original profile.

At the end of the loop, the reconstructed result is the same as the original profile (apart from tiny rounding errors), but on the way we see reconstructions with high frequencies missing.

Look at the relationship between the index into X and the number of peaks in the wave that is plotted in each case.

You should be able to tie in the code below for computing a component with the textbook definition of the discrete Fourier transform.

```figure; mn = min(x); mx = max(x); % Initialise. The starting point for the reconstruction is the % "zero-frequency" or constant component held in X(1). N = length(x); reconstruction = X(1)/N; p = 2*pi*(0:N-1)/N; for k = 1:N/2 ```
``` % Compute the component for the frequency that gives k cycles in the % width of the image. a = X(k+1); % complex amplitude of this component phi = k*p; % phase array % Take advantage of the symmetry that results from x being real to % ignore the top half of X. Must therefore double the intermediate % components. if k < N/2; s = 2; else s = 1; end % This is the core equation for the Fourier transform: a single % component is a harmonic (sin or cosine) wave component = s*(real(a)*cos(phi) - imag(a)*sin(phi))/N; % and add the component to the reconstruction so far reconstruction = reconstruction + component; % Plot the results, but not for every iteration if ismember(k, [1:7 8:16:63 64:32:N/2]) subplot(2,1,1); plot(component); axis([1 length(x) mn mx]); title(['Spatial frequency ' num2str(k) ' cycles across the image']); subplot(2,1,2); plot(reconstruction); axis([1 length(x) mn mx]); title('Reconstruction so far'); pause; end ```
```end % Show that we have reconstructed the original profile accurately from the % components error = max(abs(reconstruction - x)); fprintf('Maximum error in reconstruction is %g\n', error); ```
```Maximum error in reconstruction is 3.70537e-015 ```

Filtering the profile

We can apply filters by multiplying the transform by a set of weights and then transforming back. This is equivalent to convolving the original profile with a mask that is the transform of the set of weights.

For example, we can pick out low frequencies, middle frequencies and high frequencies with three band-pass Gaussian masks. We have to make sure the symmetries are maintained in the masks.

A low-frequency mask, centred on zero-frequency

```figure; mask = zeros(1, N); f = 0:N/2; sigmaf = 10; mask(1:N/2+1) = exp(-(f/(2*sigmaf)).^2); mask(N:-1:N/2+2) = mask(2:N/2); subplot(3,1,1); plot(mask); title('Low-pass mask'); % Multiply the FT by the mask Xfilt = X .* mask; subplot(3,1,2); plot(abs(Xfilt)); title('Weighted transform'); % Transform back xfilt = ifft(Xfilt); subplot(3,1,3); plot(xfilt); title('Low-pass filtered signal'); ```

```cfreq = N/4; % Centre frequency in cycles/width of image mask(1:N/2+1) = exp(-((f-cfreq)/(2*sigmaf)).^2); mask(N:-1:N/2+2) = mask(2:N/2); subplot(3,1,1); plot(mask); title('Mid-pass mask'); Xfilt = X .* mask; subplot(3,1,2); plot(abs(Xfilt)); title('Weighted transform'); xfilt = ifft(Xfilt); subplot(3,1,3); plot(xfilt); title('Mid-pass filtered signal'); ```

Shift again to make a high-frequency mask

```cfreq = N/2; % Centre frequency in cycles/width of image mask(1:N/2+1) = exp(-((f-cfreq)/(2*sigmaf)).^2); mask(N:-1:N/2+2) = mask(2:N/2); subplot(3,1,1); plot(mask); title('High-pass mask'); Xfilt = X .* mask; subplot(3,1,2); plot(abs(Xfilt)); title('Weighted transform'); xfilt = ifft(Xfilt); subplot(3,1,3); plot(xfilt); title('High-pass filtered signal'); ```

Display 2-D Fourier patterns

We now move from 1-D to 2-D.

To demonstrate the 2-D equivalent of the sine/cosine waves, we compute and display the patterns that from the individual Fourier components in 2-D. The FT of an image involves breaking it down into these plaid patterns.

This code displays only the low-frequency patterns. We generate them by applying the inverse 2-D FT to a "delta-function" spectrum - that is, a spectrum which is non-zero at only one point. (They could also be computed by calls to sin and cos.)

```figure; s = 256; imsz = 5; for i = 1:imsz for j = 1:imsz subplot(imsz, imsz, (i-1)*imsz+j); y = zeros(s); y(i, j) = 1; % Set one frequence non-zero. % As with the 1-D transform, we need to make this symmetrical to % ensure the result is real if i > 1; y(end+2-i, j) = 1; end if j > 1; y(i, end+2-j) = 1; end if i > 1 && j > 1; y(end+2-i, end+2-j) = 1; end f = ifft2(y); imshow(f, []); end end ```

Compute 2-D FFT of image

We now compute a 2-D transform and display its spectrum. We use some gamma correction to make the spectrum more clearly visible. Note that it has a rotational symmetry - again, this is because the data are real.

The amplitude of each component is shown by the brightness of a pixel in the image. Low spatial frequencies are shown in the corners of the image and high frequencies are at the centre, like the 1-D case.

```ft = fft2(fftim); figure; imshow(abs(ft).^0.3, []); ```

Reconstruct the image

We now carry out a partial reconstruction of the image from the low spatial frequencies only, building it up from the patterns shown above. We don't do a full reconstruction because there are too many patterns, but it's entirely possible to do so.

This is done by performing the reverse FFT with only low frequencies included. It could also be done in the same way as the 1-D example, by explicitly computing the components and adding them in to the reconstruction.

As more spatial frequencies are added, the image becomes a closer approximation to the original.

```figure; for i = 1:imsz for j = 1:imsz y = zeros(size(ft)); % Include only the low frequency components up to the current % position, maintaining the symmetry. y(1:i, 1:j) = ft(1:i, 1:j); y(1:i, end+2-j:end) = ft(1:i, end+2-j:end); y(end+2-i:end, 1:j) = ft(end+2-i:end, 1:j); y(end+2-i:end, end+2-j:end) = ft(end+2-i:end, end+2-j:end); f = ifft2(y); subplot(imsz, imsz, (i-1)*imsz+j); imshow(f, range); end end ```

Filter the image

As for the 1-D profile, we can filter the image by weighting the transform to de-emphasise some of the spatial frequencies. In principle this is quite simple, but there is some complexity due to the need to maintain the symmetries.

Again, we do low, middle and high frequency filtering using a Gaussian mask in frequency space.

```figure; [M, N] = size(ft); mask = zeros(M, N); [fy, fx] = ndgrid(0:M/2, 0:N/2); sigmaf = 10; % Gaussian mask centred on zero frequency mask(1:M/2+1, 1:N/2+1) = exp(-(fx.^2+fy.^2)/(2*sigmaf)^2); % Do symmetries mask(1:M/2+1, N:-1:N/2+2) = mask(1:M/2+1, 2:N/2); mask(M:-1:M/2+2, :) = mask(2:M/2, :); subplot(1,2,1); imshow(mask); title('Low-pass mask'); % Filter the FT and show the result imfilt = ifft2(mask .* ft); subplot(1,2,2); imshow(imfilt, []); title('Low-pass filtered image'); ```

```cfreq = min(M, N)/4; % Gaussian mask centred on cfreq mask(1:M/2+1, 1:N/2+1) = exp(-((fx-cfreq).^2+(fy-cfreq).^2)/(2*sigmaf)^2); mask(1:M/2+1, N:-1:N/2+2) = mask(1:M/2+1, 2:N/2); mask(M:-1:M/2+2, :) = mask(2:M/2, :); subplot(1,2,1); subplot(1,2,1); imshow(mask); title('Middle-pass mask'); % Filter the FT and show the result imfilt = ifft2(mask .* ft); subplot(1,2,2); imshow(imfilt, []); title('Middle-pass filtered image'); ```
```cfreq = min(M, N)/2; % Gaussian mask centred on cfreq mask(1:M/2+1, 1:N/2+1) = exp(-((fx-cfreq).^2+(fy-cfreq).^2)/(2*sigmaf)^2); mask(1:M/2+1, N:-1:N/2+2) = mask(1:M/2+1, 2:N/2); mask(M:-1:M/2+2, :) = mask(2:M/2, :); subplot(1,2,1); imshow(mask); title('High-pass mask'); % Filter the FT and show the result imfilt = ifft2(mask .* ft); subplot(1,2,2); imshow(imfilt, []); title('High-pass filtered image'); ```