Re: Simplification of definite integral?
- To: mathgroup at smc.vnet.net
- Subject: [mg40695] Re: Simplification of definite integral?
- From: "Steve Luttrell" <luttrell at _removemefirst_westmal.demon.co.uk>
- Date: Mon, 14 Apr 2003 04:00:41 -0400 (EDT)
- References: <b7avdo$qlg$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In Mathematica 4.2.1 for Windows
Integrate[Sin[x - d]/(x - d) Sin[x + d]/(x + d), {x, -Infinity, Infinity},
Assumptions -> {Arg[d] != 0 && Im[d] != 0}] // FullSimplify
gives
(Cos[2*d]*(Log[-(1/d)] - Log[1/d]))/(2*d)
--
Steve Luttrell
West Malvern, UK
"Dr. Wolfgang Hintze" <weh at snafu.de> wrote in message
news:b7avdo$qlg$1 at smc.vnet.net...
> How do I get a satisfactory result from mathematica for this function
>
> f[d]:=Integrate[Sin[x-d]/(x-d) Sin[x+d]/(x+d),{x,-Infinity,Infinity}]
>
> I tried
>
> f[d]//ComplexExpand
>
> and several assumptions but I didn't succeed. Any hints?
>
> Wolfgang
>
>