Re: problem
- To: mathgroup at smc.vnet.net
- Subject: [mg23715] Re: [mg23664] problem
- From: "Mark Harder" <harderm at ucs.orst.edu>
- Date: Mon, 5 Jun 2000 01:09:11 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Amna,
Since I don't see a Pulse or Square Well function in the Help browser, I
constructed one. Look at UnitStep[x+1]-UnitStep[x-1] with
Plot[UnitStep[x + 1] - UnitStep[x - 1], {x, -2, 2}]
I think this is what you want from your H[x]. Now linearity of the inverse
f.t. implies that
InverseFourierTransform[H[x] ] =InverseFourierTransform[UnitStep[x+1] ] -
InverseFourierTransform[UnitStep[x-1] ]:
So, I get
In[526]:=
Ft1 = InverseFourierTransform[UnitStep[x + 1], x, t]
Out[526]=
I t
I E Pi
-(------------) + Sqrt[--] DiracDelta[t]
Sqrt[2 Pi] t 2
In[527]:=
Ft2 = InverseFourierTransform[UnitStep[x - 1], x, t]
Out[527]=
I Pi
-(-----------------) + Sqrt[--] DiracDelta[t]
I t 2
E Sqrt[2 Pi] t
In[534]:=
FullSimplify[Ft1 - Ft2]
Out[534]=
2
Sqrt[--] Sin[t]
Pi
---------------
t
In other words, Sqrt[2/Pi] * SincFunction[t], which I believe is correct.
-mark harder
-----Original Message-----
From: Amna Latif <hochimin at nexlinx.net.pk>
To: mathgroup at smc.vnet.net
Subject: [mg23715] [mg23664] problem
>I can't figure out the inverse fourier transform of the following function:
>H(w)= 1 |x|<1,
> 0 |x|>1
>Amna
>
>