Guest User

Untitled

a guest
Jul 17th, 2018
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.59 KB | None | 0 0
  1. x DiracDelta[x] // Simplify
  2. (* 0 *)
  3.  
  4. test = ( I + ζ DiracDelta[ζ])/ ζ;
  5. InverseFourierTransform[#@test, ζ, z] & /@ {Identity, Simplify}
  6. (* {(1 + π Sign[z])/Sqrt[2 π], Sqrt[π/2] Sign[z]} *)
  7.  
  8. test=(I+(ζ-ζ1) DiracDelta[ζ-ζ1])/(ζ-ζ1);
  9. InverseFourierTransform[#@test,ζ,z]&/@{Identity,Simplify}
  10.  
  11. SameQ@@%
  12.  
  13. test = (I + (ζ - ζ1) DiracDelta[ζ - ζ1])/(ζ - ζ1);
  14. (InverseFourierTransform[#@test, ζ, z] & /@ {Identity, Simplify}) /. ζ1 -> 0
  15.  
  16. test = (I + ζ DiracDelta[ζ])/ζ;
  17. InverseFourierTransform[#[test /. ζ -> (ζ - ζ1)] /. ζ1 -> 0,
  18. ζ, z] & /@ {Identity, Simplify}
Add Comment
Please, Sign In to add comment