integrate(sin(x)^2/x,x,minf,inf);



On 01/26/12 22:42, Dmitry Shkirmanov wrote:
> (%i1) integrate(sin(x)^2/x,x,minf,inf);
> Principal Value
> log(- 1)
> (%o1) - --------
> 2
> (%i2) integrate(sin(x)^2/x,x,10000000000,10000000000);
> (%o2) 0
> (%i3)
>

Maple 15 can be torqued to returning 0.*I.

 > integrate(sin(x)^2/x,x=-inf..inf);
-1/2 ln(-inf) + 1/2 Ci(-2 inf) + 1/2 ln(inf) - 1/2 Ci(2 inf)
 > evalc(%);
(-1/2 (1/2 + 1/2 signum(inf)) Pi + 1/4 Pi (1 + signum(inf))
   + 1/2 (1/2 - 1/2 signum(inf)) Pi - 1/4 Pi (1 - signum(inf))) I
 > evalf(%);
0. I