Re: is this a new bug? Mathematicaa 5.0...
- To: mathgroup at smc.vnet.net
- Subject: [mg43203] Re: is this a new bug? Mathematicaa 5.0...
- From: Paul Abbott <paul at physics.uwa.edu.au>
- Date: Wed, 20 Aug 2003 22:24:48 -0400 (EDT)
- Organization: The University of Western Australia
- References: <bhfkcb$6ak$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <bhfkcb$6ak$1 at smc.vnet.net>, w1rw1ck at hotmail.com (steven)
wrote:
> Assuming[b > 0 && [Omega] > 0 && b [NotEqual] [Omega] ,
> Integrate[
> (Sin[b t]/(b t)) [ExponentialE]^([ImaginaryI][Omega]t),
> {t, (-[Infinity]), [Infinity]}]])
>
> Out = 0 ( think this should be a "rectangle" function.. )
Since you are computing a Fourier transform, why not use
FourierTransform[Sin[b t]/(b t), t, w]
which does, indeed, give you what you are after (and quickly too).
Cheers,
Paul
--
Paul Abbott Phone: +61 8 9380 2734
School of Physics, M013 Fax: +61 8 9380 1014
The University of Western Australia (CRICOS Provider No 00126G)
35 Stirling Highway
Crawley WA 6009 mailto:paul at physics.uwa.edu.au
AUSTRALIA http://physics.uwa.edu.au/~paul