Fourier-Bessel transform / FT in polar coordinates

• To: mathgroup at smc.vnet.net
• Subject: [mg76279] Fourier-Bessel transform / FT in polar coordinates
• From: Mathieu G <ellocomateo at free.fr>
• Date: Sat, 19 May 2007 04:29:05 -0400 (EDT)

```Hello,
How can I compute a Fourier Transform in polar coordinates?

Here is where I am so far, but it seems the CircularFourierTransform
functions are badly defined??? Or is it with the Beam and Hole functions?:

(* **********Code following********** *)
Clear["Global`*"];

HoleSize = Rationalize[1.5 1*^-6 /2];
BeamPower = 81*^-3;

(*2D Gaussian*)
Gaussian2D[r_, Radius_: 1, Amplitude_: 1] :=

(*Disk shaped hole*)
DHole[r_?NonNegative, HoleSize_: 1] := Boole[r <= HoleSize];
(*Test function*)THole[r_?NonNegative, Dummy_: 1] := DiracDelta[r];

Hole[r_?NonNegative] := THole[r, HoleSize];
RevolutionPlot3D[Beam[r], {r, 0, 4 BeamRadius}, Mesh -> All,
PlotRange -> All, ColorFunction -> "Rainbow"]
RevolutionPlot3D[Hole[r], {r, 0, 2 HoleSize}, Mesh -> All,
PlotRange -> All, ColorFunction -> "Rainbow"]

(*Using Fourier transform definition*)
CircularFourierTransform[f_, \[Omega]r_] :=
2 \[Pi] Integrate[
r f[r] BesselJ[0, 2 \[Pi] r \[Omega]r], {r, 0, \[Infinity]}];
InverseCircularFourierTransform[f_, r_] :=
2 \[Pi] Integrate[\[Omega]r f[\[Omega]r] BesselJ[0,
2 \[Pi] r \[Omega]r], {\[Omega]r, 0, \[Infinity]}];
TFBeam = CircularFourierTransform[Beam[r], \[Omega]r]
TFHole = CircularFourierTransform[Hole[r], r]

```

• Prev by Date: Re: Re: Phase Portrait
• Next by Date: Style sheets in 6.0
• Previous by thread: Re:  LinearAlgebra`MatrixManipulation` LinearEquationsToMatrices
• Next by thread: Style sheets in 6.0
{"ft_lang_label":"__label__en","ft_lang_prob":0.50475216,"math_prob":0.9590762,"size":1638,"snap":"2020-24-2020-29","text_gpt3_token_len":544,"char_repetition_ratio":0.13157895,"word_repetition_ratio":0.09045226,"special_character_ratio":0.34859586,"punctuation_ratio":0.2516129,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.9968824,"pos_list":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14],"im_url_duplicate_count":[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2020-06-02T13:44:45Z\",\"WARC-Record-ID\":\"<urn:uuid:724e055b-cd51-46cf-8e17-91b26fb9b315>\",\"Content-Length\":\"44947\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:0071e519-de80-4cea-8a05-99bf335ba1e7>\",\"WARC-Concurrent-To\":\"<urn:uuid:92b43856-0550-43ab-b4ad-1e7962055433>\",\"WARC-IP-Address\":\"140.177.205.73\",\"WARC-Target-URI\":\"http://forums.wolfram.com/mathgroup/archive/2007/May/msg00862.html\",\"WARC-Payload-Digest\":\"sha1:LRJ2B4MZO6CL7K3NCH2NKYD2NT6JA5LL\",\"WARC-Block-Digest\":\"sha1:HC7CKJXZDILMBPVXIFOEVW3EV3HCEKL7\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2020/CC-MAIN-2020-24/CC-MAIN-2020-24_segments_1590347425148.64_warc_CC-MAIN-20200602130925-20200602160925-00170.warc.gz\"}"}