MathGroup Archive 2007

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

Search the Archive

A Frullani integral and some workouts


In[75]:=
Integrate[(Exp[(-a)*y] - Exp[-2*a*y])/y, {y, 0, Infinity}, Assumptions
-> a > 0]
(*incorrect; buggy imaginary part*)

Out[75]=
I*Pi + Log[2]

Some workouts include

In[81]:=
Integrate[(Exp[(-a)*y] - Exp[-2*a*y])/y, y]
Assuming[a > 0, Limit[%, y -> Infinity] - Limit[%, y -> 0]]

Out[81]=
-ExpIntegralEi[-2*a*y] + ExpIntegralEi[(-a)*y]
Out[82]=
Log[2]

In[99]:=
Integrate[(Exp[(-a)*y] - Exp[-2*EulerGamma*y])/y, {y, 0, Infinity},
Assumptions -> a > 0]
% /. EulerGamma -> a

Out[99]=
Log[(2*EulerGamma)/a]
Out[100]=
Log[2]

In[108]:=
((Exp[(-a)*y] - Exp[-2*a*y])/y)*Dt[y] /. y -> o/a /. {Dt[a] -> 0,
Dt[o] -> 1}
Integrate[%, {o, 0, Infinity}]

Out[108]=
(-E^(-2*o) + E^(-o))/o
Out[109]=
Log[2]

Dimitris



  • Prev by Date: weird bugs in Integrate 3
  • Next by Date: Re: Gauss-Kronrod algorithm
  • Previous by thread: weird bugs in Integrate 3
  • Next by thread: writting an expression