MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: problem


In a message dated 5/28/2000 11:23:21 PM, hochimin at nexlinx.net.pk writes:

>I can't figure out the inverse fourier transform of the following function:
>H(w)= 1  |x|<1, 
>            0 |x|>1
>

H[w_] := UnitStep[w + 1] - UnitStep[w - 1]

Plot[H[w], {w, -2, 2}];

f[t_] := Evaluate[InverseFourierTransform[H[w], w, t] // FullSimplify]

f[t]

(Sqrt[2/Pi]*Sin[t])/t

Plot[f[t], {t, -2Pi, 6Pi}, PlotRange -> All];

FourierTransform[f[t], t, w]

1/2*(Sign[1 - w] + Sign[w + 1])

This is an alternate representation for H[w]

Plot[%, {w, -2, 2}];

(InverseFourierTransform[%%, w, t] // Expand // FullSimplify)  == f[t]

True

Bob

BobHanlon at aol.com


  • Prev by Date: Re: Rookie question
  • Next by Date: Re: Rookie question
  • Previous by thread: Re: problem
  • Next by thread: Reverse Axes in Plot