MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: integrate log*sinc

  • To: mathgroup at smc.vnet.net
  • Subject: [mg109206] Re: integrate log*sinc
  • From: Leonid Shifrin <lshifr at gmail.com>
  • Date: Sat, 17 Apr 2010 06:03:15 -0400 (EDT)

Hi,

I don't have a complete rigorous solution, just a couple of observations.

First, you can represent Log[x]/x as a coefficient of the linear term in
<eps> of expansion x^(eps-1) around eps = 0:

In[7]:= Series[x^(eps-1),{eps,0,1}]

Out[7]= 1/x+(Log[x] eps)/x+O[eps]^2

Now, this integral I did not check in all details manually, but it should be
not very hard to get
(by writing Sin[x] = 1/(2I)(Exp[I x] - Exp[-Ix]) and performing an integral
along the relevant half of the imaginary axis for each exponent separately
you should be able to get it)

In[8]:= Integrate[x^(eps -1)*Sin[x],{x,0,Infinity}, Assumptions->
{0<=eps<1}]

Out[8]= Gamma[eps] Sin[(eps \[Pi])/2]

Expanding this around <eps> = 0 and picking the first - order term, we get
the result:

In[10]:= Series[Gamma[eps] Sin[(eps \[Pi])/2],{eps,0,1}]

Out[10]= \[Pi]/2-1/2 (EulerGamma \[Pi]) eps+O[eps]^2

which is, by the way, twice smaller than you quoted - and direct computation
in Mathematica
does confirm it.

Hope this helps.

Regards,
Leonid

On Fri, Apr 16, 2010 at 1:52 PM, pimeja <sed.nivo at gmail.com> wrote:

> Hi All,
>
> For Integrate[Log[x] Sin[x]/x, {x, 0, \[Infinity]}] Mathematica
> returns -EulerGamma \[Pi].
> How to proof this analytical?
>
> I've tried to use residue theory but it seems not suitable since
> integrand has pool of second order in zero (for Jordan lema should be
> first order only). Substitution x=Exp[y] returns even more strange
> result.
>
> Thanks in advance.
>
>


  • Prev by Date: Question on replacementFunction
  • Next by Date: Nest and Fold don't respect HoldFirst?
  • Previous by thread: Re: integrate log*sinc
  • Next by thread: Re: integrate log*sinc