So we have
f[r_] = E^(-I k r)/r /. k -> (2 \[Pi])/\[Lambda]
Taking the Fourier transform in spherical coordinates
FourierTransform[f[r], r, p, FourierParameters -> {0, 2 Pi}]
give a nice compact but complex result:
but suppose we convert to cylindrical coordinates:
fcy[\[Rho]_, z_] =
TransformedField["Spherical" -> "Cylindrical",
f[r], {r, \[Theta], \[Phi]} -> {\[Rho], \[Phi]2, z}]
and then take the Fourier transform
Simplify[FourierTransform[
fcy[\[Rho], z], {\[Rho], z}, {\[CapitalRho], \[CapitalZeta]},
FourierParameters -> {0, 2 Pi}]]
we get
Which is less compact but is real and looks oddly similar to your expected result.
I'm still not able to get the transform of the expression in Cartesian coordinates.
Interestingly, I am also unable to get the inverse Fourier transform of your expected result.
We can transfer to Cartesian coordinates with
fxyz[x_, y_, z_] =
TransformedField["Spherical" -> "Cartesian",
f[r], {r, \[Theta], \[Phi]} -> {x, y, z}]
And try to take the transform in just X and Y leaving Z constant.
FourierTransform[fxyz[x, y, z], {x, y}, {u, v},
FourierParameters -> {0, 2 Pi}]
Which is basically the code you have in your question.
This ran for about 4 hours on my PC before Mathematica gave up and returned the input.
e
isExp
andi
should beI
ande^(...)
should beExp[....]
. But after doing these changes, it does not look like it can do it. But maybe if you wait long time it can. $\endgroup$Exp[I k Sqrt[x^2 + y^2 + z^2]]/(x^2 + y^2 + z^2)
. What should we trust? In both cases the usual Fourier transform does not exist for real values ofk,x,y,z
. $\endgroup$FourierTransform[Exp[I Sqrt[r1^2 + 1]]/Sqrt[r1^2 + 1], r1, s]
returns the input. $\endgroup$