Advertisement
Guest User

Untitled

a guest
Dec 10th, 2016
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. J[[Omega]_] = 1/Sqrt[2 [Pi]] ([Lambda]^2 [Gamma])/(([Omega] - [Epsilon])^2 + \[Lambda]^2);
  2.  
  3. f[t_] = Assuming[{[Lambda] > 0,t > 0, [Epsilon] [Element] Reals, [Omega] [Element] Reals, [Epsilon] > [Omega]},InverseFourierTransform[J[[Omega]], [Omega], t]] // FullSimplify
  4.  
  5. FourierTransform[f[Abs[t]], t, [Omega]]
  6.  
  7. ([Gamma] [Lambda] (I [Epsilon] + [Lambda]))/(Sqrt[2 [Pi]] (-[Epsilon]^2 + 2 I [Epsilon] [Lambda] + [Lambda]^2 + [Omega]^2))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement