       Re: Re: Fourier Transforms

```Sseziwa Mukasa wrote:

>On Mar 2, 2006, at 6:48 AM, Ben C wrote:
>
>
>
>>On the first of March I posted an appeal for help with some Fourier
>>transforms. Since then a couple of people have suggested I post the
>>actual transforms. I am trying to inverse Fourier transform the
>>functions
>>
>>p / (sqrt(1+p^2 + sqrt(1+p^2 ))   and   1/(sqrt(1+p^2 - sqrt(1+p^2 ))
>>
>>from p to x space.
>>
>>
>>
>
>You need to convert your expressions to proper Mathematica syntax,
>sqrt(x) is Sqrt[x] in Mathematica.  Since you're looking for a
>symbolic solution use InverseFourierTransform like so:
>
>In:=
>InverseFourierTransform[p/Sqrt[1+p^2+Sqrt[1+p^2]],p,x]
>InverseFourierTransform[1/Sqrt[1+p^2-Sqrt[1+p^2]],p,x]
>Out=
>0
>Out=
>InverseFourierTransform[1/Sqrt[1+p^2-Sqrt[1+p^2]], p, x]
>
>The second expression returns itself because the integral cannot be
>performed.  Perhaps your expression is only valid for p > 0?  You
>also need to specify the convention for the Fourier transform you are
>
>Regards,
>
>Ssezi
>
>
>
Just plotting your inputs, for arbitrary large values of p, they look
similar to some simple functions (if one can call them that) whose FT
can be easily ascertained. Here is my attempt anyway,
>>
f1[p_] = p/Sqrt[1 + p^2 + Sqrt[1 + p^2]];
f2[p_] = 1/Sqrt[1 + p^2 - Sqrt[1 + p^2]];
Plot[{f1[p], Sign[p]}, {p, -1000, 1000}, PlotRange -> {-2, 2}];
Plot[f2[p], {p, -1000, 1000}];
InverseFourierTransform[Sign[p], p, x]
InverseFourierTransform[DiracDelta[p], p, x]

>>
-Graphics-
-Graphics-
(I*Sqrt[2/Pi])/x
1/Sqrt[2*Pi]

I hope this is helpfull in some way

Pratik

```

• Prev by Date: Re: Unprotecting "I"
• Next by Date: Re: Re: Fourier Transforms
• Previous by thread: Re: Re: Fourier Transforms
• Next by thread: Re: Re: Fourier Transforms