Advertisement
Guest User

Untitled

a guest
Jun 26th, 2019
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.58 KB | None | 0 0
  1. Assuming[{b >0 }, FourierTransform[ Sinc[b (ω1 - ω2)], {ω1, ω2}, {t1, t2}, !(TraditionalForm`FourierParameters -> {1, (-1)})]]
  2.  
  3. (I [Pi] DiracDelta[t1+t2] (-Log[I b-I t1]+Log[-I b+I t1]+Log[-I (b+t1)]-Log[I (b+t1)]))/b
  4.  
  5. Log[-I (b - t1)] + Log[-I (b + t1)] - Log[I (b - t1)] - Log[I (b + t1)]
  6.  
  7. = Log[I (b - t1)*I (b + t1)] - Log[I (b - t1)*I (b + t1)]
  8.  
  9. = Log[-b^2 + t1^2] - Log[-b^2 + t1^2]
  10.  
  11. = 0
  12.  
  13. FourierTransform[ Sinc[ω1 - ω2], {ω1, ω2}, {t1, t2}, !(TraditionalForm`FourierParameters -> {1, (-1)})]
  14.  
  15. FourierTransform[ Sinc[b ω], {ω}, {t}, !(TraditionalForm`FourierParameters -> {1, (-1)})]
  16.  
  17. Assuming[{a > b }, FourierTransform[Sinc[3 (ω1 - ω2)], {ω1, ω2}, {t1, t2}, !(TraditionalForm`FourierParameters -> {1, (-1)})]]
  18.  
  19. PiecewiseExpand[
  20. FourierTransform[
  21. Sinc[ω1 - ω2],
  22. {ω1, ω2}, {t1, t2},
  23. FourierParameters -> {1, -1}
  24. ],
  25. t1 ∈ Reals
  26. ]
  27.  
  28. Sqrt[2π]*InverseFourierTransform[1, x, s]
  29. (* 2π*DiracDelta[s] *)
  30.  
  31. Sqrt[2π]*InverseFourierTransform[Sinc[Sqrt[2]*b*y], y, t] // Simplify
  32.  
  33. (* π*(Sign[Sqrt[2]*b-t] + Sign[Sqrt[2]*b+t])/(2*Sqrt[2]*b) *)
  34.  
  35. f = π/b I DiracDelta[t1 + t2]
  36. (-Log[I b - I t1] + Log[-I b + I t1] + Log[-I (b + t1)] - Log[I (b + t1)]);
  37. Simplify[f, Assumptions -> 0 < b < t1]
  38. Simplify[f, Assumptions -> -b < t1 < b]
  39. Simplify[f, Assumptions -> t1 < -b < 0]
  40.  
  41. (*
  42. 0
  43. (2 π^2 DiracDelta[t1 + t2])/b
  44. 0
  45. *)
  46.  
  47. FourierTransform[ Sinc[b (ω1 - ω2)], {ω1, ω2}, {t1, t2},
  48. FourierParameters -> {1, -1}, Assumptions -> -b < t1 < b]
  49.  
  50.  
  51. (* (4 π^2 DiracDelta[t1 + t2])/b *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement