I want to calculate the 2D Fourier transformation of a circular shaped aperture, but Mathematica won't finish the calculation:
h[x_, y_] := UnitBox[Sqrt[x^2 + y^2]]
Plot3D[FourierTransform[h[x, y], {x, y}, {k1, k2}], {k1, -5, 5}, {k2, -5, 5}]
So I tried to use the numerical NFourierTransform, but it showed me just an empty plot.
Needs["FourierSeries`"]
Plot3D[NFourierTransform[h[x, y], {x, y}, {k1, k2}],
{k1, -3, 3}, {k2, -3, 3},
PlotRange -> All]
Does somebody know how I can calculate the Fourier transform of a circular aperture in a reasonable amount of time?

h[]? – image_doctor Aug 25 '15 at 13:57Absof the Fourier transform, or look at the real and imaginary parts separately. You could also create an image of the apertureap=Table[h[i,j],{i,-5,5,10/99},{j,-5,5,10/99}]and do the discrete transformArrayPlot[Abs@Fourier@ap]or something. – N.J.Evans Aug 25 '15 at 14:23NFourierTransformgives you an empty box is that it can only handle one-dimensional integrals. For a more robust numerical approach, you may want to look at 2D Fourier transform of a few (4) disjoint discs on a plane – Jens Aug 25 '15 at 23:34